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1 

2 1.0 INTRODUCTION 

3 

4 1.1 ABSTRACT 

6 THE RM05/3/2 SUBSYSTEM FUNCTIONAL TEST IS A STAND ALONE PROGRAM 

7 WHICH USES FUNCTIONAL MEANS TO VERIFY THE OPERABJLJTY OF THE 

8 PM05/3/2 DISK SUBSYSTEM. IN PARTICULAR. THE PROGRAM SERVES THE 

9 FOLLOWING PURPOSES: 
10 

11 TO EXPLICITLY ESTABLISH CONFIDENCE IN THE BASIC OPERATIONS OF the 

12 DISK DRIVE. INCLUDING MECHANICAL POSITIONING AND DATA TRANSFER 

13 OPERATIONS; 
14 

15 TO IMPLICITLY ESTABLISH CONFIDENCE IN THE DRIVE/ADAPTER 

16 ELECTRICAL INTERFACE; 
17 

18 TO VERIFY THE FUNCTIONALITY OF THE RM05/3/2 SUBSYSTEM, INCLUDING 

19 THE MASS8US CONTROLLER. MASS8US ADAPTER AND THE DISK DRIVE. 
20 

21 THE TEST IS COWRISED OF 3 PARTS. WHICH WOULD NORMALLY BE RUN IN 

22 SEQUENCE. STARTING WITH PART 1. BRIEFLY. PART 1 TESTS HOUSEKEEPING 

23 AND MECHANICAL POSITIONING OPERATIONS; PART 2 TFSTS WRITE. READ AND 

24 WRITE CHECK OPERATIONS USING HEADER AND DATA; PART 3 TESTS WRITE. 

25 READ AND WRITE CHECK OPERATIONS USING DATA. 
26 

27 
28 
29 

30 1.2 UNIT UNDER TEST 

31 

32 THE UNIT UM>ER TEST (UUT) IS THE RM05/3/2 DISK SUBSYSTEM WHICH 

33 CONSISTS OF THE RH MASS8US CONTROLLER. THE RM05/3/2 MASSBUS ADAPTER. 

34 AND THE STORAGE MODULE DISK DRIVE. NOTE THAT A DISK PACK IS REQUIRED 

35 FOR TESTING AND IS CONSIDERED AN INTEGRAL OF THE STORAGE MODULE DISK 

36 DRIVE. 
37 

38 
39 

40 2.0 OPERATING REQUIREMENTS 

41 

42 2.1 HARDWARE REQUIREMENTS 

43 

44 THE FOLLOWING MINIMUM HARDWARE CONFIGURATION. ASSUMED TO BE 

45 OPERATIONAL. IS REQUIRED TO LOAD AND EXECUTE THE RM05/3/2 SUBSYSTEM 

46 FUNCTIONAL TEST: 
47 

48 PDP-11 PROCESSOR 

49 20K MEMORY 

50 KW11-L OR KW11-P CLOCK 

51 PROGRAM LOADING DEVICE 

52 TERMINAL 

53 RH11 OR RH70 CONTROLLER 

54 1 TO 8 DISK DRIVES (ANY COMBINATION OF RM05'S. RM03*S OR RMO^'S) 
55 

56 
57 
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58 2.2 MEDJA REQUIREMENTS 

59 

60 EACH UNIT BEING TESTED MUST BE LOADED JITH A SCRATCH DIG« PACK 

61 BEFORE TESTING BEGINS ON THAT UNIT. THE DISK MUST BE FORMATTED AND 

62 CONTAIN A READABLE COPY OF THE MFG AND USR BAD SECTOR FILES. 
63 

6A 
65 

66 2.3 PREREQUISITE DIAGNOSTIC PROGRAMS 

67 

68 

o9 RM05/3/2 DISKLESS TEST, PART 1 % 2 

70 

71 RM05/3/2 FUNCTIONAL TEST. PART 1 & 2 

72 

73 

74 

75 3.0 OPERATING PROCEDURE 

76 

77 3.1 LOADING 

78 

79 THE PROGRAM MAY BE LOADED BV EITHER OF THE FOLLOWING MEDIA: 

80 

81 .PAPER TAPE, USING THE STANDARD PAPER TAPE LOADING PROCEDURE. 

82 .XXDP MEDIA. USING THE APPROPRIATE LOADING DEVICE. 
83 

8A 
85 

86 3.2 SWITCH OPTIONS 

87 

88 THE FOLLOWING SWITCH OPTIONS ARE PROVIDED TO ENHANCE THE UTILITY 

89 OF THE PROGRAM. 
90 

91 SWT 5 HALT ON ERROR 

92 SWU LOOP ON TEST (CURRENTLY BEING EXECUTED) 

93 SWT 3 INHIBIT ERROR TYPEOUTS 

94 SW12 UNUSED 

95 SWn INHIBIT TEST ITERATIONS 

96 SWIO BELL ON ERROR 

97 SW09 LOOP ON ERROR 

98 SW08 LOOP ON TEST IN SW07-00 
99 

100 THf^ LOW ORDER 8 SWITCHES (SW07-SW00), ARE USED IN CONJUNCTION WITH 

101 SW08 TO SPECIFY THE OCTAL NUMBER OF THE TEST WHICH THE PROGRAM WILL 

102 LOOP ON. 
103 

104 
105 

106 3.3 STARTING 

107 

108 THE PROGRAM MAY BE STARTED AT LOCATION 200 OR 204. STARTING AT 

109 200 WILL BE THE NORMAL STARTING ADDRESS. STARTING AT 204 WILL ENABLE 
no THE RH/RM BASE ADDRESS TO BE CHANGED. IF RUNNING IN A STAND-ALONE 

111 ENVIROAWENT. THE PROGRAM USES CONSOLE DIALOGUE TO ALLOW THE OPERATOR 

112 TC CONTROL TEST CONDITIONS. 
115 

114 
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115 

116 3.4 HALTING 

117 

118 THE PROGRAM SHOULD BE HALTED BV TYPING CONTROL C FROM THE CONSOLE. 

119 

120 NOTE: IF THE PROGRAM IS HALTED BY ANV OTHER MEANS, BAD HEADER 

121 INFORMATION MAY BE LEFT ON THE DISK PACK. THIS OF COURSE 

122 DEPENDS ON WHICH TEST IS BEING PERFORMED AT THE TIME OF THE 

123 HALT. 
124 

125 
126 

127 3.5 RESTARTING 

128 

129 THE PROGRAM CAN BE RESTARTED AT ADDRESS 200 OR 204. (SEE SECTION 3.3) 

130 

131 

132 

133 4.0 OPERATOR INTERFACE 

134 

135 4.1 PROGRAM ID 

136 

137 THE PROGRAM TYPES ITS TITLE AND MAINDEC NUMBER THE FIRST TIME IT 

138 IS STARTED AFTER BEING LOADED. ALSO, A WARNING MESSAGE IS TYPCD, 

139 NOTIFING THE OPERATOR OF POSSIBLE HEADER CORRUPTION IF THE PROGRAM IS 

140 HALTED IMPROPERLY. THE PROGRAM IDENTIFICATION AND THE WARNING DO NOT 

141 OCCUR IF THE PROGRAM IS RESTARTED. 
142 

143 
144 

145 4.2 CONSOLE DIALOGUE 

146 

147 WHEN THE PROGRAM IS RUNNING IN STAND ALONE MODE, IT ENTERS A 

148 CONSOLh DIALOGUE SEQNENCE AFTER TYPING THE PROGRAM I.D. AND WARNING 

149 MESSAGE. (SEE SECTION 4.1) 
150 

151 THE FIRST QUESTION TYPED OUT IS: '7YPE HELP TEXT (L) N ?". 

152 IF THE OPERATOR RESPONDS WITH A 'V, THE PROGRAM WILL TYPE A BRIEF 

153 HELP MESSAGE WHICH WILL LIST SWITCH OPTIONS, ETC. ANY OTHER RESPONSE 

154 TO THE QUESTION IS CONSIDERED A "H" AND NO HELP TEXT IS TYPED. THIS 

155 QUESTION IS ONLY ASKED ON THE INITIAL PROGRAM START AND NOT ON 

156 SUBSEQUENT START-UP'S. 
157 

158 ON THE PROGRAM INITIAL START AND WHEN RESTARTING AT LOCATION ?04, 

159 THE OPERATOR MAY CHANGE THE RH/RM BASE ADDRESSES WITH THE FOLLOWING 

160 DIALOGUE. 
161 

162 EXAMPLE 1 

163 

164 RMCS1=1 76700 <CR> ;N0 CHANGE IN ADDRESS 

165 RMVEC=000254 <CR> ;N0 CHANGE IN ADDRESS 
166 

167 EXAMPLE 2 

168 

769 RMCS1=1 76700 177200<CR> .-CHANGE BASE ADDRESS TO 177200 

170 RMVEC=000254 260<CR> .-CHANGE VECTOR ADDRESS TO 260 

171 
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^72 ON THE INITIAL START, THE NEXT QUESTION TYPED IS, 'TYPE "A" TO 

173 TEST ALL DRIVES. OR TYPE DRIVE NUMBERCS) AND TERMINATE INPUT WITH 

174 A CARRIAGE RETURN'. THEN, 'DRIVE (S):' IS TYPED AND WAITS FOR THE 

175 OPERATOR TO TYPE AN "A". TO TEST ALL POSSIBLE DRIVES OR TYPE ANY 

176 STRING OF DRIvE NUMBERCS) TO BE TESTED AND TERMINATE THE INPUT WITH A 

177 "CARRIAGE RETURN". NO COMMAS OR ANY OTHER SEPARATORS ARE NEEDED WHEN 

178 ENTERING THE DRIVE NUMBERS AS A STRING. THE PROGRAM ENTERS THE COMMA 

179 SEPARTOR AUTOMATICALLY AFTER TYPING EACH NUMBER. ON ALL SUBSEQUENT 

180 STARTS, ONLY THE 'DRIVE(S):' PROMPT IS TYPED. 
181 

182 THE DIAGNOSTIC THEN INITIAlIZES AND REPORTS THE STATUS OF thE 

133 DRIVES WHICH WHERE PREVIOUSLY SPECIFIED FOR TESTING. THE FOLLOWING 

184 IS AN EXAMPLE PRINTOUT: 
185 

186 'UNIT STATUS: 

187 0 ONLINE RM03 

188 1 LOAD DEVICE 

189 2 OFFLINE RM05 

190 3 NOT PRESENT 

191 A NOT PRESENT 

192 5 NOT AN RM05/3/2 

193 6 NOT PRESENT 

194 7 NOT PRESENT' 
195 

196 THE ABOVE UNIT STATUS SHOWS THAT DRIVE 0 WILL BE TESTED, WHILE DRIVES 

197 1 - 7 WILL NOT BE TESTED. 
198 

199 THE DIAGNOSTIC THEN TYPES THE FOLLOWING MESSAGE, BASED ON THE 

200 STATUS Of THE DRIVE: 
201 

202 'DRIVECS) TO BE TESTED, 0' 

203 

204 If NO DRIVES ARE AVAILABLE FOR TESTING, THE FOLLOWING MESSAGE WILL BE 

205 TYPED TO THE OPERATOR: 
206 

207 'DRIVE (S) TO BE TESTED, NONE' 

208 

?09 THE PROGRAM WILL THEN. EITHER START TESTJNG THE DRIVES AVAILABLE 'OR 

210 TESTING OR RETURN TO THE BEGINNING OF THE PROGRAM AND WAIT. 

211 

212 ONCE THE DRIVES START TESTING. THE FOLLOWING MESSAGE WILL OCCUR 

213 AS EACH DRIVE BEGINS TO BE TESTED: 
214 

215 'DRIVE 0' 

216 

217 AFTER ALL THE DRIVES ARE COMPLETELY TESTED, THE END OF PASS 

218 MESSAGE WILL BE TYPED (SEE SECTION 4.3) AND THE PROGRAM WILL START 

219 TESTING ALL THE DRIVES AGAIN. THIS WILL CONTINUE UNTIL THE PROGRAM 

220 IS HALTED BY THE OPERATOR. 
221 

222 NOTE: THE LETTER LOCATED WITHIN THE BRACKETS O INDICATES THE TYPE 

223 OF RESPONSE REQUIRED BY THE USER, D=DECIMAL. 0=OCTAL AND 

224 L=LETTER. 
225 

226 
227 

228 4.3 PROGRESS REPORTS 
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229 

210 

?31 

23? 

233 

234 

235 

236 

237 

238 

239 

2-0 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

26U 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 

281 

282 

283 

284 

285 



AN END Of PASS REPORT OCCURS EAfH TIME THE PROGRAM IS EXECUTED 
FOR ALL DEVICES IN THE TEST QUE. THE END OF PASS REPORT IS AS FOLLOWS. 



•END OF PASS 



r 



THE FOLLOWING MESSAGE WILL ALSO OCCUR IF THERE WERE ERRfFS SINCE 
THE LAST END OF PASS REPORT. 



'TOTAL ERRORS SINCE LAST REPORT 



0- 



4.4 PERFORMANCE REPORT 



NO PERFORMANCE REPORTS ARE GIVEN DURING THE EXECUTION OF THE 
PROGRAM. 



4.5 PROGRAM HALTS 

THERE ARE NO SCHEDULED HALTS DURING I HE EXECUTION OF THE PROGRAM. 
PROCESSOR HALTS ARE DUE TO THE TRAP CATCHER. 



4.6 ERROR REPORTS 

THE FIRST LINE OF THE ERROR REPORT CONTAINS THE NUMBER OF THE 
UNIT (DRIVE) BEING TESTED, THE DRIVE TYPE, THE TEST NUMBER, THE ERROR 
NUMBER AND THE VALUE OF THE PROGRAM COUNTER WHERE THE ERROR WAS CALLED. 
THIS LINE IS FOLLOWED BY THE ERROR MESSAGE: ONE OR MORE LINES OF TEXT 
WHICH GIVE A B«IEF, YET COMPREHENSIVE DESCRIPTION OF THE ERROR. THE 
ERROR MESSAGE IS NORMALLY FOLLOWED BY ONE OR MORE PAIRS OF LINES 
CONTAINING DATA HEADERS AND DATA PERTININENT TO THE ERROR, INCLUDING 
EXPECTED AND ACTUAL TEST RESULTS. 

THE FOLLOWING PRINTOUT SHOWS A TYPICAL ERROR MESSAGE FOR THIS PROGRAM: 

DRV/9 0 - RM03, TEST* 14, ERRA 326, PC=016654 

MASS8US DATA BUS PARITY ERROR 'MDPE" (RMCS2, BIT 8> DETECTED 



RMEC2 
000000 



DURING 


WRITE COMMAND 








EXPECTD 


RECEVD 










040300 


040700 










RMCS1 


RMCS2 


RMDS 


RMER1 


RMER2 


RMAS 


144252 


040700 


010700 


000000 


000000 


000000 


RMWC 


RM8A 


RMDA 


RMOF 


RMDC 


RMEC1 


177403 


104604 


000002 


010000 


000000 


004066 


RMMR1 


RMMR2 


RMDT 


RMSN 






000010 


011777 


024026 


\77777 







4.7 EXECUTION TIME 
TIME FOR RM05: 

PASS 1 OF THE PROGRAM TAKES ABOUT 15 SECONDS. 



PASS 2 vgD 
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?86 

287 

?88 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

30A 

305 

306 

307 

308 

309 

310 

311 

312 

313 

3U 

315 

316 

31/ 

318 

319 

320 

321 

522 

325 

524 

525 

526 

527 

528 

529 

550 

551 

552 

555 

554 

335 

536 

557 

558 

559 

540 

541 

542 



SUeSEQUENT PASSES TAKE 1 MINUTES ^0 SECONDS. 
TIME FOR RM02/3: 

PASS 1 OF THE PROGRAM TAKES ABOUT 6 SECONDS. PASS 2 AND 
SUBSEQUENT PASSES TAKE 40 SECONDS. 



5.0 ENVIRONMENTAL SUPPORT 

5.1 PROCESSOR COMPATIBILITY 

THE RM05/3/2 SUBSYSTEM FUNCTIONAL TEST IS EXECUTABLE ON ANY PDP-11 
PROCESSOR. PROVIDING PREVIOUSLY MENTIONED HA'^DwARE REQUIREMENTS ARE 
MET. AND PROVIDING THAT DATA THROUGHPUT ON Tf-t SYSTEM IS SUFFICIENT TO 
SUSTAIN DATA TRANSFER OPERATIONS. 



5.2 DUAL PORT CONFIGURATIONS 

THE RM05/3/2 SUBSYSTEM FUNCTIONAL TEST DOES NOT SPtCIFICALLY TEST 
DUAL PORT LOGIC IN THE RM05/3/2 ADAPTER BUT IS EXECUTABLE ON 
RM05/3/2 SUBSYSTEMS HAVING THE DUAL PORT OPTION' PROVIDING THE DUAL 
PORT SWITCH IS SET TO THE APPROPRIATE PORT (A OR B). 



5.3 MEMORY PARITY HARDWARE 

MEMORY PARITY HARDWARE IS NOT USED DURING THE EXECUTION OF ' THE 
RM05/5/2 SUS8YSTEM FUNCTIONAL TEST. 



5.4 MEMORY MANAGEMENT HARDWARE 

MEMORY MANAGEMENT HARDWARE IS NOT USED DURING THE RM05/5/2 
SUS8YSTEM FUNCTIONAL TEST. CAPABILITIES OF THE MASS8US CONTROLLER. 



5.5 ACT11. APT11 COMPATIBILITY 

THE RM05/3/2 SUSBYSTEM FUNCTIONAL TEST IS COMPATIBLE WITH ACT11 
AND APTII IN BOTH DUMP AND AUTOMATIC MODES. FURTHER. THE PROGRAM 
WILL EXECUTE A .QUICK PASS DURING THE FIRST PASS IN SUPPORT OF QUICK 
VERIFY MODE. 



5.6 XXDP COMPATIBILITY 

THE RM05/3/2 SUSBYSTEM FUNCTIONAL TEST IS COMPATIBLE WITH XXDP IN 
DUMP AND CHAIN MODES, AND PROVIDES MEDIA PROTECTION IN THE CASE WHERE 
THE RM05/3/2 IS THE XXDP LOADING DEVICE. 
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543 
344 

345 

346 5.7 OPERATING SYSTEM COMPATIBILITY 

347 

348 THE PROGRAM IS NOT COMPATIBLE WITH ANY "SOFTWARE OPERATING SYSTEM. 

349 

350 

III 6.0 TfcST DESCRIPTION 

353 

554 

355 

356 

357 

358 TEST 1 CONTROLLER ACCESS TEST 

359 

360 PURPOSE : 

362 TO VERIFY THAT THE UNIBUS ADDRESS OF THE SUBSYSTEM IS 

363 CORRECT. AS DEFINED AT LOCATION SBASE. 
364 

365 PROCEDURE: 
366 

367 THE TEST TRIES TO ACCESS ALL MASS8US CONTROLLER REGISTERS 

368 USING THE $8ASE ADDRESS. REGISTER CONTENTS ARE IGNORED DURING 

369 THE TEST. AND THE TEST FAILS IF A BUS TIMEOUT OCCURS FOR ANY 

370 REGISTER TRANSFER. 

372 IF THE TEST FAILS AND THE PROGRAM IS RUNNING IN A STAND 

373 ALONE ENVIRONMENT, I.E., LOCATION 42 IS 0, THE PROGRAM WILL JUMP 

374 TO LOCATION 204 WHICH ALLOWS THE OPERATOR TO CHANGE THE $8ASE 

375 ADDRESS VIA CONSOLE DIALOGUE. OTHERWISE. THE PROGRAM ESCAPES TO 

376 THE END OF PASS HANDLER. 
377 

378 
379 
380 
381 

382 TEST 2-25 WRITE/RFAD DATA TESTS 

383 

584 PURPOSE : 

385 

386 TO 'TEST WRITE DATA AND READ DATA FUNCTIONALITY OF THE 

387 RM05/3/2 SUBSYSTEM USING A SET OF VARIABLES WHICH INCLUDE WORD 

388 COUNT, HEAD MOTION, HEAD SWITCHING AND ERROR CONDITIONS. 
389 

390 PROCEDURE: 
391 

392 ALTHOUGH EACH TEST EXERCISES A DIFFERENT VARIABLE. THE 

393 GENERAL PROCEDURE OF EACH TEST IS THE SAME. THE DRIVE IS 

394 INITIALIZED AND RECALIBRATED IF "PIP" OR "SKI" ARE ACTIVE SO THAT 

395 THERE ARE NO ERRORS WHEN A TEST BEGINS. THEN. THE TEST FORMATS 

396 THE SECTOR BEING USED, WHICH MAY VARY FROM THE PROGRAM LISTING. 

397 BECAUSE SECTORS ARE SUBSTITUTED DURING RUN TIME IF THF SELECTED 

398 SECTOR IS LISTED IN THE BAD BLOCK TABLE OF THE LAST TRACK. 

399 FOLLOWING THAT. THE TEST PERFORMS ANY EXPLICIT SEEKS REQUIRED FOR 
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422 

423 

424 

425 

426 

427 

428 

429 

430 

<.3l 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

4^6 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 
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THE CONDITIONS OF THE TEST. REGISTERS ARE PRESET AND THE WRITE 

DATA COMMAND IS EXECUTED. WHEN THE WRITE COMMAND IS COMPLETE. 
THE TEST STORES ALL SUBSYSTEM STATUS AND CHECKS FOR PRIMARY 
ERRORS WHICH PRECLUDE OTHER STATUS CHECKS. IF THERE ARE NO 
PRIMARY ERRORS. THE lEST VERIFIES THE RESULTS OF THE WRITE 
COTWAND AND THEN CHECKS FOR SECONDARY ERROftS. LOOP ADDRESSES ARE 
MODIFIED FOLLOWING THE SUCCESSFUL COMPLETION OF 'HF WRITE COMMAND 
IN ORDER TO SHORTEN EXECUTION TIMES AND ENHANiF SCOPING LOOPS. 
THEN THE PROGRAM EXECUTES THE READ DATA PORTION OF THE TEST. 
VERIFYING THE SAME TYPE OF ERRORS AS IN THE WRITE TOMMAND. 

NOTE: THE SECTOR USED DURING A TEST MAY DIFFER FROM THE PROGRAM 
LISTING BECAUSE THE PROGRAM SUBSTITUTES A GOOD SECTOR. IF 
THE ONE SELECTED IS LISTED IN THE BAD BLOCK TABLE, 



TEST 2 WRITE. READ ZEROS TEST 

THE TEST WRITES AND READS AN ALL ZEROS DATA FIELD. CAUSING 
THE DRIVE TO USE NORMAL WRITE GATE THOUGHOUT THE WRITE PROCESS. 



TEST 3 WRITE. WRITE CHECK ZEROS TEST 

THE TEST WRITES ANL WRITE CHECKS AN ALL ZEROS DATA FIELD. 
VERIFYING THAT THERE ARE .0 ERRORS. 



TEST 4 WRITE. WRITE CHECK ZEROS W/ WCE ERROR TEST 

THE TEST WRITES AN ALL ZEROS DATA FIELD. THEN COMPLEMENTS 
EACH BIT IN THE LAST WORD OF THE WRITE BUFFER. A WRITE CHECK 
COMMAND IS EXECUTED AND THE TEST VERIFIES THAT THE CORRECT WRITE 
CHECK ERROR IS DETECTED. 



TEST 5 WRITE, READ ONES TEST 

THE TEST WRITES AND READS AN ALL ONES DATA FIELD. CAUSING 
THE DRIVE TO USE NORMAL WRITE GATE THOUGHOUT THE WRITE PROCESS. 



SEO 0010 
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457 

458 TEST 6 WRJTE. WRITE CHECK ONES TEST 

459 

460 THE TEST WRITES AND WRITE CHECKS AN ALL ONES DATA FIELD. 

461 

46? 
463 
464 
465 

466 TEST 7 WRITE. WRITE CHECK ONES W/ WCE ERROR TEST 

467 

4o8 THE TEST WRITES AN ALL ONES DATA FIELD, THEN PERFORMS A 

469 WRITE CHECK DATA COMMAND AFTER COMPLEMENTING EACH BIT IN THE LAST 

470 WORD OF THE WRITE BUFFER. THE TEST VERIFIES THAT THE CORRECT 

471 WRITE CHECK ERROR IS DETECTED. 
472 

473 
474 
475 
476 

477 TEST 10 WRITE, WRITE CHECK MULTIPLE SECTORS TEST 

478 

479 THE TEST SEEKS TO CYLINDER 0 TO INSURE THERE IS NO HEAD 

480 MOTION DURING DATA TRANSFER. THE WRITE DATA COMMAND FOLLOWS. 

481 WITH THE WORD COUNT EQUAL TO MULTIPLE SECTORS. THE SAME SECTORS 

482 ARE VERIFIED WITH A WRITE CHECK DATA COMMAND. 
483 

484 
485 
486 
487 

488 TEST 11 WRITE, READ WITH IMPLIED SEEK TEST 

489 

490 THIS TEST SEEKS TO THE UST CYLINDER PRIOR TO WRITING DATA 

491 ON CYLINDER 0. TRACK 0. SECTOR 0. THE EXPLICIT SEEK INSURES THAT 

492 THERE WILL BE MAXIMUn HEAD MOTION DURING THE IMPLIED SEEK OF THE 

493 WRITE COMMAND. THE SAME OPERATION, INCLUDING THE EXPLICIT SEEK 

494 IS REPEATED FOR READ DATA. 
495 

496 
497 
498 
499 

500 TEST 12 WRITE. WRITE CHECK WITH HEAD SWITCHING TEST 

501 

502 THE TEST SEEKS TO CYLINDER 0 TO INSURE THERE IS NO HEAD 

503 MOTION DURING DATA TRANSFER. TH: WRITE DATA COMMAND STARTS WITH 

504 CYLINDER 0. TRACK 0. SECTOR 31. HE WORD COUNT IS EQUAL tq 

505 MULTIPLE SECTORS WHICH CAUSES THt SUBSYSTEM TO SWITCH FROM TRACK 

506 0 TO TRACK 1 AFTER THE FIRST OF THE MULTIPLE SECTORS ARE WRITTEN. 

507 THE SAME SECTORS ARE VERIFIED WITH A WRITE CHECK DATA COMMAND. 

508 USING THE SAME WORD COUNT AND STARTING SECTOR. 
509 

510 
511 
512 
513 
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5K TEST 13 WRITE. WRITE CHECK WITH MID-TRANSFER SEEK TEST 

516 THIS TEST WRITES MULTIPLE SECTORS STARTING WITH CYLINDER 0. 

517 LAST TRACK AND SECTOR 31., CAUSING A MID-TRANSFER SEEK AFTER THE 

518 FIRST SECTOR IS WRITTEN. THE SAME SECTORS ARE VERIFIED WITH A 

519 WRITE CHECK DATA COMMAND. 
520 

521 
522 
523 
52^ 

525 TEST U WRITE. READ W/ HCE ERROR TEST 

526 

527 A SECTOR IS FORMATTED WITH AN INCORRECT HEADfR, THEN THE 

528 TEST WRITES AND READS DATA FROM THE SECTOR AND VERIFIES THAT THE 

529 CORRECT ERROR IS DETECTED. EACH BIT POSITION OF BOTH HEADER 

530 WORDS IS TESTED IN THIS MANNER. 
531 

532 
533 
534 
535 

536 TEST 15 WRITE. READ W/ HCI TEST 

537 

538 A SECTOR IS FORMATTED WITH AN INCORRECT HEADER, THEN WRITTEN 

539 AND READ WITH HEADER COMPARE INHIBITED. THE TEST VERIFIES THAT 

540 NO ERROR IS DETECTED. 
541 

542 
543 
544 
545 

546 TEST 16 WRITE, READ W/ IVC ERROR TEST 

547 

548 VOLUME VALID IS RESET BY SETTING AND RESETTING DIAGNOSTIC 

549 MODE. THE TEST THEN EXECUTES A IWITE DATA COMMAND AND VERIFIES 

550 THAT INVALID COMMAND STATUS SETS. THE TEST IS REPEATED FOR READ 

551 DATA COMMAND. 
552 

553 
554 
555 
556 

557 TEST 17 WRITE, READ W/ ABORT TEST 

558 

559 THE TEST SETS AN ERROR IN THE ERROR REGISTER AND EXECUTES A 

560 WRITE DATA COMMAND VERIFYING THAT 'PIP" REMAINS INACTIVE. THE 

561 SAME PROCEDURE IS USED FOR READ DATA COMMAND. 
562 

563 
564 
565 
566 

567 TEST 20 WRITE, READ EACH CURRENT LEVEL TEST 

568 

569 THE TEST WRITES AND READS ON EACH OF THE FOLLOWING CYLINDERS 

570 IN ORDER TO WRITE AT EACH POSSIBLE CURRENT THRESHOLD. 
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SEO 0015 



571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

^83 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 

601 

602 

603 

604 

605 

606 

607 

608 

609 

610 

611 

612 

613 

614 

615 

616 

617 

618 

619 

620 

621 

622 

623 

624 

625 

626 

627 



CYLINDER 



0 

128 
256 
384 
512 
640 
768 



110 MA 
104 MA 

97 MA 

91 

84 



MA 
MA 



77 MA 
70 MA 



TEST 21 WRITE. WRITE CHECK W/ CURRENT LEVEL SWITCHING TEST 

THE TEST WRITES 2 SECTORS STARTING WITH THE LAST SECTOR OF 
CYLINDER 383. THE FIRST SECTOR IS WRITTEN AT ONE CURRENT LEVEL 
AND THE SECOND SECTOR IS WRITTEN AT ANOTHER CURRENT LEVEL, BOTH 
SECTORS ARE VERIFIED WITH A WRITE CHECK DATA COMMAND. 



TEST 22 WRITE. READ EARLY PEAK SHIFT TEST 

THIS TEST WRITES AND READS A SINGLE SECTOR 
PATTERN DESIGNED TO INTRODUCE EARLY PEAK SHIFT. 



TEST 23 WRITE. READ MIXED PEAK SHIFT TEST 

THIS TEST WRITES AND READS A SINGLE SECTOR 
PATTERN DESIGNED TO INTRODUCE MIXED PEAK SHIFT. 



USING A DATA 



USING A DATA 



TEST 24 WRITE. READ EACH TRACK TEST 

THE TEST WRITES AND READS WITH EACH 
EARLY, NORMAL AND LATE WRITE GATES. 



HEAD USING A MIX OF 



TEST 25 READ. WRITES CHECK MULTIPLE SECTORS IN OFFSET MODE TEST 

THE TEST EXECUTES READ DATA AND WRITE CHECK DATA COMMANDS IN 
OFFSET MODE IN BOTH OFFSET DIRECTIONS WITH THE TRANSFER SIZE OF 
TWO SECTORS AT A TIME. 
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SEO 0015 



A 79 
480 



481 



482 



483 
484 



con 00 

104000 
000004 



.-•LAST REVISION 04-APR-81 

TLE CZRMC80 RM05/3/2 FCTNL TST 5 
OPYRIGHT (C) 1981 
DIGITAL EQUIPMENT CORPORATION 
COLORADO SPGS., CO. 80919 

PROGRAM BY MIKE LEAVITT 

THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SVSMAC 
PACKAGE (MAINDEC-11-DZQAC-C5), 18-MAR-81 

S8TTL OPERATIONAL SWITCH SETTINGS 



SWITCH 

" is' 

14 
13 
^2 
11 
10 

9 

8 

7 

6 

5 

4 

3 

2 

1 

0 



USE 



HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TYPEOUTS 

UNUSED 

INHIBIT ITERATIONS 

BELL ON ERROR 

LOOP ON ERROR 

LOOP ON TEST IN SWR<7:0> 

TNI 28 

TN64 

TN32 

TNI 6 

TN8 

TN4 

TN2 

TNI 



.S8TTL BASIC DEFINITIONS 



.•♦INITIAL ADDRESS OF 
STACK = 1100 
ERROR = EMT 
SCOPE = lOT 



THE STACK POINTER 1100 



.•;BASIC 
;;8ASK 



DEFINITION 
DEFINITION 



OF 
OF 



ERROR 
SCOPE 



CALL 
CALL 



00001 1 
000012 
000015 
000200 
177776 
177776 
1 77771, 
1 77772 
U7S70 
177570 



000000 
000001 
000002 
000003 



.••MISCELLANEOUS 



HT 
LF 
CR 
CRLF 
PS 

PSW=PS 
STKLMT = 
PIRO = 
DSWR 

DDISP = 

.••GENERAL 

RO 

R1 

R2 

R3 



11 
12 
15 
200 

177776 

1 7777i, 
m772 
}77'i70 
1 77570 

PURPOSE 

XO 

Xl 

%2 

XI 



DEFINITIONS 

CODE 



FOR HORIZONTAL TAB 
CODE FOR LINE FEED 
CODE FOR CARRIAGE RETURN 
CODE FOR CARRIAGE RETURN-LINE 
PROCESSOR STATUS WORD 



FEED 



STACK LIMIT REGISTER 
PROGRAM INTERRUPT REQUEST REGISTER 
HARDWARE SWITCH REGISTER 
HARDWARE DISPLAY REGISTER 



REGISTER DEFINITIONS 

;GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
IGENERAL REGISTfcR 



CZRMOBO RM05/3/2 FCTNL TST 3 
BASIC DEFINITIONS 

OOOOOA 
000005 
000006 
000007 
000006 
000007 



000000 
000040 
000100 

ooouo 

000200 
000240 
000300 
000340 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
00000'' 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
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R4 - X4 ;; GENERAL REGISTER 

R5 - X5 ; .-GENERAL REGISTER 

R6 - 16 .-.-GENERAL REGISTER 

R7 = X7 ;; GENERAL REGISTER 

SP = 26 ;; STACK POIN^fR 

PC = X7 .-.-PROGRAM COl^fER 

.-•PRIORITY LEVEL DEFINITIONS 

PRO = 0 .-.-PRIORITY LEVEL 0 

PR1 = 40 .-.-PRIORITY LEVEL 1 

PR2 = "00 .-.-PRIORITY LEVEL 2 

PR3 = 140 ; .-PRIORITY LEVEL 3 

PR4 = 200 ;; PRIORITY LEVEL 4 

PR5 = 240 ;; PRIORITY LEVEL 5 

PR6 = 300 .-.-PRIORITY LEVEL 6 

PR7 = 340 ;; PRIORITY LEVEL 7 

.-•"SWITCH REGISTER" SWITCH DEFINITIONS 

SW15 = 700000 

SW14 = 40000 

SW13 = 20000 

SW12 = 10000 

SW11 = 4000 

SW10 = 2000 

SW09 = 1000 

SW08 = 400 

SW07 = 200 

SW06 - 100 

SW05 = 40 

SW04 = 20 

SW03 = 10 

SW02 = 4 

SW01 = 2 

SWOO = 1 



SW9=SW09 
SW8=SW08 
SW7=SW07 
SW6=SW06 
SW5=SW05 
SW4=SW04 
SW3=SW03 
SW2=SW02 
SW1-SW01 
SW0=SW00 

.-•DATA BIT DEFINITIONS (BITOO TO BIT15) 

BJT15 = 100000 

BIT14 = 40000 

BIT13 = 20000 

BIT12 = 10000 

BIT11 = 4000 

BIT10 - 2000 

BIT09 = 1000 

BIT08 -- 400 

BIT07 = 200 

BIT06 = 100 

Bir05 = 40 



CZRioeO RM05/3/? FCTNL TST 
BASIC DEflNITIOf^S 

000020 
000010 
000004 
000002 
000001 
001000 
OOOAOO 
000200 
000100 
OOOOAO 
000020 
000010 
000004 
000002 
000001 



000004 
000010 
000014 
000014 
000014 
000020 
000024 
000030 
000034 
v100060 
000064 
000240 

486 
48/ 
488 
489 

490 004000 

491 000040 

492 000020 

493 000010 

494 000004 

495 000002 

496 000001 

497 000077 
498 

499 

500 000000 

501 000002 

502 000004 

503 000006 

504 000010 

505 000012 

506 000014 

507 000016 

508 000020 

509 000022 

510 000022 

511 000024 

512 000026 
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SEO 0017 



BIT04 

BIT03 

BIT02 

BITOl 

BITOO 

BIT9=8I 

BIT8=8I 

BIT7=BI 

BIT6=BI 

BIT5=BI 

BIT4=8I 

BIT3=8I 

BIT2=8I 

Bin =81 

BIT0=8I 

.••BASIC 

ERRVEC 

RESVEC 

T8ITVEC 

TRTVEC 

BPTVEC 

lOTVEC 

PWRVEC 

EMTVEC 

TRAPVEC 

TKVEC 

TPVEC 

PIROVEC 



T09 
T08 
T07 
T06 
T05 
T04 
T03 
T02 
TOl 
TOO 



20 
10 
4 
2 
1 



"CPU* ' 
: 4 

: 10 

: 14 

: 14 

: 14 

= 20 

24 
^ 30 
= 34 
= 60 
r 64 
= 240 



TRAP VECTOR ADDRESSES 

TIME OUT AND OTHER ERRORS 
iRESFRVED AND ILLEGAL INSTRUCTIONS 
"T" BIT 
TRACE TRAP 

;8REAKP0INT TRAP (8PT) 
INPUT/OUTPUT TRAP (lOT) *»SC0PE*« 
; POWER FAIL 

;E«ULATCR TRAP (EMT) ••ERROR** 
;"TRAP" TRAP 
TTY KEYBOARD VECTOR 
TTY PRINTER VECTOR 
;PROG«A« INTERRUPT REQUEST VECTOR 



,S8TTL R« REGISTER BIT DEFINITIONS 



;*Rf1CSl CONTROL STATUS REGISTER 



OVA 
F4 
F3 
F2 
F1 
FO 
60 



BIT11 
BIT05 
BIT04 
8IT03 
aiT02 
BITOl 
BITOO 



FNCMSK = 000077 



DEVICE AVAILABLE -fit AD ONLY 
FUNCTION CODE 
CODE 
CODE 
CODE 
CODE 



FUNCTION 
FUNCTION 
FUNCTION 
FUNCTION 
GO BIT 

FUNCTION CODE WASK 



.•FUNCTION 
NOP 

ILF02 - 

SEEK = 

RECAL = 

DRVCLR = 

RLEASE = 

OFFSET = 
RTC 
RIP 

PAKACK = 

PACACK = 

ILF.24 = 

ILF26 - 



CODES (81 TS 

000000 

000002 

000004 

000006 

000010 

000012 

000014 

000016 

000020 

000022 

PAKACK 

000024 

000026 



01-05 OF RMCSl) 

NOP COMMAND 
ILLEGAL COMMAND 
SEEK COMMAND 
RECALIBRATE COMMAND 
DRIVE CLEAR COMMAND 
RELEASE COMMAND 
OFFSET COMMAND 

RETURN TO CENTERLINE COMMAND 
READ IN PRESET COMMAND 
PACK ACKNOWLEDGE COMMAND 

ILLEGAL COMMAND 
ILLEGAL COMMAND 
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513 
516 



517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

53A 

535 

536 

557 

538 

539 

5A0 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

56A 



000030 
000030 
000032 
000034 
000036 
000040 
000042 
000044 
000046 
000050 
000052 
000054 
000056 
000060 
000062 
000064 
000066 
000070 
000072 
000074 
000076 



010000 
004000 
002000 
001000 
000400 



000020 
000010 
000004 
000002 
000001 



1 77400 
000377 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000001 



SEARCH 

ILF30 

JLF32 

1LF34 

ILF36 

ILF40 

ILF42 

ILF44 

1LF46 

UCD 

UCH 

ILF54 

ILF56 

WD 

UH 

ILF64 
JLF66 
RD 
RH 

ILF74 
ILF76 



000030 
000030 
000032 
000034 
000036 
000040 
000042 
000044 
000046 
000050 
000052 
000054 
000056 
000060 
000062 
000064 
000066 
000070 
000072 
000074 
000076 



;»RMDA DISK ADDRESS REGISTER 

.•TRACK ADDRESS DEFINITIONS 

TA16 = BIT12 

TA8 = BJT11 

TA4 = BITIO 

TA2 = BIT09 

TA1 = BIT08 



.•SECTOR 

SA16 

SA8 

SA4 

SA2 

SA1 

; TRACK 
TADMSK 
SADMSK 



ADDRESS 
= BIT04 
= BIT03 
= BIT02 
= BITOT 
= BITOO 



& SECTOR MASKS 
= 177400 
= 000377 



DEFINITIONS 



;»RMDS DRIVE STATUS REGISTER 



ATA 

ERR 

PIP 

MOL 

WRL 

L8T 

PGM 

DPR 

DRY 

VV 

OM 



BIT15 
BIT14 
BIT13 
BIT12 
8IT11 
BITIO 
BIT09 
BIT08 
BIT07 
BIT06 
BITOO 



;«RMER1 ERROR REGISTER *1 



SEARCH COMMAND 
ILLEGAL COMMAND 
ILLEGAL COMMAND 
ILLEGAL COMMAND 
ILLEGAL COMMAND 
ILLEGAL COMMAND 
II LEGAL COMMAND 
ILLEGAL COMMAND 
ILLEGAL COMMAND 
WRITE CHECK DATA COMMAND 
WRITE CHECK HEADER AND DATA 
ILLEGAL COMMAND 
•ILLEGAL COMMAND 
; WRITE DATA COMMAND 
; WRITE HEADER AND DATA COMMAND 
; ILLEGAL COMMAND 
: ILLEGAL COMMAND 
;READ DATA COMMAND 
iREAD HEADER AND DATA COMMAND 
ILLEGAL COMMAND 
; ILLEGAL COMMAND 



TRACK ADDRESS 16. 
TRACK ADDRESS 8. 
TRACK ADDRESS 4 
TRACK ADDRESS 2 
TRACK ADDRESS 1 



SECTCW ADDRESS 16. 
SECTOR ADDRESS 8. 
SECTOR ADDRESS A 
SECTOR ADDRESS 2 
SECTOR ADDRESS 1 



; TRACK ADDRESS MASK 
; SEC TOR ADDRESS MASK 



ATTENTION ACTIVE 
COMPOSITE ERROR 
POSITIONING IN PROGRESS 
MEDIUM ON LINE 
WRITE LOCK 

LAST BLOCK TRANSFERRED 

PROGRAMMABLE 

DRIVE PRESENT 

DRIVE READY 

VOLUME VALID 

OFFSET MODE ACTIVE 
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RM REGISTER BIT DEFINITIONS SEO 0019 



565 








BIT15 








566 


100000 


DCK 


- 






DATA CHECK ERROR 


567 


040000 


UNS 


- 


BIT14 






DRIVE UNSAFE 


568 


020000 


OP! 


- 


BIT13 






A n P A A T T Ak 1 t & 1 ^ AMAi r* T r* 

OPERATION INCOMPLETE 


569 


010000 


DTE 


- 


BIT12 






fNAfl/P Tf M r&l^ rAAAA 

DRIVE TIMING ERROR 


570 


004000 


WLE 


- 


BIT! 1 






1 lA r TP 1 A ^ r AAAA 

WRITE LOCK ERROR 


571 


002000 


lAE 


- 


BIT10 






T&II/AI Af\^Ar^C PAAAf^ 

INVALID ADDRESS ERROR 


572 


001000 


AOE 


— 


A 1 T Aft 

BI T09 






A^ftACCC Al/fnri Al 1 C A A A A 

ADDRESS OVERFLOW ERROR 


573 


00G400 


HCRC 


— 


A T T A O 

BI T08 






iiPAf\PA P A AAA 

HEADER CRC ERROR 


57A 


000200 


HCE 


- 


A T T A 7 

BI T07 






liPAf\PA ^AMAAAP PAAAA 

HEADER COMPARE ERROR 


575 


000100 


fcCH 


— 


n T ta^ 

BjT06 






C f f *^JAAf\'* f A AAA 

ECC mARD ERROR 


576 


000040 


WCF 


— 


O T T AC 






WRJIt ClOlK rAJLUKE 


577 


000020 


FER 


— 


O T T A/ 








578 


000010 


PAR 




A T T A T 

BI T03 






PARlTy ERROR 


579 


000004 


RMR 




A T T A 1 

BI T02 






REGISTER MODIFICATION REFUSED 


580 


A A AAA*) 

000002 


ILR 




BIT01 






ILLEGAL REGISTER 


581 


000001 


ILF 




BITOO 






ILLEGAL FUNCTION 


582 
















583 


115 760 


NDTMSK 




DCK. DTE 


IWLEIAOE 


HCRC .'HCE !ECH!WCF !FER 


58A 




;'rjDTMSK" 


IS USED 


TO MASK 


ERROR REGISTER 1 DURING NON - DATA 


535 




.•COMWANDS. I.E.. 


^OUSEKEEPING AND POSITIONING COMMANDS 


586 
















587 






ATTENTION 


SUMMARY 


REGISTER 


588 
















589 


000^77 


A TKMCV 




377 




;MASK FOR ATTENTION BITS 


590 
















591 






LOOK AHEAD REGISTER 




592 
















593 


002000 


SC4 




BJT10 






.•SECTOR COL\T = 16 


594 


001000 


SC3 




BIT09 






; SECTOR COUNT = 8 


595 


000400 


SC2 




BIT08 






.•SECTOR COUNT = 4 


596 


000200 


SCI 




BIT07 






.•SECTOR COUNT = 2 


597 


000 1 00 


SCO 




BJT06 






.•SECTOR COUNT = 1 


598 
















599 


A AT "7 A A 

003700 


SCTMSK 




003700 




.•SECTOR COUNT MASK 


600 
















601 




;*R«MR1 


MAINTENANCE REGISTER ff^ 




602 
















603 




.•WRITE 


ONLY BITS 








604 


1 AAAAA 

1 00000 


D8CK 




BJT15 






.■DEBUG CLOCK 


605 


A/ A AAA 

040000 


DBEN 




BIT14 






.•DEBUG CLOCK ENABLE 


606 


A 1 AAA A 

020000 


DESL 




BJT13 






.•DIAGNOSTIC END OF BLOCK 


607 


A 4 AAA A 

010000 


DTO 




BIT12 






.■DIAGNOSTIC TIMEOUT 


608 


AA/ AAA 

004000 


MCLK 




BIT11 






.•MAINTENANCE CLOCK 


609 


AA^ aAa 

002000 


MRD 




BIT10 






;READ DATA 


610 


AA 4 AAA 

001000 


MUR 




BIT09 






.•UNIT READY 


61 1 


AAA/ AA 

000400 


MOC 




BIT08 






;0N CYLINDER 


612 


AAA "kAA 

000200 


MSER 




BIT07 






.-SEEK ERROR 


613 


000100 


MDF 




BIT06 






.•DRIVE FAULT 


614 


000040 


MS 




BIT05 






.•SECTOR PULSE 


615 


AAAAi A 

000010 


nwp 




BIT03 






.•WRITE PROTECT 


OlO 


r\f\f\f\r\L 

\J\AJW* 


MI 




8IT02 






; INDEX PULSE 


617 


000002 


MSC 




BIT01 






.•SECTOR COMPARE 


618 


000001 


DMD 




BJTOO 






.•DIAGNOSTIC MODE 


619 
620 




.•READ ONLY BITS 








621 


100000 


OCC 




BIT15 




.•OCCUPIED 
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SEQ 0020 



622 


040000 


RG 


- BJT14 


RUN AND GO 


623 


020000 


E8L 


= 8JT13 


FND OF BLOCK 


624 


010000 


REX 


- BIT 12 


EXCEPTION 


625 


004000 


ESRC 


= BJT11 


ENABLE SEARCH 


626 


002000 


PLFS 


= BIT10 ; 


LOOKING FOR SYNC 


627 


001000 


ECRC 


= 81T09 


ENABLE CRC OUT 


628 


000400 


PDA 


- BIT08 


DATA AREA 


629 


000200 


PHA 


= BIT07 


HEADER AREA 


630 


000100 


CONT 


= BIT06 


^ #^ft i V V ft 

CONTINUE 


631 


000040 


WC 


= BIT05 


WORD CLOCK 


652 


000020 


EECC 


- BIT04 


ENABLE ECC OUT 


633 


000010 


nwD 


- BIT03 


WRITE DATA BIT 


634 


000004 


LS 


BIT02 


LAST SECTOR 


635 


000002 


LSI 


= BITOi 


LAST SECTOR AND TRACK 


636 


C00001 


DMD 


- BITOO 


DIAGNOSTIC MODE 


637 










638 




; *RMDT 


DRIVE TVPt REGISTER 




639 










640 


1 00000 


NSA 


= BIT15 


K lA ▼ f^r^TAft AfVf\nr^^rA /\ 

NOT SECTOR ADDRESSED = 0 


641 


040000 


TAP 


= 8IT14 


TAPE DRIVE = 0 


642 


^ A AAA 

020000 


MOH 


= BIT13 


MOVING HEAD = 1 


643 


004000 


DRQ 


= BIT11 


DRIVE REQUEST REQUIRED 


644 










645 


020024 


SNGPRT 


= 020024 


•SINGLE PORT DRIVE TYPE (R 


646 


024024 


DDL PR T 


= 024024 .-DUAL PORT DRIVE TYPE (RMO 


647 










648 




;*Rf10F 


OFFSET REGISTER 




649 










650 


010000 


FMT16 


= BIT12 


;16 BIT WORD FORMAT 


651 


y\ /\ / A/\A 

004000 


ECI 


= BIT11 


.•ECC INHIBIT 


652 


002000 


HCI 


- BIT10 


.•HEADER COMPARE INHIBIT 


653 


U00200 


OFD 


- 8IT07 


.•OFFSET FORWARD 


654 










655 




; *RMDC 


DESIRED CYLINDER ADDRESS 


REGISTER 


656 










657 


001 777 


CYLMSK 


- 001777 


.-MASK FOR CYLINDER ADDRESS 


658 










659 




;»RMriR2 MAINTENANCE REGISTER »2 




660 










661 




.-READ 


ONLY BITS 




662 


100000 


RQA 


= BIT15 


;PORT A REQUEST 


663 


040000 


RQB 


= BITU 


;PORT B REQUEST 


664 


020000 


TAG 


- BIT13 


;TAG CONTROL 


665 


010000 


TST 


- 8IT'2 


.•COMMAND SEQUENCE TEST BIT 


666 


004000 


CC 


^ BIT11 


.CONTROL OR CYLINDER TAG 


667 


002000 


CH 


= 8IT10 


.•CONTROL OR HEAD TAG 


670 


001 000 


8809 


= 8IT09 


;TAG BUS 




000400 


8808 


- BIT08 


;TAG BUS 




AAA AAA 

000200 


8807 


- BIT07 


;TAG BUS 




000100 


8806 


= BIT06 


;TAG BUS 




00004 U 


8805 


= 8IT05 


;TAG BUS 




000020 


8804 


= BIT04 


;TAG BUS 




000010 


8803 


= BIT03 


;TAG BUS 




000004 


8802 


= BIT02 


;TAG BUS 




000002 


8801 


= BIT01 


;TAG BUS 




000001 


8800 


= BITOO 


;TAG BUS 
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SFO 00?1 



672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
68o 
687 
688 
689 
690 
69'' 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
708 



709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 



100000 
040000 
020000 

oirooo 

004000 
002000 
000200 
000010 



100000 
040000 



000000 
000006 
000012 
000014 
000016 
000020 
C00024 
000026 
000030 
000032 
000034 
000036 
000040 
000042 
000044 
000046 
000050 
000052 
000054 
000056 
000060 
000062 
000064 
000066 
000070 
000072 
000074 
000076 

000077 



100000 
040000 
020000 
002000 



.••RMER2 ERROR REGISTER 2 



BSE 
SKI 
OPE 
IVC 
LSC 
L8C 
DVC 
DPE 



8IT15 
8IT14 
61113 
BIT12 
BIT11 
BIT10 
8IT07 
8IT03 



.S8TTL PROGRAM MNEMONICS 



MSE 
USE 



= BIT15 
= 8IT14 



BAD SECTOR ERROR 
SEEK INCOMPLETE 
OPERATOR PLUG ERROR 
INVALID COMMAND ERROR 
LOSS Of SYSTEM CLOCK 
LOSS OF BIT CLOCK 
DEVICE CHECK 
DATA PARITY ERROR 



.•MANUFACTURING DETECTED SECTOR ERROR 
;USER DETECTED SECTOR ERROR 



,S8TTL RM REGISTER INDEX VALUES 



RMrsi 

RMDA 

RMDS 

RMER1 

RMAS 

RMLA 

RMMR1 

RMDT 

RMSN 

RMOF 

RMDC 

RMHR 

RMMR2 

RMER2 

RMEC1 

RMEC2 

ILRG50 

ILRG52 

ILRG54 

ILRG56 

ILRG60 

ILRG62 

ILRG64 

ILRG66 

ILRG70 

ILRG72 

ILRG74 

ILRG76 



IDXMSK 
.S8TTL 





00 


CONTROL STATUS REGISTER *1 


= 


06 


DISK ADDRESS REGISTER 




12 


DRIVE STATUS REGISTER 




14 


ERROR REGISTER *1 





16 


ATTENTION SUMMARY REGISTER 




20 


LOOK AHEAD REGISTER 




c4 < 


• MA tklTCklAurC OC/'fCTCD 




26 


•DRIVE TYPE REGISTER 




30 


•SERIAL NUMBER REGISTER 




32 


■OFFSET REGISTER 




34 


•DESIRED CYLINDER REGISTER 




36 


•HOLDING REGISTER 




40 


;MAINTENANCE REGISTER #2 




42 


; ERROR REGISTER #2 




44 


;ECC POSITION REGISTER 




46 


rECC PATTERN REGISTER 




50 


: ILLEGAL REGISTER 50 




52 


; ILLEGAL REGISTER 52 




54 


; ILLEGAL REGISTER 54 




56 


; ILLEGAL REGISTER 56 




60 


; ILLEGAL REGISTER 60 




62 


: ILLEGAL REGISTER 62 




64 


; ILLEGAL REGISTER 64 




66 


; ILLEGAL REGISTER 66 




70 


.ILLEGAL REGISTER 70 




72 


; ILLEGAL REGISTER 72 




74 


; ILLEGAL REGISTER 74 




76 


; ILLEGAL REGISTER 76 




77 


;MASK FOR REGISTER INDEX NUMBER 



RH CONTROLLER REGISTER BIT DEFINITIONS 



;*RMCS1 CONTROL STATUS REGISTER *1 



SC 
TRE 
MCPE 
PSEL 



= BIT15 
= BIT14 
= BIT13 
= BIT10 



SPECIAL CONDITION-READ ONLY 
TRANSFER ERROR 

MASS8US CONTROL BUS PARITY ERROR-READ ONLY 
PORT B SELECT 



rZWMCBO RM05/3/2 FCTNL TST 3 MACRO V04.00 
RH CONTROLLER REGISTER BIT DEFINITIONS 



720 
721 
722 
723 
72A 
725 
726 
727 
728 
729 
730 
'31 

nd 

733 
734 
735 
736 
737 
738 
739 
742 



743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 

774 



001000 
000400 
000200 
000100 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



000007 



100000 
040000 
020000 
010000 
004000 
002000 
000100 
000010 
000004 
000002 
000001 



000000 
000002 
000004 
000010 
000022 
000050 
000052 

1 76700 
120254 



A17 
A16 
RDY 
IE 



J 2 
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= BIT09 
= BIT08 
= BIT07 
= B1T06 



SEQ 002. 



ADDRESS EXTENSION 
ADDRESS EXTENSION 
READY-READ ONLY 
INTERRUPT ENABLE 



;»RMCS2 RH CONTROL STATUS REGISTER »2 



DLT 

UCE 

UPE 

NED 

NEM 

PGE 

MXF 

MOPE 

OR 

IR 

CLR 

PAT 

BAI 

U2 

U1 

UO 



= BIT15 
= BIT14 
= BIT13 
= BIT12 
= 8JT11 
= BIT10 
= BIT09 

- BIT08 

- 8IT07 
= BIT06 

- BIT05 

- BITO-; 
= BIT03 
= BIT02 
= BIT01 
= 81 TOO 



DATA LATE-READ ONLY 
WRITE CHECK ERROR-READ ONLY 
UNI8US PARITY ERROR 
NONEXISTANT DRIVE-READ ONLY 
NONEXISTANT MEMORY-READ ONLY 
PROGRAM ERROR-READ ONLY 
MISSED TRANSFER 

MASS8US DATA BUS PARITY ERROR-READ ONLY 
OUTPUT READiY-READ ONLY 
INPUT READY-READ ONLY 
CONTROLLER CLEAR 
PARITY TEST 

UNI8US ADDRESS INCREMENT INHIBIT 
UNIT SELECT 
UNIT SELECT 
UNIT SELECT 



;UNIT SELECT MASK 

UNTMSK = 7 .-UNIT SELECT MASK 

.••flMCS3 RH70 CWJTROL STATUS REGISTER #3 



APE 

DPEHI 

DPELO 

WCEHI 

UCELO 

DSL 

IE 

IPCK3 
IFCK2 
IPCKI 
IPCKO 



BIT15 
BIT14 
BIT13 
8IT12 
81T11 
BITIO 
BIT06 
BIT03 
BIT02 
BITOI 
81 TOO 



ADDRESS PARITY ERROR 
DATA PARITY ERROR HIGH WORD 
DATA PARITY ERROR LOW WORD 
WRITE CHECK ERROR HIGH WORD 
WRITE CHECK ERROR LOW WORD 
DOUBLE WORD TRANSFER 
INTERRUPT ENABLE 
INVERT PARITY CHECK 
INVERT PARJTY CHECK 
INVERT PARITY CHECK 
INVERT PARITY CHECK 



SBTTL RH CONTROLLER REGISTER INDEX VALUES 



RMCS1 

RMWC 

RMBA 

RMCS2 

RMDB 

RflBAE 

RMCS3 

ABASE 
AVECT1 



00 
02 
04 
10 
22 
50 
52 

176700 
120254 



CONTROL. STATUS REGISTER *1 

WORD COUNT REGISTER 

BUS ADDRESS REGISTER 

CONTROL. STATUS REGISTER #2 

DATA BUFFER 

BUS ADDRESS EXTENSION 

CONTROL. STATUS REGISTER #3 

:UNI8US ADDRESS 

;UNI8US VECTOR ADDRESS AND PRIORITY 



C7RM0B0 RliOS/5/2 FCTNL TST 3 
TRAP CATCHER 



1 



000000 



0001 74 
0001 ?t^ 000000 
000176 000000 



K 2 
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.S8TTL TRAP CATCHER 
.=0 

•ALL UNUSED LOCATIONS FROM A - 776 CONTAIN A •'.♦2,HAlT" 
•SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
•LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED ""^'TORS 
.=17A 

DISPREG: .WORD 0 ; .'SOFTWARE DISPLAY REGISTER 

SWREG: .WORD 0 .-.-SOFTWARE SWITCH REGISTER 



SEO 0023 



2 

3 000204 000137 005422 
4 
5 



000200 000137 005452 



6 
7 
8 



000210 
000046 
000046 037242 
000052 
000052 000000 
000210 

001100 



000024 
000044 



0011 00 
001100 
001102 
001104 
001106 
001110 
001112 



0011 00 
000024 
000200 
000044 
001100 
001100 



000000 
001222 
000006 
000006 
000006 
000042 
001114 



.S8TTL STARTING ADDRESS(ES) 
JMP OirSTART 
JMP a^STARTI 

.S8TTL ACT11 HOOKS 



;;JUWP TO STARTING ADDRESS OF PROGRAM 
.-CHANGE RH/RM BUS ADDRESS 



;;1)SET L0C.46 TO ADDRESS Or SENDAD IN .$EOP 

;.-2)SET LOC.52 TO ZERO 
;; RESTORE PC 



• •******>**********•***********••***•**•************•**•*•***•**• 

•HOOKS REQUIRED BY AC Til 

$SVPC=. .-SAVE PC 

.=46 
SENDAD 
.=52 

.WORD 0 
.-SSVPC 

.-1100 

.S8TTL APT PARAMETER BLOCK 

••**»»*********••••••****»*••***»****»*•*»*****•*••*»***********• 

•SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 

••**»**»»••••*»*••*»•*••♦»♦**♦•♦••»*»»••»*«*»•»»*»•••*•***••*♦*••• 
.$X=. ;;SAVE CURRENT LOCATION 

.=24 ;;SET POWER FAIL TO POINT TO START OF PROGRAM 
200 ;;FOR APT START UP 

.=44 ; .-POINT TO APT INDIRECT ADDRESS PNTR. 
SAPTHDR ; .-POINT TO APT HEADER BLOCK 
. = .$X .-.-RESET LOCATION COUNTER 

;SETUP*APT*PARAM£TER BLOCK AS DEFINED IN THE APT-PDPH DIAGNOSTIC 
.-INTERFACE SPEC. 



SAPTHD 

$HI8TS 

$MBADR 

STSTM: 

SPASTM: 

SUNITM: 



TAGADR=. 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



0 

SMAIL 

6 
6 
6 



TWO HIGH BITS OF 13 BIT MAILBOX ADDR. 
ADDRESS OF APT MAILBOX (BITS 0-15) 
RUN TIM OF LONGEST TEST 

RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT 



$ETEND-SMAIL/2 .-.-LENGTH MAI L80X-E TABLE DWORDS) 



L 2 
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rOMMON TAGS 

0 .S8TTL COMMON TAGS 



SFQ 00?4 



;*THiS TABLE CONTAINS VARIOUS CCWMON STORAGE LOCATIONS 
;*USED IN THE PROGRAM. 



001 llA 

00111A 

001116 

001117 

001120 

001122 

001 12A 

001126 

001130 

001131 

001 1 32 

001134 

001136 

0011 AO 

001142 

0011AA 

001 146 

001 1 50 

001151 

001152 

001 1 54 

001156 

001160 

001162 

001164 

001166 

001170 

001171 

001172 

001173 

001174 

001176 

001200 

001202 

001204 

001206 

001210 

001212 

001216 

001217 

001220 



001114 

000000 
000 
000 
000000 
000000 
000000 
000000 
000 
001 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000 
000 
000000 
177570 
177570 
1 77560 
1 77562 
177564 
1 77566 
000 
002 
012 
000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
207 
077 
015 
012 



377 
000 



.=TAGADR 



SCMTAG: 








.WORD 


0 


STSTNM: 


.BYTE 


0 


SERFLG: 


.BYTE 


0 


$ICNT: 


.WORD 


0 


SLPADR: 


.WORD 


0 


SLPERR: 


.WORD 


0 


SERTTL: 


.WORD 


0 


SITEMB: 


.BYTE 


0 


SERMAX: 


.BYTE 


1 


SERRPC : 


.WORD 


0 


SGDADR: 


.WORD 


0 


S8DADR: 


.WORD 


0 


$GDDAT: 


.WORD 


0 


SeDDAT: 


.WORD 


0 




.WORD 


0 




.WORD 


0 


SAUTOB: 


.BYTE 


0 


SINTAG: 


•BYTE 


0 




.WORD 


0 


SWR: 


.WORD 


DSWR 


DISPLAY 


: .WORD 


DD ISP 



$TKS : 
$TK8: 
$TPS: 
$TP8: 
SNULL: 
SFILLS: 
SFILLC: 
STPFLG: 
STMPO: 
STMPI : 
$TMP2: 
$TMP3: 
$TMP4: 
STIMES: 
SESCAPE 
377 $8ELL: 
SQUES: 
SCRLF; 
$LF 



177560 
177562 
177564 
1 77566 

.BYTE 0 

.BYTE 2 

.BYTE 12 

.BYTE 0 

.WORD 0 

.WORD 0 

.WORD 0 

.WORD 0 

.WORD 0 
0 
:0 

.ASCIZ <207><377><377> 

.ASCII /?/ 

.ASCII <15> 

.ASCIZ <12> 



; .-START OF COMMON TAGS 

;; CONTAINS THE TEST NUMBER 

;; CONTAINS ERROR FLAG 

-CONTAINS SUBTEST ITERATION COUNT 

;; CONTAINS SCOPE LOOP ADDRESS 

;; CONTAINS SCOPE RETURN FOR ERRORS 

;; CONTAINS TOTAL ERRORS DETECTED 

;; CONTAINS ITEM CONTROL BYTE 

;; CONTAINS MAX. ERRORS PER TEST 

.'.-CONTAINS PC OF LAST ERROR INSTRUCTION 

;; CONTAINS ADDRESS OF 'GOOD' DATA 

;; CONTAINS ADDRESS OF 'BAD' DATA 

;; CONTAINS 'GOOD' DATA 

.-.•CONTAINS 'BAD' DATA 

;; RESERVED— NOT TO BE USED 

.-.•AUTOMATIC MODE INDICATOR 
;; INTERRUPT MODE INDICATOR 

.-.•ADDRESS OF SWITCH REGISTER 
; .-ADDRESS OF DISPLAY REGISTER 
;;TTY ICBD STATUS 
;;TTY ICBD BUFFER 

;;TTY PRINTER STATUS REG. ADDRESS 
.-;TTY PRINTER BUFFER REG. ADDRESS 
; .'CONTAINS NULL CHARACTER FOR FILLS 
; .'CONTAINS * OF FILLER CHARACTERS REQUIRED 
.'.•INSERT FILL CHARS. AFTER A "LINE FEED" 
.-.'"TERMINAL AVAILABLE" FLAG (8IT<07>=0-YES) 
;;USER DEFINED 
;;USER DEFINED 
.-.-USER DEFINED 
;;USER DEFINED 
;;USER DEFINED 
;;MAX. NUMBER OF ITERATIONS 
; .-ESCAPE ON ERROR ADDRESS 
;;CODE FOR BELL 
.-.-QUESTION MARK 
.-.-CARRIAGE RETURN 
.-.-LINE FEED 



•*•***•**•**•*****••****»*»**•*»••»•****•*»**••**•»*•••*»»»••»» 

!S8TTL APT MAI LBOX-E TABLE 

• -*****•**********•*****••*»•••*•*••••****•»••••****«•••••••••••• 



001222 

001222 000000 

001224 000000 

001226 000000 



.EVEN 
SMAIL: 

SMSGTY: .WORD 
SFATAL: .WORD 
STESTN: .WORD 



AMSGTY 
AFATAL 
ATESTN 



APT MAILBOX 
MESSAGE TYPE CODE 
FATAL ERROR NUMBER 
TEST NUMBER 
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SEO OOPS 



001250 


000000 


SPASS 




WORD 


APASS 




001252 


000000 

www 


SDEVCT: 


UORD 


ADEVCT 






000000 

WW WW 


SUNIT 




UORD 


AUNIT 


• I/O IINiT NlMRFR 


001256 


000000 

WW WW 


WSGAD: 


UORD 




« r It w~\JL m/L/nr (J J 


001240 

VW » C. » V 


000000 

www 


MSGLG: 


.UORD 


AMSGLG 


■MESSAGE LENGTH 


001242 

WW • fc^fc 




$E TABLE 






;APT ENVIR0f#1ENT TABLE 


001242 


000 

V w 


$ENV: 




BYTE 


AENV ; 


; ENVIRONMENT BYTE 


001 245 


000 

WW 


SENVM 




BYTE 


AENVM 


.'ENVIRONMENT MODE BITS 


001 244 


000000 

W V WW WW 


SSWREG: 


.WORD 


ASWREG ; 


;APT SWITCH REGISTER 


001 246 


000000 

w W W W WW 


$USWR 




.WORD 


AU3WR 


;USER SWITCHES 


001 250 


000000 

w wwwww 


SCPUOP: 


.WORD 


ACPUOP ; 


;CPU TYPE, OPT IONS 






■ » 






BITS 15-11=CPU TYPE 














1 1 /04=01 , 1 1 /05=02, 1 1 /20=03. 1 1 /40=04 , 1 1 /45=05 














11/70=06,PDQ=07.Q=10 












BIT 10=REAL TIME CLOCK 






■ * 
• 






BIT 9=fL0ATiNG POINT PROCESSOR 






• • 






BIT S^MEMORf MANAGEMENT 


001252 


000 


$«A«S1 




.BYTE 


AMAMS1 ; 


.-HIGH ADDRESS, M.S. BYTE 


001253 


000 


SMTYPI : 


.BYTE 


AMTYP1 ; 


;MEM. TYPE,BLK#1 






• * 

0 






MEM. TYPE BYTE — (HIGH BYTE) 






0 








900 NSEC CORE =001 






0 








300 NSEC BIP0LAR=002 

W l«wL V, Ui * wU.rVl~ Wt 














500 NSEC MOS=003 


001254 


000000 


$MAD«1: 


.WORD 


AMADR1 ; 


.-HIGH ADDRESS, BLK>V1 






;* 








MEM.LAST ADDR.=3 BYTES. THIS WORD AND LOW OF 'lYPE"' 


001256 


000 


$MAMS2: 


.BYTE 


AMAMS2 ; 


;HIGH ADDRESS,M.S. BYTE 


001257 


000 


$«TYP2: 


.BYTE 


AMTYP2 ; 


;M£M.TYPE,BLK#2 


001260 


000000 


$MADR2: 


.WORD 


AMADR2 ; 


;MEM.LAST ADDRESS .BL>0ir2 


001262 


000 


$MA«S3: 


.BYTE 


AMAMS3 ; 


;HI6H ADDRESS, M.S. BYTE 


001263 


000 


$MTYP3: 


.BYTE 


AMTYP3 ; 


; MEM. TYPE .8LK#3 


001264 


000000 


SMACR3: 


.WORD 


AMADR3 ; 


.-MEM.LAST ADDRESS ,BLI0ir3 


001 266 


000 


SA1AMS4: 


.BYTE 


AflAMSA : 


.-HIGH ADDRESS, M.S. BYTE 


001267 


000 


$MTyP4: 


-BYTE 


AMTYP4 ; 


;MEM.TYPE.8LK#4 


001270 


000000 


$MADR4: 


.WORD 


AMADR4 : 


;M£M.LAST ADDRESS. BLM'4 


001272 


120254 


$VECT1: 


.WORD 


AVECT1 ; 


.•INTERRUPT VECTOR/ri.BUS PRIORI TY^I 


001274 


000000 

www 


$VECT2: 


.WORD 


AVECT2 ; 


; INTERRUPT VECT0R#28US PRIORI TY*2 


001 276 


1 76700 


S8ASE 




.WORD 


ABASE ; 


.-BASE ADDRESS OF EQUIPMENT UNDER TEST 


001300 


000000 

w wwwww 


SDEVM 




.WORD 


ADEVM ; 


;DEVICE NAP 


001302 


000000 

www www 


SCDW1 




[word 


ACDW1 


; CONTROLLER DESCRIPTION W0RD*1 


001304 


000000 

W W W \/ 


SC0U2 




.WORD 


ACDW2 : 


.•CONTROLLER DESCRIPTION W0RD#2 


001306 


000000 

WW WW WW 


SDOWO 




WORD 


ADDWO ; 


.•DEVICE DESCRIPTOR WOR9*0 


001310 


000000 

W W W WW w 


SDDU1 




WORD 


A0DW1 


.•DEVICE DESCRIPTOR. W0RD*1 


001312 


000000 


$DDW2. 




.WORD 


A0DW2 


; DEVICE DESCRIPTOR W0RDi»2 


001314 


000000 


$DDW3 




.WORD 


ADDW3 


.'DEVICE DESCRIPTOR W0RD*3 


001316 


000000 


$DDW4 




.WORD 


ADDW4 : 


; DEVICE DESCRIPTOR W0RD«4 


001320 


000000 


SDDU5 




.WORD 


ADDW5 


.'DEVICE DESCRIPTOR WORDXrS 


001322 


000000 


SDDU6 




.WORD 


ADDW6 ; 


.'DEVICE DESCRIPTOR WORD/^6 


001324 


000000 


$DDW7 




.WORD 


ADDW7 


.'DEVICE DESCRIPTOR W0RD#7 


001326 




SETEND: 
.MEXIT 
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001 326 000000 
001 330 000000 
001 332 000000 
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001 33A 
001 335 



001336 



001336 
001 3A0 
001 3A2 
001 3AA 
001 3A6 
001350 
001352 
001 35A 
001356 
001360 
001362 
001 36A 
001366 
001370 
001372 
001 37A 
001376 
001 AOO 
001 A02 
001 AOA 
001 A06 
001A10 



00U12 



000 
000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



SEQ 0026 



,S8TTL USER DEFINED TAGS 



CTLFG: 

CHGADR: 

XXDP: 



.STRK: 



.WORD 
.WORD 
.WORD 



-BYTE 
.BYTE 



0 
0 
0 



0 
0 



CONTAINS CONTROL-C FLAG 

CHANGE RH/RM BUS ADDRESS = -1 , NO CHANGE 0 

THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH 



THE HIGH BYTE CONTAINS THE 
THE RM05/3/2. 



THE PROGRAM WAS LOADED 
•XXDP' DEVICE CODE FOR 
LO BYTE = 0 

HI BYTE, CONTAINS LAST TRACK ADDRESS OF 
UNDER TEST. RM02/3 = A 



RM05 = 18. 



UNIT 



.-THE REGISTER INPUT BUFFER IS USED FOR 
.•STORING DRIVE STATUS 



GET8UF: 

.•REGIS 
RMCS1I 
RMWCI 
RMBAI 
RMDAI 
RMCS2I 
RMDSI : 
RMER1I 
RMASI 
RMLAI 
RMD8I 
RMMR1I 
RMDTI 
RMSNI 
RMOFI 
RMDCI 
RWRI 
RMMR2I 
RMER2I 
RMEC1I 
RMEC2I 
RABAEI 
RMCS3I 



TEft INPUT BUFFER 



.WORD 


0 


.WORD 


0 


.WORD 


0 


.WORD 


0 


.WORD 


0 


.WORD 


0 


.WORD 


0 


• WORD 


0 


.WORD 


0 


.WORD 


0 


.WORD 


0 


.WORD 


0 


.WORD 


0 


.WORD 


0 


.WORD 


0 


.WORD 


0 


.WORD 


0 


.WORD 


0 


.WORD 


0 


.WORD 


0 


.WORD 


0 


.WORD 


0 



CONTROL, STATUS REGISTER »^ 
WORD COUNT REGISTER 
BUS ADDRESS REGISTER 
DISK ADDRESS REGISTER 
CONTROL, STATUS REGISTER *2 
DRIVE STATUS REGISTER 
ERROR REGISTER *1 
ATTENTION SUMMARY REGISTER 
LOOK AHE^D REGISTER 
DATA BUF'^ER 

MAINTENANCE REGISTER #1 

DRIVE fYPE REGISTER 

SERIAL NUPCER REGISTER 

OFFSET REGISTER 

DESIRED CYLINDER REGISTER 

HOLDING REGISTER 

MAINTENANCE REGISTER *2 

ERROR REGISTER »2 

ECC POSITION REGISTER 

ECC PATTERN REGISTER 

BUS ADDRESS EXTENSION REGISTER 

CONTROL, STATUS REGISTER *3 



;THE REGISTER OUTPUT BUFFER IS USED FOR 
;ASSEMBLING DATA GOING TO REGISTER 

PUT8UF : 



001A12 


000000 


RMCS10: 


.WORD 


0 


CONTROL, STATUS REGISTER 




001 A1 A 


000000 


RMWCC 




.WORD 


0 


WORD COUNT REGISTER 




001 A1 6 


000000 


WBAO 




.WORD 


0 


•BUS ADDRESS REGISTER 




001 A20 


000000 


RMDAO 




.WORD 


0 


•DISK ADDRESS REGISTER 




001 A22 


000000 


RMCS20: 


.WORD 


0 


•CONTROL. STATUS REGISTER 
•DRIVE STATUS REGISTER 


00TA2A 


000000 


RMDSO 




.WORD 


0 




001 A26 


000000 


RMER10: 


.WORD 


0 


•ERROR REGISTER *1 




001 A30 


000000 


RMASO 




.WORD 


0 


■ATTENTION SUMMARY REGISTER 


001 A 32 


000000 


RMLAO 




.WORD 


0 


•LOOK AHEAD REGISTER 




00K3A 


000000 


RMD80 




.WORD 


0 


•DATA BUFFER 




001A36 


000000 


RMMR10: 


.WORD 


0 


•MAINTENANCE REGISTER #1 
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EQ 00^^ 



00U40 
00U42 

00H46 
00K50 
OOK52 
00K54 
00K56 
00K60 
001462 
001464 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



001466 000000 
C01470 

001510 000000 



001512 000000 



001514 000000 

001516 000000 

001 520 000000 

001522 000000 



001 524 



RMDTO: 

RMSNO: 

RMOFO: 

RMDCO: 

RMHRO: 

RmR20: 

RMER20: 

RMECIO: 

RMEC20: 

RmAEO: 

RMCS30: 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



0 
0 
0 
0 
0 
0 
0 

c 

0 
0 
0 



DRIVE TYPE REGISTER 

SERIAL NUMBER REGISTER 

OFFSET REGISTER 

DESIRED CYLINDER REGISTER 

HOLDING REGISTER 

MAINTENANCE REGISTER #2 

ERROR REGISTER #2 

ECC POSITION REGISTER 

ECC PATTERN REGISTER 

BUS ADDRESS EXTENSION REGISTER 

CONTROL, STATUS REGISTER #3 



EACH WORD OF THE TEST QUE CONTAINS THE DEVICE NUMBER IN 
THE LOW BYTE AND THE ATTENTION BIT IN THE HIGH BYTE. THE 
FIRST WORD CONTAINS THE ADDRESS OF THE DEVICE UNDER TEST 
IN THE TABLE. A ZERO WORD IS A BLANK AND REPRESENTS THE 
END Of THE QUE. 



TSTQUE: .WORD 0 
.BLKW 8. 
.WORD 0 



CONTAINS DEVICE POINTER 
TEST QUE FOR DEVICES UNDER TEST 
TABLE TERMINATOR GOES HERE WHEN 
ALL 8. DEVICES ARE UNDER TEST. 



.•MEDIA ENA8L IS SET IF THE BAD SECTOR FILES HAVE BEEN RECOVERED 
;FOR .HE UNIT UNDER TEST, OTHERWISE IT IS ZERO. 
MEDENB: .WORD 0 .'MEDIA ENABLE 

.•LOCATIONS "ASNDC" AND "ASNDC" CONTAIN THE CYLINDER. TRACK AND SECTOR 
.•ADDRESS ASSIGNED BY THE BAD SECTOR MODULE. 
ASNDC: .WORD 0 .-ASSIGNED DESIRED CYLINDER 



ASNDA: .WORD 0 
CLKADR: .WORD 0 
CLKVCT: .WORD 0 



ASSIGNED TRACK. AND SECTOR 
UNIBUS ADDRESS OF KWll CLOCK 
VECTOR ADDRESS OF KWll CLOCK 



001553 



THE GET INDEX TABLE CONTAINS A BYTE LIST OF REGISTERS WHICH 
ARE READ BY THE GET SL0ROUTINE. THE LIST IS TERMINATED BY 
A NEGATIVE BYTE. 
GCTINX: .8LKB 23. ;GET INDEX TABLE 

THE PUT INDEX TABLE ICONTAINS A BYTE LIST OF REGISTERS WHICH 
ARE WRITTEN BY THE PUT SUBROUTINE. THE LIST IS TERMINATED BY 
A NEGATIVE BYTE. 
PUTINX: .8LK8 23. ;PUT INDEX TABLE 



;PUT TAGS HERE 
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SEO 00?8 



.S8TTL ERROR POINTER TABLE 

•THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

•THE INFORMATION IS OBTAINED BV USING THE INDEX NUMBER FOUND IN 

•LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PEHTINEN'. 

•N0TE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPO- 

•N0TE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 

• EM ; .-POINTS TO THE ERROR MESSAGE 

• DH ; .-POINTS TO THE DATA HEADER 

• DT ;;POINTS TO THE DATA 

• DF ;; POINTS TO THE DATA FORMAT 



1 
2 
3 



001602 



DC 1602 
C0160A 
001606 
001610 



4 
5 
6 



001612 
0016U 
001616 
001620 



8 

9 



072A0A 
076A70 
0766U 
076704 



072410 
076470 
076614 
076704 



001622 072416 

00" 624 076470 

001626 076614 

001630 076704 



10 
11 
12 



001632 
001634 
001636 
001640 



13 
14 
15 



001642 
001644 
001646 
001650 



072424 
076470 
076614 
076704 



072432 
076470 
076614 
076704 



SERRTB: 
.•ERROR 1 



EMT1 
EHT1 
EDT1 
EFT1 



.ERROR 2 



EMT2 
EHT1 
EDTI 
EFT1 



; ERROR 3 



cMT3 
EHT1 
EDTI 
EFT1 



; ERROR 4 



EMT4 

EHT1 
EDTI 
EFT1 



; ERROR 5 



EMT5 
EHT1 
EDTI 
EFT1 



WRONG UNIT SELECTED 



DEVICE WENT UNAVAILABLE 



DEVICE WENT NONEXISTENT 



CONTROLLER NOT READ*' 



DRIVE NOT READY AND GO NOT RESET 



'6 

17 



; ERROR 6 



UNEXPECTED VALUE FOR "ATA" STATUS 



CZRMOBO RM05/3/2 fZfNL TST 3 
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18 



001652 072440 

001654 076470 

001656 076614 

001660 076704 
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EMT6 
EHT1 
EDT1 
EFT! 



SEO 0029 



19 
20 
21 



001662 
001664 
001666 
001670 



2? 
25 
24 



001672 
001674 
C01676 
001 700 



072446 
000000 
000000 
000000 



072454 
076470 
076614 
076704 



; ERROR 7 



EMT7 
0 
0 
0 



; ERROR 10 



EMTIO 
EHT1 
EDT1 
EFT1 



BUS TIMEOUT TRYING TO READ OR WRITE REGISTER 



DRIVE NOT READY BUT GO IS RESET 



25 
26 
27 



001702 
001704 
001706 
001710 



072460 
076470 
0^6614 
076704 



: ERROR 11 



EMT11 
EHT1 
EDT1 
EFT1 



GO NOT RESET BUT DRIVE IS READY 



28 
29 
50 



001712 
001714 
001716 
001720 



51 
52 
35 



001722 
001724 
001726 
001750 



072464 
076470 
076614 
076704 



072472 
076470 
076614 
076704 



.-ERROR 12 



EMT12 
EHT1 
EDT1 
EFTl 



; ERROR 13 



EMT13 
EHTl 
EDT1 
EFTl 



INCORRECT FUNCTION CODE 



PARITY ERROR READING REMOTE REGISTERS 



34 
55 
56 



001 752 
001754 
001736 
001740 



37 
58 
59 



072504 
076470 
076614 
076704 



; ERROR U 



EMT14 
EHTl 
EDT1 
EFTl 



.-ERROR 15 



TRANSFER ERROR IS INCORRECT 



INCORRECT WORD COUNT 



CZRM080 RM05/3/2 fCTNL TST 
FRROR POINTER TABLE 

001742 072512 

001 7A4 076470 

001746 076614 

001750 076704 
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EMT15 
EHT1 
EDT1 
EFT1 



SEO 003O 



40 
41 
42 



001752 
001754 
001756 
001760 



072520 
076470 
076614 
076704 



.•ERROR 16 



EMT16 
EHT1 
EDT1 
EFT1 



INCORRECT BUS ADDRESS 



4? 
44 
45 



001762 
001764 
001 766 
C01770 



072530 
076470 
076614 
076704 



.■ERROR 17 



EMT17 
EHT1 
EDT1 
EFT1 



INCORRECT L8T STATUS 



46 
47 
48 



001 772 072540 

001774 076470 

001776 076614 

002000 076704 



; ERROR 20 



EMT20 
EHT1 
EDT1 
EFT1 



INCORRECT AOE 



49 
50 

51 



002002 072550 

002004 076470 

002006 076614 

002010 076704 



; ERROR 21 



EMT21 
EHT1 
EDT1 
EFT1 



INCORRECT DISK ADDRESS 



52 
51 
54 



002012 072560 

002014 076470 

002016 076614 

002020 076704 



.•ERROR 22 



EHT22 
EHT1 
EDT1 
EFII 



INCORRECT CYLINDER ADDRESS 



55 
56 
57 



002022 072570 

002024 076470 

002026 076614 

002030 076704 



;ERR0ft 23 



EMT23 
EHT1 
EDT1 
EFT1 



INCORRECT ULE STATUS 



58 

59 
60 



002032 072600 



.•ERROR 24 

EMT24 



INCORRECT UPE STATUS 



CZRM060 RM05/5/2 FCTNL TST 
ERROR POINTER TABLE 

002054 076470 
002056 0766U 
002040 076704 



61 
62 
65 



002042 072610 

002044 076470 

002046 0766K 

002050 076704 



64 
65 
66 



002052 072620 

002054 07b470 

002056 076614 

002060 076704 



67 
68 
69 



002062 
002064 
002066 
002070 



70 
71 
72 



002072 
002074 
002076 
002100 



75 
74 
75 



002102 
002104 
002106 
002110 



76 
77 
78 



002112 
002114 
002116 
002120 



79 
80 
81 



002122 
002124 



072650 
076470 
076614 



07264G 
076470 
076614 
076704 



072650 
076470 
076614 
076704 



072660 
076470 
076614 
076704 



072670 
076470 
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EHT1 
EDT1 
EFT1 



F 

PAGE 



5 
8-i 



; ERROR 25 



EMT25 
EHT1 
EDT1 
EFT1 



.-ERROR 26 



EMT26 
EHT1 
EDT1 
EFT1 



; ERROR 27 



EMT27 
EHT1 
EDTI 
EFTI 



; ERROR 50 



EMT50 
EMTI 
EDTI 
EFTI 



.-ERROR 51 



EHT31 
EHT1 
EDTI 
EFTI 



: ERROR 32 



EMT52 
EHT1 
EDTI 
EFTI 



; ERROR 55 



E«T?< 
EHT1 



SEO 0051 



INCORRECT UCF STATUS 



INCORRECT yCE STATUS 



INCORRECT MDPE STATUS 



INCORRECT DCK STATUS 



INCORRECT ECH STATUS 



DLT SHOULD NOT BE SET 



HXF SHOULD NOT BE SET 



CZ«10eO RK)5/3/2 FCTNL T5T 3 
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002126 0766U 
002130 076704 



82 
83 
84 



0021 52 
002134 
00c 36 
002K0 



85 
86 
87 



002 U2 
002K4 
002U6 
002150 



072700 
076470 
076614 
076704 



072710 
076470 
076614 
076704 
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EDTl 
EFTl 



.•ERROR 34 



EMT34 
EHT1 
EDTl 
EFTl 



.•ERROR 35 



EMT35 
EHT1 
EDTl 
EFTl 



DTE SHOULD NOT BE SET 



INCORRECT HCRC STATUS 



88 
89 

90 



0021 52 072720 

002154 076470 

002156 076614 

002160 076704 



.•ERROR 36 



EMT36 
EHT1 
EDTl 
EFTl 



INCORRECT HCE STATUS 



9i 
92 
93 



002162 
002164 
002^66 
002170 



94 
95 
96 



0021 72 
002174 
002176 
002200 



97 
98 
99 



002202 
002204 
002206 
002210 



072730 
076470 
076614 
076704 



072740 
076470 
076614 
076704 



072746 
076470 
076614 
076704 



; ERROR 37 



EMT37 
EHTl 
EDTl 
EFTl 



.•ERROR 40 



EMT40 
EHTl 
EDTl 
EFTl 



; ERROR 41 



EMT41 
EHTl 
EDTl 
EFTl 



INCORRECT FER STATUS 



DPE SHOULD NOT BE SET iNOT A DATA COMMAND) 



LOST 'mi" DURING PACK ACKNOWLEDGE 



100 
101 
102 



002212 
002214 
002216 



072756 
076470 
076614 



; ERROR 42 



EMT42 

EHTl 

EDTl 



UNSAFE ERROR DURING PACK ACKNOWLEDGE 



CZKMOBO W105/5/2 FCTNL TST 3 
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002220 076704 



10^ 
104 
105 



002222 072770 

002224 076470 

002226 076614 

002230 076704 



H 3 

mACRO \/04,00 4-AP.R-81 01:^5:59 PAGE S-'j 



EFT! 



; ERROR 43 



EMT43 
EHT1 
EDT1 
EFT1 



"DPI" ERROR DURING PACK ACKNOULEDOE 



106 
107 
108 



002232 073000 

002234 076470 

002236 076614 

002240 076704 



: ERROR 44 



EMT44 
EHT1 
EDTl 
EFT1 



••mi" ERROR DURING PACK ACKNOWLEDGE 



109 
110 
111 



002242 
002244 
002246 
002250 



112 
113 
114 



002252 
002254 
002256 
002260 



073010 
076470 
076614 
076704 



073020 
076470 
076614 
076704 



; ERROR 45 



EMT45 
EHT1 
EOT! 
EFT1 



; ERROR 46 



EriT46 
EHTl 
EDTl 
EfTI 



"ILR" ERROR DURING PACK ACKNOWLEDGE 



"ILF" ERROR DURING PACK ACKNOWLEDGE 



115 
1 16 
117 



002262 
002264 
002266 
002270 



118 
119 
120 



002272 
002274 
002276 
002300 



073050 
076470 
076614 
076704 



073036 
076470 
076614 
076704 



.-ERROR 47 



EMT47 
EHTl 
EDTl 
EFTI 



; ERROR 50 



EMTSO 
EHTl 
EDTl 
EFTI 



COWPOSITE ERROR STATUS IS INCORRECT 



PARITY ERROR WRITING REMOTE REGISTERS 



121 
122 
123 



002302 
002304 
002306 
002310 



073046 
076470 
076614 
076704 



.-ERROR 51 



EMT51 
EHTl 
EDTl 
EFTI 



INCORRECT lAE STATUS DURING SEEK COMMAND 
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SEO 0034 



'26 



002312 
OC23K 
002516 
002320 



127 
128 
129 
130 



002322 
002324 
002326 
002330 



131 
132 
133 



002332 
002334 
002336 
002340 



134 
135 
136 



002342 
002344 
002346 
002350 



137 

138 
,39 



002352 
002354 
002356 
002360 



140 
141 
142 



002362 
002364 
002366 
002370 



143 
144 
145 
146 



002372 
002374 
002376 



073060 
076470 
076614 
076704 



073076 
076470 
076614 
076704 



073114 
076470 
076614 
076704 



073124 
076470 
076614 
076704 



073136 
076470 
076614 
076704 



073154 
076470 
076614 
076704 



073164 
076470 
076614 



.-ERROR 52 



EMT52 
EHT1 
EDT1 
EFT1 



; ERROR 53 



EMT53 
EHTI 
EDT1 
EFTI 



.ERROR 54 



EWT54 
EHTI 
EDT1 
EFTI 



; ERROR 55 



EMT55 
EHTI 
EDT1 
EFTI 



; ERROR 56 



EMT56 
EHTI 
EDT1 
EFTI 



.•ERROR 57 



Em57 
EHTI 
EDT1 
EFTI 



.•ERROR 60 



EMT60 

EHTI 

EDT1 



OPI ERROR DURING SEEK - mOlJ* IS NOT ON LINE 



OP] ERROR DURING SEEK - MEDIUM IS ON LINE. ASSUME 
ON CYLINDER LATCH DIDN'T RESET 



SEEK INCOMPLETE ERROR DURING SEEK COMMAND 



DEVICE CHECK DURING SEEK COMMAND 



PIP IS STILL SET AFTER SEEK - SKI IS RESET 



ATA DID NOT SET DURING SEEK COMMAND 



IVC ERROR DURING SEEK COMMAND - LOST 
VOLUME VALID 



rZRMOeO RM05/3/2 FCTNL TST 3 
FRROR POINTER TABLE 



002AOO 076704 



K7 
U8 
U9 
150 



002402 073202 

002404 076470 

002406 076614 

002410 076704 



151 
152 
153 
154 



002412 
002414 
002416 
002420 



155 
156 
157 



002422 
002424 
002426 
002430 



073222 
076470 
0766 U 
076704 



000000 
000000 
000000 
000000 



158 
159 
160 



002432 073240 

002434 076470 

002436 076614 

002440 076704 



161 
162 
163 



002442 
002444 
002446 
002450 



164 
165 
166 



002452 
002454 
002456 
002460 



167 
168 
169 



002462 
002464 



073260 
076470 
076614 
076704 



073300 
076470 
076614 
076704 



073312 
076470 
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EFT1 



; ERROR 61 



EMT61 
EHT1 
EDT1 
EFT1 



.■ERROR 62 



EMT62 
EHT1 
EDT1 
EFT1 



.•ERROR 63 

0 
0 
0 
0 



.ERROR 64 



EWT64 
EHT1 
EDT1 
EFTl 



.-ERROR 65 



EMT65 
EHT1 
E0T1 
EFTl 



.•ERROR 66 



EMT66 
EHT1 
EDT1 
EFTl 



.-ERROR 67 



EMT6/ 
EHT1 



SEO 0035 



ERRONEOUS JVC ERROR DURING SEEK COMMAND 
VOLUME VALID IS STR SET 



MOL IS ZERO. BUT OPJ WAS NOT 
REPORTED DURING SEEK COMMAND 



UNUSED 



DRIVE DID NOT DETECT "IVC" ERROR DURING SEEK 



DRIVE EXECUTED A SEEK WITH ERROR SET 



UNEXPECTED ERROR SET IN RMERl 



UNEXPECTED ERROR SET IN RMER2 



CZRMOBO RM05/5/2 FCTNL TST 3 
ERROR POINTER TABLE 



002A66 0766H 
002470 076704 



170 
171 
172 



002472 073524 

002474 076470 

002476 076614 

002500 076704 



173 
174 
175 



002502 073334 

002504 076470 

002506 076614 

002510 076704 



176 
177 
178 



002512 073344 

002514 076470 

002516 076614 

002520 076704 



179 
180 
181 
182 



002522 073362 

002524 076470 

002526 076614 

002530 076704 



183 
184 
185 



002532 
002534 
002536 
002540 



186 
187 
188 



002542 
002544 
002546 
002550 



073400 
076470 
076614 
076704 



073410 
076470 
076614 
076704 



189 
190 
191 



002552 073430 
002554 076470 
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tDTI 
EFT1 



.-ERROR 70 



EMT70 
EHT1 
EDT1 
EFT1 



; ERROR 71 



EMT71 
EHT1 
EDTi 
EFT1 



; ERROR 72 



EMT 72 
EHT1 
EDTI 
EFT1 



.-ERROR 73 



EMT73 
EHT1 
EDTI 
EFT1 



.-ERROR 74 



EMT74 
EHT1 
EDTI 
EFT1 



.-ERROR 75 



EMT75 
EHT1 
EDTI 
EFT1 



.-ERROR 76 



EMT 76 
EHT1 



SEO 0036 



ERRONEOUS "lAE" ERROR DURING RECALIBRATE 



"ILF" ERROR DURING RECALIBRATE 



"OPI" ERROR DURING RECALIBRATE DUE TO 'WOL' 



■lOPl" ERROR DURING RECALIBRATE BECAUSE ON 
CYLINDER DIDNT DROP 



"IVC" ERROR DURING RECALIBRATE - 'VV" = 0 



ERRONEOUS "IVC" ERROR DURING RECALIBRATE - "VV" 1 



"SKI" ERROR DURING RECALIBRATE 



CZRMOBO FCTNL TST 3 
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002556 0766^ <. 
002560 076704 



192 
193 

m 



00256? 073440 

002564 076470 

002566 076614 

002570 076704 



195 
196 
197 



002572 073452 

002574 076470 

002576 076614 

002600 076704 



198 
199 
200 



002602 
002604 
002606 
002610 



201 
202 
203 



002612 
002614 
002616 
002620 



204 
205 
206 



002622 
002624 
002626 
002630 



207 
208 
209 



002632 
002634 
002636 
002640 



210 
211 
212 



002642 
002644 
002646 



073470 
076470 
076614 
076704 



073506 
076470 
076614 
076704 



073516 
076470 
0/6614 
076704 



073530 
076470 
076614 
076704 



073546 
076470 
076614 
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EDT1 
EFT1 



; ERROR 77 



"DVC" OCCURRED DURING RECALIBRATE 



EMT77 
EHT1 
EDTl 
EFTl 



;ERR0R 100 LOST "MOL" DURING RECALIBRATE - "DPI" 0 

EMT100 
EHTl 
EDTl 
EFTl 

;ERR0R 101 LOST 'VV" DURING RECALIBRATE - "IVC" = 0 

EWTIOI 
EHTl 
EDTl 
EFTl 



; ERROR 102 



"ATA" DID NOT SET DURING RECALIBRATE 



EMT102 
EHTl 
EDTl 
EFTl 



; ERROR 103 



'W DID NOT RESET DURING RECALIBRATE 



EMri03 
EHTl 
EDTl 
EFTl 



; ERROR 104 



"PIP" IS STIL SET AFTER RECALIBRATE 



EMT104 
EHTl 
EDTl 
EFTl 



;ERROR 105 UNEXPECTED "ILR" ERROR DURING RECALIBRATE 

EMT105 

EHTl 

EDTl 



SEO 0037 
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SEO 0038 



002650 076704 



?13 
215 



002652 075556 

002654 076470 

002656 076614 

002660 076704 



216 

217 
218 



002662 
002664 
002666 
002670 



219 
220 
221 



002672 
002674 
002676 
002700 



222 
223 
224 



002702 
002704 
002706 
002710 



225 
226 
227 



002712 
002714 
002716 
002720 



228 
229 
230 



002722 
002724 
002726 
002730 



231 
232 
233 



002732 
002734 
002736 
002740 



073566 
076470 
076614 
0^6704 



073606 
076512 
076632 
076722 



073620 
076516 
076634 
076724 



073626 
076516 
076634 
076724 



073634 
000000 
000000 
000000 



073650 
076522 
076636 
076726 



EFTl 



; ERROR 106 

EMT106 
EhTl 
EDT1 
EFT! 



; ERROR 107 

EMT107 
EHTI 
EDTl 
EFTl 



; ERROR 110 

EMTIIO 
EHTllO 
EDTllO 
EFT110 



; ERROR 111 

EMT111 
EHTlll 
EDTIi: 
EFT111 



;ERROR 112 

EMT112 
EHTlll 
EDT111 
EfTlll 



;ERROR 113 

Emn3 

0 
0 
0 



; ERROR lU 

EMTIU 
EHT114 
EDTIU 
EFT1U 



UNEXPECTED "tm" ERROR DURING RECALIBRATE 



•\JNS" ERROR DURING RECALIBRATE - AC POWER IS LOW 



CANNOT ACCESS MASS8US CONTROLLER VIA UNI8US 



NONEXISTENT DEVICE 



DEVICE NOT AVAILABLE 



BUS TIMEOUT-NED STATUS FAILURE 



DEVICE NOT AN RM05/3/2 



CZRMCeO RM05/3/2 FCTML TST 3 
ERROR POINTER TABLE 



N 3 
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23A 
235 
236 



002742 
002744 
002746 
002750 



237 
258 
239 



002752 
002754 
002756 
002760 



240 
241 
242 



002762 
002764 
002766 
002770 



243 
244 
245 



002772 
002774 
002776 
003000 



246 
247 
248 



003002 
003004 
003006 
003010 



249 
250 
251 



003012 
003014 
003016 
003020 



252 
253 
254 



003022 
003024 
003026 
003030 



073656 
076470 
076614 
076704 



073666 
076470 
076614 
076704 



073676 
076470 
076614 
076704 



073706 
076470 
076614 
076704 



073716 
076470 
076614 
076704 



073726 
076470 
076614 
076704 



073736 
076470 
076614 
076704 



.•ERROR 115 



RMCS1 NOT INITIALIZED BV UN18US 



EMT115 
EHT1 
EDT1 
EFT1 



.•ERROR 116 



RMBA NOT INITIALIZED BY UNI8US 



EMT116 
EHT1 
EDTl 
EFT1 



.■ERROR 117 RMCS2 NOT INITIALIZED BY UNI8US 

EMT117 
EHT1 
EDTl 
EFTI 



.•ERROR 120 



RMER1 NOT INITIALIZED BY UNIBUS 



EMT120 
EHT1 
EDTl 
EFTI 



.ERROR 121 



RWAS NOT INITIALIZED BY UNIBUS 



EMT121 
EHT1 
EDTl 
EFTI 



.-ERROR 122 



RMMRI NOT INITIALIZED BY UNIBUS 



EMT122 
EHT1 
EDTl 
EFTI 



; ERROR 123 



RMDS NOT INITIALIZED BY UNIBUS 



EWT123 
EHT1 
EDTl 
EFTI 



CZRMOBO R«05/3/2 FCTNL TST 3 
ERROR POINTER TUMBLE 



255 
256 
257 



005032 0737A6 

003034 076470 

003036 0766U 

0030A0 07670A 



258 
259 
260 



003042 073756 

003044 076470 

003046 076614 

003050 076704 



261 

262 
263 



C03052 073766 

003054 076470 

003056 0766U 

003060 076704 



264 
265 
366 



003062 
003064 
003066 
003070 



267 
268 
269 



003072 
003074 
003076 
003100 



270 
271 
272 



003102 
003104 
003106 
003110 



273 
274 
275 



003112 
003114 
003116 
003120 



074000 
076470 
076614 
076704 



074012 
076470 
076614 
076704 



074024 
076470 
076614 
076704 



074036 
076470 
076614 
076704 
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;FRROR 124 



RMEC2 NOT INITIALIZED Br UNI&JS 



EMn24 
EHT1 
EDT1 
EFTI 



.-ERROR 125 



m*R2 NOT INITIALIZED BY UNJ8US 



EMT125 
EHTl 
EDT1 
EFTI 



.ERROR 126 



RMCS1 NOT CLEARED BY CONTROLLER CLEAR 



EMT126 
EHTl 
EDTl 
EFTI 



; ERROR 127 



RMBA NOT CLEARED BY CONTROLLER CLEAR 



EMT127 
EHTl 
EDTl 
EFTI 



; ERROR 130 RWC';2 NOT CLEARED BY CONTROLLER CLEAR 

EMT130 
EHTl 
EDTl 
EFTI 



.•ERROR 131 



R«ER1 NOT CLEARED BY CONTROLLER CLEAR 



EMT131 
EHTl 
EDTl 
EFTI 



.-ERROR 132 



RMAS NOT CLEARED BY CONTROLLER CLEAR 



EMT132 
EHTl 
EDTl 
EFTI 



SEO 0040 



276 



CZHMOBO W105/5/2 FCTNL TST 3 
ERROR POINTER TABLE 



C A 
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277 
278 



003122 07A050 

003124 076470 

•J03126 0766U 

003130 076704 



279 
280 
281 



0031 52 
003134 
0031 36 
003140 



282 
283 
284 



003142 
C03144 
003146 
003150 



285 
286 
287 



003152 
0031 54 
003156 
003160 



288 
289 
290 



003162 
003164 
003166 
0031 70 



291 
292 
293 



003172 
003174 
003176 
003200 



294 
295 
296 



003202 
003204 
003206 
003210 



297 
298 



074062 
076470 
076614 
076704 



074074 
076470 
076614 
076704 



074106 
076470 
076614 
076704 



074120 
076470 
076614 
076704 



074130 
076470 
076614 
076704 



074140 
076470 
076614 
076704 



; ERROR 133 



EI«T133 
EHT1 
EDT1 
EFTl 



; ERROR 134 



EMT134 
EHT1 
EDT1 
EFTl 



; ERROR 135 



EMT135 
EHT1 
EDT1 
EFTl 



.•ERROR 136 



EMT136 
EHT1 
EDTl 
EFTl 



; ERROR ^37 



EMT137 
EHT1 
EDTl 
EFTl 



; ERROR 140 



EMT140 
EHTl 
EDTl 
EFTl 



.•ERROR 141 



E«n41 
EHTl 
EDTl 
EFn 



.-ERROR 142 



5E0 0041 



RMMRl NOT CLEARED BY CONTROLLER CLEAR 



RMDS NOT CLEARED Br CONT^^ LER CLEAR 



RMEC2 NOT CLEARED BV CONTROLLER CLEAR 



Rrt1R2 NOT CLEARED BY CONTROLLER CLEAR 



RMCSl NOT CLEARED BY ERROR CLEAR 



RMCS2 NOT CLEARED BY ERROR CLEAR 



RMCS1 NOT CLEARED BY DRIVE CLEAR 



RMDS NOT CLEARED BY DRIVE CLEAR 



CZRMOeO RM05/3/2 KTNL TSt 5 
FRROR POINTER TABLE 



299 



003212 07A150 

0032U 076A70 

003216 0766U 

003220 07670A 



300 
301 
302 



003222 
G0322A 
003226 
003230 



303 
304 
305 



003232 
003234 
C03236 
003240 



306 
507 
30U 



003242 
003244 
003246 
003250 



074160 
076470 
076614 
076704 



074*70 
076470 
0766^4 
076704 



074200 
076470 
076614 
076704 



D 4 
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EMT142 
EHT1 
EDIT 
EFT1 



SEO 0042 



.ERROR 143 



EMTU3 
EHT1 
EDT1 
EFT1 



; ERROR 144 



EMT144 
EHT1 
EDT1 
EFT1 



; ERROR 145 



EMT145 
EHTI 
EDT1 
EFT1 



RMER1 NOT CLEARED BY DRIVE CLEAR 



RMAS NOT CLEARED BV DRIVE CLEAR 



RMMRI NOT CLEARED Br DRIVE CLEAR 



309 
310 
311 



003252 
003254 
003256 
003260 



074210 
076470 
076614 
076704 



.•ERROR 146 



EMT146 
EHTI 
EDT1 
EFT1 



RMriR2 NOT CLEARED Br DRIVE CLEAR 



312 
313 
514 



003262 
003264 
003266 
003270 



074220 
076470 
07661 
076704 



.ERROR 147 



EMT147 
EHTI 
EDT1 
EFT1 



RMER2 NOT CLEARED Br DRIVE CLEAR 



315 
316 
317 



003272 
003274 
003276 
003300 



3^8 
319 
320 



074230 
076470 
076614 
076704 



.•ERROR 150 



EMT150 
EHTI 
EDT1 
EFT1 



.•ERROR 151 



RMEC2 NOT CLEARED Br DRIVE CLEAR 



MEDIUM NOT ON LINE 



'Z«^0 KTNL TST 3 

FRROR PCINTEf) TABLE 

003102 074240 
003304 076470 



003306 076614 
003310 076704 



32' 
322 
323 



003312 
003314 
003316 
003320 



324 
325 
326 



003322 
003324 
003526 
C03330 



074252 
076470 
076614 
076704 



074264 
076470 
076614 
076704 



327 
328 
329 



003532 074502 

003334 076470 

003336 076614 

003340 076^04 



550 
331 
332 



003342 
003344 
003346 
005350 



333 
334 
335 



003352 
003354 
003356 
003360 



336 
337 
338 



005362 
003364 
003366 
003370 



074320 
076470 
076614 
076704 



074332 
076470 
076614 
076704 



074344 
076470 
076614 
076704 



339 
340 
341 
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EMT151 
EHTl 
EDTI 
EFT1 



SEO 0043 



;E««»OR 152 



DRIVE FAULT 



EMT152 
EHTl 
EDTI 
EFT1 



.ERROR 153 



UNSAFE SHOULD BE SET BECAUSE DVC IS SET 



EMT153 
EHTl 
EDTI 
EFT1 



; ERROR 154 UNSAFE SHOULD NOT BE SET. AC IS LOW 

EMT154 
EHTl 
EDTI 
EFT1 



.•ERROR 155 



VOLUME VALID NOT SET BV PACK ACK 



EMT155 
EHTl 
EDTI 
EFT1 



; ERROR 156 



OFFSET MODP NOT SET BY OFFSET COMflAND 



EHTl 56 
EHTl 
EDTI 
EFTI 



.-ERROR 157 



OFFSET MODE NOT RESET BY RTC COMMAND 



003572 074356 



EMT157 
EHTl 
EDTI 
EFTI 



.■ERROR 160 RMOF NOT RESET BY RJP COMMAND 
EMT160 



'ZRM080 RM05/3/2 FCTNL TS^ 3 
ERROR POINTER TABLE 

005374 076470 
003376 076614 
00340C 076704 



.MACRO V04.00 



342 
343 
344 



003402 
003404 
003406 
003410 



345 
346 
347 



003412 
003414 
003416 
003420 



348 
349 
350 
351 



003422 
003424 
003426 
003430 



352 
353 
354 



003432 
003434 
003436 
003440 



355 
356 
357 



003442 
003444 
003446 
003450 



358 
359 
560 



003452 
003454 
003456 
003460 



361 
362 
363 



074366 
076470 
0766K 
076704 



074400 
076470 
076614 
076704 



076264 
076552 
076650 
076740 



074422 
076470 
076614 
076704 



0744^0 
076470 
076614 
076704 



074456 
076470 
076614 
076704 



F 4 
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EHT1 
E0T1 
EFTl 



SEO 0044 



; ERROR 161 



EM'Ibl 
EHT1 
EDT1 
EFTl 



; ERROR 162 



EMT'62 
EHT1 
EDT1 
EFTl 



.-ERROR 165 



EMT336 
EHT336 
EDT336 
EF T336 



.-ERROR 164 



EMT164 

EHT1 
EDT1 
EFTl 



.•ERROR 165 



EMn65 

EHT1 
EDT1 
EFTl 



.•ERROR 166 



RMDA NOT RESET BY RIP COMMAND 



RMDC NOT RESET BY RIP COMMAND 



DATA WAS ECC 
WRITE BUFFER 



CORRECTED BUT DOES NOT COMPARE WITH 



OPl SHOULD NOT BE SET 



IVC SHOULD NOT BE SET 



lAE SHOULD NOT BE SET 



003462 074444 



EMT166 
EHT1 
EOTl 
EFTl 



.-ERROR 167 NEM SHOULD NOT BE SET 
EMT167 



f^ROR POINTER TABLE 

005464 076470 
005466 076614 
003470 076704 



G 4 



364 
365 
366 



003472 
003474 
003476 
003500 



367 
368 
369 



003502 
003504 
003506 
003510 



370 
371 
372 



003512 
003514 
003516 
003520 



373 
374 
375 



003522 
003524 
003526 
003530 



376 
377 
378 



003532 
003534 
003536 
003540 



579 
380 
381 



003542 
00354ii 
003546 
003550 



382 
383 
384 



003552 
003554 



074452 
076470 
076614 
076704 



074464 
076470 
076614 
076704 



074474 
076470 
076614 
076704 



074504 
076470 
076614 
076704 



074514 
076470 
076614 
076704 



074526 
076470 
076614 
076704 



074534 
076470 
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SEO 004'' 



EHT1 
EDTI 
EFT1 



.■ERROR 170 

EMT170 
EHTI 
EDTI 
EFT1 



.-ERROR 171 

EMT171 
EHTI 
EDTI 
EFT1 



.■ERROR 17? 

EriT172 
EHTI 
EDTI 
EFT1 



.•ERROR 173 

EMT173 
EHTI 
EDTI 
EFT1 



.ERROR 174 

Emi74 
EHTI 
EDTI 
EFT1 



; ERROR 175 

EriTl75 
EHTI 
EDTI 
EFTl 



.•ERROR 176 

EWTV6 
EHTI 



INCORRECT 'WOL" STATUS DURING DIAGNOSTJC MODE 



"ATA" NOT SET DURING RETURN TO CENTERLINE 



"ATA" NOT SET BY OFFSET COMMAND 



RMER2 NOT INITIALIZED BY UNI8US INIT 



RMER2 NOT INITIALIZED BY CONTROLLER CLEAR 



SELECTED DEVICE IS IN WRITE PROTECT 



CANNOT SET DIAGNOSTIC MODE 



'ZRMOBO RM05/3/2 FCTNL TST ? 
fU^OH POIiytTER TABLE 



003556 0766''^ 
003560 07670h 



385 
386 
387 



003562 000000 

003564 000000 

003566 000000 

003570 000000 



388 
389 
390 



003572 
003574 
003576 
005600 



39- 
392 
393 



003602 
003604 
003606 
003610 



394 
395 
396 



003612 
0036K 
003616 
003620 



397 
598 
399 



003622 
003624 
003626 
003630 



400 
401 
402 



003632 
003634 
003636 
003640 



403 
404 
405 



003642 
003644 
003646 



074544 
076470 
076614 
076704 



074556 
076470 
076614 
076704 



074570 
076470 
076614 
076704 



074602 
076470 
076614 
076704 



074614 
076470 
076614 
076704 



074632 
076470 
076614 



H 4 

MACRO V04.00 4-AP«-81 01:15:59 PAGE 8-18 



EDTl 
EFTl 



;ERROR 177 —RESERVED FOR POWER "ION! TOR BIT FAILURE— 

0 
0 
0 
0 



.■ERROR 200 



EMT200 
EHT1 
EDTl 
EFTl 



.•ERROR 201 



EMT201 
EHT1 
EDTl 
EFTl 



.ERROR 202 



EM T 202 
EHTl 
EDTl 
EFTl 



.ERROR 203 



Ef1T203 
EHTl 
EDTl 
EFTl 



; ERROR 204 



EMT204 
EHTl 
EOTi 
EFTl 



; ERROR 205 



EMT205 

EHTl 

EDTl 



INCORRECT "PIP" STATUS DURING DIAGNOSTIC MODE 



INCORRECT 'V/RL" STATUS DURING DIAGNOSTIC MODE 



INCORRECT "SKI" STATUS DURING DIAGNOSTIC MODE 



INCORRECT "DVC" STATUS DURING DIAGNOSTIC MODE 



'VV" WAS NOT RESET BY MAINTENANCE UNIT READY 



SELECTED DEVICf HAS A PERSISTENT "SKI" ERROR 



SEO 0046 



CZSMOBO RW05/'^/2 Fr TNL TST 3 
ERROR POINTER TABLE 



003650 076704 



406 
407 
408 



005652 074642 

005654 076470 

003656 076614 

003660 076704 



409 
410 
411 



003662 074652 

003664 076470 

003666 076614 

003670 076704 



412 
413 
414 



003672 
003674 
003676 
003700 



415 
416 
417 



f)03702 
003704 
003706 
003710 



418 
419 
420 



003712 
003714 
003716 
003720 



421 
422 
423 



003722 
003724 
003726 
003730 



424 
425 
426 



003732 
003734 
003736 
003740 



074664 
076470 
076614 
076704 



074672 
076470 
076614 
076704 



074706 
076470 
076614 
076704 



074722 
076470 
076614 
076704 



074732 
076502 
076624 
076714 
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EFTI 



.•ERROR 206 

EMT206 
FHT1 
EDT1 
EFTI 



.■ERROR 207 

EMT207 
EHT1 
E0T1 
EFTI 



.•ERROR 210 

EMT210 
EHT1 
EDT1 
EFTI 



: ERROR 211 

Em211 
EHT1 
EDT1 
EFTI 



.-ERROR 212 

Em212 
EHT1 
EDT1 
EFTI 



; ERROR 213 

EMT213 
EHT1 
EDT1 
EFTI 



; ERROR 2K 

EMT214 
EHT2 
EDT2 
EFT2 



*18C" DID NOT SET DURING DIAGNOSTIC WDE 



UNEXPECTED LOSS OF 'WOL" - MEDIUM IS OFF LINE 



UNEXPECTED LOSS OF VOLUME VALID - 'VV = 0 



UNEXPECTED MECHANICAL MOTION - 'VIP' 



UNEXPECTED DEVICE FAULT - "DVC" = 1 



UNEXPECTED SEEK INCOMPLETE ERROR - "SKI" = 1 



DRIVE EXECUTED A RECALIBRATE WITH ERROR SET 



SEO 004/ 



J 4 

CZRMOeO RMOS/3/2 FCTNL TST 3 »1AC»<0 vOA.OO 4-APft-81 01:15:59 PAGE 8-«?0 
ERROR POINTER TABLE 



SFO 0046 



427 
428 
429 



003742 
003744 
0037A6 
003750 



430 
431 
452 



003752 
003754 
003756 
003760 



433 
434 
455 



005762 
003764 
003766 
003770 



436 
437 
438 



005772 
003774 
003776 
004000 



439 
440 
441 



004002 
004004 
004006 
004010 



442 
443 
444 



004012 
004014 
004016 
004020 



445 
446 
447 



004022 
004024 
004026 
004030 



07475? 
076502 
076624 
076714 



074764 
076470 
076614 
076704 



074774 
0/6470 
076614 
076704 



075004 
076470 
076614 
076704 



0/^5014 
076470 
076614 
076704 



075024 
076470 
076614 
076704 



075034 
076526 
076640 
076730 



.ERROR 215 



EMT215 
EHT2 
EDT2 
EFT2 



: ERROR 216 



EMT216 
EHT1 
EDT1 
EFT1 



.•ERROR 217 



EMT217 
EHT1 
EDT1 
EFT1 



.•ERROR 220 



EMI 220 
EHT1 
EDT1 
EFT1 



.•ERROR 221 



Em221 
EHTl 
EDTl 
EFT1 



.•ERROR 222 



EMT222 
EHTl 
EDTl 
EFTl 



; ERROR 223 



EMr223 
EH] 223 
EDT223 
EFT223 



DRIVE DID NOT DETECT "IVC" ERROR DURING RECALIBRATE 



INCORRECT "IVC" STATUS 



INCORRECT "lAE" STATUS 



INCORRECT 'VLE" STATUS 



INCORRECT 'IDPI" STATUS 



RM DJD NOT DETECT RMR ERROR 



R« DJD NOT DErECT PARITY ERROR ON MASSBUS CONTROL BUS 



CZRMOeO RM05/3/£? FCTML TST 3 
ERROR POINTER TABLE 



MACRO VOA.OO A-APR-81 01:15:59 



448 
449 
450 



004052 
004034 
004036 
004040 



451 
452 
453 



004042 
004044 
004046 
004050 



454 
455 
456 



C04052 
004054 
004056 
004060 



457 
438 
459 



004062 
00406*. 
004066 
004070 



460 
461 
462 



004072 
004074 
004076 
004100 



463 
464 
465 



004102 
004104 
004106 
004110 



466 
467 
468 



004112 
004114 
004116 
004120 



000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 



.ERROR 224 

0 
0 
0 
0 

.-ERROR 225 

0 
0 
0 
0 



; ERROR 226 

0 
0 
0 
0 



iERROR 227 

0 
0 
0 
0 



; ERROR 230 

0 
0 
0 
0 



; ERROR 231 

0 
0 
0 
0 



; ERROR 232 

0 
0 
0 
0 



UNUSED 



JN'JSED 



UNUSED 



UNUSED 



UNUSED 



UNUSED 



UNUSED 



469 



K 4 
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SEO 00 



L 4 



CZRMOBO RM05/3/2 FCTNL TST 3 
ERROR POINTER TA9LE 



470 
A71 



004122 000000 

004124 000000 

004126 000000 

004130 000000 



472 
473 
474 



004132 000000 

004134 000000 

004136 000000 

004140 000000 



4/^5 
476 
477 



004142 000000 

004 144 000000 

004146 000000 

004150 000000 



478 
479 
480 



004152 000000 

004154 000000 

004156 000000 

004160 000000 



481 
482 
483 



004162 
004164 
004166 
004170 



484 
485 
486 



004172 
004174 
004176 
004200 



487 
488 
489 



004202 
004204 
004206 
004210 



000000 
000000 
000000 
000000 



000000 

ooocoo 

000000 
000000 



000000 
000000 
000000 
000000 
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SfO 0050 



; ERROR 233 

0 
0 
0 
0 



.•ERROR 234 

0 
0 
0 
0 

.•ERROR 235 

0 
0 
0 
0 

.•ERROR 236 

0 
0 
0 
C 

; ERROR 237 

0 
0 
0 
0 

; ERROR 240 

0 
0 
0 
0 



.ERROR 241 

0 
0 

0 
0 



UNUSED 



UNUSED 



UNUSED 



UNUSED 



UNUSED 



UNUSED 



UNUSED 



490 
491 



; ERROR 242 



UNUSED 



CZRMOeO W105/5/2 FCTNL TST 3 
ERROR POINTER TABLE 



M 4 
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492 



004212 
004214 
004216 
004220 



493 
494 
495 



004222 
004224 
004226 
004230 



496 
497 
498 



004232 
004234 
C04236 
004240 



499 
500 
501 



004242 
004244 
004246 
004250 



502 
SOi 
504 



004252 
004254 
004256 
004260 



505 
506 
507 



004262 
004264 
004266 
004270 



508 
509 
510 



004272 
004274 
004276 
004300 



511 
512 
515 



000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 



075110 
076470 
076614 
076704 



075120 
076470 
076614 
076704 



075132 
076470 
076614 
076704 



SEO 0051 



0 
0 
0 
0 



.•ERROR 243 

0 
0 
0 
0 



; ERROR 244 

0 
0 
0 
0 



; ERROR 245 

0 
0 
0 
0 



.•ERROR 246 



Ef1T246 
EHTl 
EDTl 
EFTl 



; ERROR 247 



UNUSED 



UNUSED 



UNUSED 



"ATA" NOT RESET BY GO WHEN "ERR" - 0 



"ATA" NOT RESET BY WRITING RMAS 



EMT247 
EHTl 
EDTl 
EFTl 



; ERROR 250 "ATA" WAS RESET BY GO WHEN "ERR" = 1 

EMT250 
EHTl 
EDTl 
EFTl 



.-ERROR 251 



PROGRAM INTERRUPT WAS NOT GENERATED 



CZRMOBO RM05/3/2 FCTNL TST 3 
ERROR POINTER TABLE 

OCA 302 075K6 
004304 076502 



004306 076624 
004310 076714 



514 
515 
516 



004312 
004314 
004316 
004320 



517 
518 
519 



004322 
004324 
004326 
004330 



075154 
076502 
076624 
076714 



075162 
076470 
076614 
076704 



520 
521 
522 



004332 075200 

0043'^4 076470 

004336 076614 

004340 076704 



523 
524 
525 



004342 
004344 
004346 
004350 



526 
527 
528 



004352 
004354 
004356 
004360 



529 
530 
531 



004362 
004364 
004366 
004370 



075210 
076470 
076614 
076704 



075220 
076540 
076640 
076730 



075230 
076470 
076614 
076704 



532 
533 
554 



N 4 
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EMT251 
EHT2 
EDT2 
EPT2 



SEQ 005^ 



PROGRAM INTERRUPT SHOULD NOT HAVE BEEN GENERATED 



004372 075242 



;ERROR 252 

Em25; 

EHT2 
EDT2 
EFT2 



.•ERROR 253 OFFSET MODE WAS NOT RESET BY WRITING RMDC 

EMT253 
EHT1 
EDTl 
EFT1 

.•ERROR 254 INCORRECT "ILF" STATUS 

EriT254 
EHT1 
EDTl 
EFT1 



;ERROR 255 INCORRECT "ATA" STATUS 

EMT255 
EHT1 
EDTl 
EFT1 



.•ERROR 256 INCORREC^ "ILR" STATUS 

EMT256 
EHT256 
EDT223 
EFT223 - 



;ERROR 257 INVALID lAE STATUS DURING SEARCH C0MP1AND 

EMT257 
EHT1 
EDTl 
EFT1 

;ERROR 260 "IVC" WAS NOT DETECTED DURING SEARCH COPWAND 
EMT260 



:ZWOeO RM05/5/2 FCT^L TST 3 
ERROA POINTER T>S8LE 

004374 076470 
004376 076614 
004400 076704 



B 5 



535 
536 
537 



004402 075254 

004404 076470 

004406 076614 

004410 076704 



538 
539 
540 



004412 
004414 
004416 
004420 



541 
542 
543 



004422 
004424 
004426 
004430 



544 
545 
546 



004432 
004434 
004436 
004440 



547 
548 
549 



004442 
004444 
004446 
004450 



550 
551 
552 



004452 
004454 
004456 
004460 



553 
554 
555 
556 



075274 
076470 
076614 
076704 



075304 
076470 
076614 
076704 



075314 
076470 
076614 
076704 



0/5334 
076470 
076614 
076704 



075354 
076470 
076614 
076704 



004462 075366 
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EHT1 
EDT1 
EFT1 



.•ERROR 261 



EMT261 
EHT1 
EDT1 
EFT1 



.•ERROR 262 



EMT262 
EHT1 
EDT1 
EFT1 



.•ERROR 263 



EMT263 
EMT1 
EDT1 
EFT1 



.•ERROR 264 



EMT264 
EHT1 
EDT1 
EFT1 



.•ERROR 265 



EMT265 
EHT1 
EDT1 
EFT1 



.•ERROR 266 



SEO 0053 



EMT266 
EHT1 
EDTI 
EFT1 



.•ERROR 267 



EMT267 



DRIVE EXECUTED SEARCH WITH ERROR SET 



"LBC" ERROR NOT SET DURING DIAGNOSTIC MODE 



"SKI" ERROR DURING SEARCH COMMAND 



•JVC" ERROR DURING SEARCH - LOST VOLJME VALID 



ERRONEOUS IVC ERROR DURING SEARCH - VOLUME IS VALID 



DEVICE FAULT (DVC) DURING SEARCH 



SKI SHOULD HAVE BEEN SET BECAUSt CYLINDER 
ADDRESS IS TOO LARGE 



CZRMOeO RM05/3/2 FCTNL TST 5 
ERROR POINTER TABLE 

00446A 076A70 
00AA66 0766 U 
004470 07670A 



MACRO V04.00 



558 
559 



004472 
004474 
004476 
004500 



560 
561 
562 
563 



004502 
004504 
004506 
C04510 



564 
565 
566 



004512 
004514 
004516 
004520 



567 
568 
569 



004522 
004524 
004526 
004530 



570 
571 
572 
573 



C04532 
004534 
004536 
004540 



574 
575 
576 
577 



004542 
004544 
004546 
004550 



578 
579 



075404 
076470 
076614 
076704 



075420 
076470 
076614 
076704 



075436 
076470 
076614 
076704 



075454 
076470 
076614 
076704 



075472 
076470 
076614 
076704 



075510 
C76470 
076614 
076704 



C 5 
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EHT1 
EDT1 
EFT1 



SEO 0054 



.•ERROR 270 



EMT270 
EHT1 
EDT1 
EFT1 



.•ERROR 271 



EMT271 
EHT1 
EDT1 
EFTl 



.•ERROR 272 



EMT272 
EHTl 
EDTl 
EFTl 



.•ERROR 273 



EMT273 
EHTl 
EDTl 
EFTl 



.ERROR 274 



EMT274 
EHTl 
FDT1 
EFTl 



.•ERROR 275 



EMT275 
EHTl 
EDTl 
EFTl 



OPI ERROR DURING SEARCH BECAUSE MOL = 0 



OPJ ERROR DURING SEARCH BECAUSE ON CYLINDER 
DIDN'T DROP 



LOST MOL DURING SEARCH, OPI IS NOT SET 



PIP STIL SET AFTER SEARCH 



PARITY ERROR OCCURRED WHILE WRITING REMOTE 
REGISTERS BUT MXF DID NOT SET 



MXF ERROR - COMPOSITE ERROR OCCURRED BEFORE DATA 
COMMAND STARTED 



.•ERROR 276 



'lOPI" ERROR DURING DATA TRANSFER BECAUSE "WOL" WAS 



rZRMOBO RM05/5/2 FCTML TST 5 
FRROR POINTER TABLE 



D 5 
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580 
581 



OOA552 
004554 
004556 
004560 



075522 
076470 
0766U 
076704 



EMT276 
EHTl 
EDTl 
EFT1 



SEO 0055 



ZERO 



582 
583 
584 
585 
536 



004562 
004564 
004566 
004570 



075536 
076470 
0766^4 
076704 



ERROR 277 



EMT277 
EHTl 
EDTl 
EFTl 



'X3PI" ERROR DURING DATA TRANSFER BECAUSE 1) ON 
CV..INDER DIDN'T DROP OR 2) SEARCH TIMED OUT OR 
5) RUN TIMED OUT 



587 
588 
589 
590 



004572 
004574 
004576 
004600 



075554 
076470 
076614 
0^6704 



.•ERROR 300 



EMT300 
EHTl 
EDTl 
EFTl 



"JVC" ERROR CURING DATA TRANSFER BECAUSE VOLUME 
WAS NOT VALir 



591 
592 
593 
594 



004602 
004604 
004606 
004610 



075574 
076470 
076614 
076704 



.•ERROR 301 



EMT301 
EHTl 
EDTl 
EFTl 



ERRONEOUS "IVC" ERROR DURING DATA TRANSFER - VOLUME 
IS VALID 



59"^ 
596 
597 



004612 
004614 
004616 
004620 



075616 
076470 
076614 
076704 



; ERROR 302 



EMT302 
EHTl 
EDTl 
EFTl 



"ILR" ERROR DURING DATA TRANSFER 



598 
599 
600 



004622 
004624 
004626 
004630 



075630 
076470 
076614 
076704 



.-ERROR 303 



EM T 303 
EHT^ 
EDTl 
EFTl 



"ILF" ERROR DURING DATA TRANSFER 



601 
602 
603 



004632 
004634 
004636 



075642 
076470 
076614 



.•ERROR 304 



EMT304 

EHTl 

EDTl 



'7?MR" ERROR DURING DATA TRANSFER 



CZRMOeO RM05/3/2 FCTNL TST 3 
EI^ROR POINTER TABLE 



004640 076704 



604 
605 
606 



004642 075654 

004644 076470 

004646 076614 

004650 076704 



607 
608 
609 



004652 
004654 
004656 
004660 



610 
611 
612 



004662 
004664 
004666 
004670 



613 
614 
615 



004672 
004674 
004676 
004700 



616 
617 
618 



004702 
004704 
004706 
004710 



619 
620 
621 



004712 
004714 
004716 
004720 



622 
623 
624 



004722 
004724 
004726 
004730 



075666 
076470 
076614 
076704 



075676 
076470 
076614 
076704 



075716 
076470 
076614 
076704 



075750 
076470 
076614 
076704 



075742 
076470 
076614 
076704 



075754 
07647(J 
076614 
076704 



E 5 
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FFT1 



SEO 0056 



.•ERROR 305 INCORRECT "lAE" STATUS DURING DATA TRANSFER 

EMT305 
EHT1 
EDT1 
EFT1 



; ERROR 306 "SKI" ERROR DURING DATA TRANSFER 

EMT306 
EHT1 
EDT1 
EFT1 



.■ERROR 307 



DRIVE DID NOT DETECT SKJ ERROR DUE TO CYLINDER 



EMT307 
EHT1 
EDT1 
EFT1 



:ERROR 310 



DEVICE FAULT DURING DATA TRANSFER 



EMT310 
EHT1 
EDT1 
EFT1 



.•ERROR 311 



LOSS OF BIT CLOCK DURING DATA TRANSFER 



EMT311 
EHT1 
EDT1 
EFT1 



; ERROR 312 



LOSS OF SYSTEM CLOCK DUf^ING DATA TRANSFER 



EMT312 
EHT1 
EDT1 
EFT1 



; ERROR 313 



UNSAFE ERROR DURING DATA TRANSFER (DVC - 0) 



EMT313 
EHT1 
EDT1 
EFT1 



CZRHOBO m}5/V2 FCTNL TST 3 
FRROf) POINTER TABLE 



F 5 
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SEO 005? 



625 
627 



004732 
004754 
004736 
0047<,0 



628 
629 
630 



004 7<,2 
004744 
004746 
004750 



651 
652 
653 



004752 
004754 
004756 
004760 



634 
635 
636 



004762 
004764 
004766 
004770 



657 
638 
63<? 



004772 
004774 
004776 
005000 



075774 
076470 
076614 
076704 



076006 
076470 
076614 
076704 



076020 
076470 
076614 
076704 



076032 
076470 
076614 
076704 



0760^.-^' 
0764 70 
076614 
076704 



.•ERROR 314 



EMT514 
EHT1 
EDT1 
EFT1 



; ERROR 315 



EMT315 
EHT1 
EDT1 
EFT1 



; ERROR 316 



EMT316 
EHT1 
EDT1 
EFTI 



.•ERROR 317 



EMT317 
EMT1 
EDT1 
EFTI 



.-ERROR 320 



EMT320 
EHT1 
EDT1 
EFTI 



DRIVE TiniNG ERROR DURING DATA TRANSFER 



WRITE LOCK ERROR 



ERRONEOUS WRITE LOCK ERROR 



HEADER CRC ERROR DURING DATA TRANSFER 



FORMAT ERROR DURING DATA TRANSFER 



640 
641 
642 



005002 
005004 
005006 
005010 



643 
644 
645 



005012 
0050T4 
005016 
005020 



076052 
076470 
076614 
076704 



076062 
076470 
076614 
076704 



.ERROR 321 



EMT321 
EHT1 
EDT1 
EFTI 



.•ERROR 322 



E«T322 
EHT1 
EDT1 
EFTI 



HEADER COMPARE ERROR DURING DATA TRANSFER 



HEADER ERRORS SHOULD NOT BE SET 



:ZRMOeO RM05/^/2 f^f^L TST 3 
FRUOR POINTER TABlE 



G 5 
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SEO 0OS6 



646 
647 
648 



005022 
005024 
005026 
005030 



076070 
0764/0 
076614 
076704 



.•ERROR 323 



EMT323 
EHT1 
EDT1 
EFT1 



DATA CHECK ERROR DURING DATA TRANSFER 



649 
650 
651 



005032 
005034 
005036 
005040 



076100 
076470 
076614 
076704 



.•ERROR 324 



EriT324 
EHT1 
EDT1 
EFT1 



CORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER 



652 
653 
654 



C05042 
005044 
005046 
005050 



076r2 
076470 
076614 
076704 



.•ERROR 325 



EMT325 
EHT1 
EDT1 
EFT1 



UNCORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER 



655 
656 

657 



005052 
005054 
005056 
005060 



076124 
076470 
076614 
076704 



.•ERROR 326 



EMT32b 
EHT1 
FDT1 
EFT1 



DATA PARITY ERROR DURING READ COMMMAND 



658 
659 
660 



005062 
005064 
005066 
005070 



076142 
076470 
076614 
076704 



.•ERROR 327 



EMT327 
EHT1 
EDT1 
EFT1 



OFFSET MODE NOT RESET BY WRITE COMMAND 



661 
662 
663 



00S072 
005074 
005076 
005100 



076154 
076470 
076614 
076704 



.•ERROR 330 



EMT330 
EHT1 
EDT1 
EFT1 



DATA PARITY ERROR DURING WRITE COMMAND 



664 
665 
66o 



005102 076164 

005104 076470 

005106 076614 

005110 076704 



.•ERROR 331 



EMT331 
EHT1 
EDT1 
EFT1 



WRITE CLOCK FALURE DURING WRITE COMMAND 



667 



'"ZRWOeO RM05/^/2 FCTNL TST 3 
FRROR POINTER TABLE 



H 5 



668 

669 



005112 076176 

0051 U 076A70 

005116 0766U 

0051 ?0 076704 



670 
671 
672 



005122 
005 12A 
005126 
005130 



673 
674 
675 



005132 
C05134 
005136 
005140 



676 
677 
678 



005142 
005144 
005146 
005150 



67y 
680 
681 



005152 
005154 
005156 
005160 



682 
683 
684 



005162 
005164 
005166 
005170 



685 
686 
687 



005172 
005174 
005176 
005200 



C76210 
076470 
076614 
076704 



076226 
076470 
076614 
076704 



076244 
076470 
076614 
076704 



076264 
076552 
076650 
076740 



076274 
076564 
076660 
076750 



076304 
076552 
076650 
076740 
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.•ERROR 332 



DATA LATE ERROR DURING DATA TRANSFER 



EMT332 
EHT1 
EDT1 
EFT1 



.•ERROR 333 



PJP STIL SET AFTER DATA TRANSFER - SKI - 0 



EMT333 
EHT1 
EDT1 
EFT1 



.•ERROR 334 



LOST MOL DURING DATA TRANSFER - OPI - 0 



EMT334 
EHT1 
EDT1 
EFT1 



.•ERROR 335 LOST VOLUME VALID DURING DATA TRANSFER - IVC 

EMT335 
EHT1 
EDT1 
EFT1 

.•ERROR 336 DATA READ DOES NOT COMPARE WITH DATA WRITTEN 

EMT336 
EHT336 
EDT336 
EFT336 



.■ERROR 337 WRITE CHECK ERROR NOT DETECTED 

EMT337 
tHT337 
EDT337 
EFT337 

.•ERROR 340 WRITE CHECK ERROR AT UNEXPECTED ADDRESS 

EMT340 
EHT336 
EDT336 
EFT336 



688 
689 



.■ERROR 341 INCORRECT DATA DURING WRITE CHECK ERROR 



CZRMCBO RMOS/3/? FCT^L 'ST 3 
FRROR POINTER TABLE 



690 



005202 
00520A 
005206 
005210 



691 

692 
693 



005212 
0052K 
005216 
005220 



694 
695 
696 



005222 
005224 
C05226 
005230 



697 
698 
699 



005232 
00523A 
005236 
005240 



700 
70) 
702 



005242 
005244 
005246 
005250 



703 
704 
705 



005252 
005254 
005256 
005260 



706 
707 
708 



005262 
005264 
005266 
005270 



709 
710 
711 



076316 
076552 
076650 
076740 



076324 
076470 
076614 
076704 



076336 
076470 
076614 
076704 



076350 
076576 
076670 
076760 



076362 
076470 
076614 
076704 



076372 
076470 
076614 
076704 



076406 
076470 
076614 
076704 



I 5 
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FMT341 
EHT336 
EDT336 
Ef T536 



.■ERROR 342 



"JVC" ERROR NOT DETECTED DURING DATA TRANSFER 



EMT342 
EHT1 
EDT1 
EFT1 



.•ERROR 343 



•TER" NOT DETECTED DURING DATA TRANSFER 



EMT343 
EHT1 
EDT1 
EFT1 



.•ERROR 344 



"HCE" NOT DETECTED DURING DATA TRANSFER 



EMT344 
EHT344 
EDT344 
EFT344 



; ERROR 345 



'BSE" NOT DETECTED DURING DATA TRANSFER 



tMT345 
EHT1 
EDT1 
EFT1 



.ERROR 346 HEADER ERROR WAS DETECTED W/ HCI SET 

EMT346 
EHTl 
EDT1 
EFT1 

;FRROR 347 DATA TRANSFER NOT ABORTED W/ COMP ERROR SET 

EMT347 
EHTl 
EDT1 
EFT1 

.-ERROR 350 LOST VOLUME VALID DURING SEARCH - "WC" = 0 



SEO 0060 



CZHMOeO RM05/3/2 FCTM TST 3 
ERROR POINTER TABLE 



00527? 
005274 
005276 
005300 



712 
713 
714 



005302 
005304 
005306 
005310 



715 
716 
717 



005312 
005314 
005316 
005320 



718 
719 
720 



005322 
005324 
005326 
005330 



076420 
076470 
076614 
076704 



076436 
076470 
076614 
076704 



076446 
000000 
000000 
000000 



076452 
076610 
076702 
076770 



MACRO V04.00 
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EMT350 
EHT1 
EDT1 
EFT1 



SFO 0061 



.•ERROR 351 



EMT351 
EHT1 
EDT1 
EFT1 



.•ERROR 352 



EMT352 
0 
0 
0 



.•ERROR 353 



EMT353 
EHT353 
EDT353 
EFT353 



"ATA" DID NOT SET DURING SEARCH 



PROGRAM TIMEOUT WHKE TESTING RMLA 



LOOK AHEAD TEST FAJLS 



721 
722 
723 



005332 076462 

005334 076470 

005336 076614 

005340 076704 



;E^^ROR 354 



EMT354 
EHT1 
EDT1 
EFT1 



BSE SHOULD NOT BE SET 



724 
725 



.-PUT ERROR TABLE HERE 



CZ«MOBO W»05/3/2 FCTMl 
ERROR TABLE USAGE 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 



TST ! 



MACRO V04.00 
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SEO 0062 



.S8TTL ERROR TABLE USAGE 

THE ERROR TABLE ABOVE CONSISTS OF FOUR WORD ENTRIES FOR EACH ERROR 
NUMBER, I.E.. 

EMT - ERROR MESSAGE 1ABLE ADDRESS 
EHT - ERROR HEADER TABLE ADDRESS 
EDT - ERROR DATA TABLE ADDRESS 
EFT - ERROR FORMAT TABLE ADDRESS 

THE EMT ENTRY IS THE ADDRESS OF THE TABLE OF ERROR MESSAGE STRINGS 
FOR THE PARTICULAR ERROR. EACH ERROR MESSAGE TABLE LISTS THE ADDRESS 
OF ONE OR MORE ERROR MESSAGE STRINGS WHICH ARE TO BE FORMATTED AND 
TYPED BY THE ERROR TYPE SUBROUTINE. IF THE EMT ENTRY IS ZERO, THERE IS 
NO MESSAGE TO BE TYPED FOR THE ERROR. 

SIMILARLY. THE EHT, EDT, AND EFT ENTRIES ARE ADDRESSES OF TABLES 
OF HEADER, DATA AND FORMAT INFORMATION FOR A GIVEN ERROR. EACH ENTRY 
IN THE ERROR HEADER TABLE MAY OR MAY NOT HAVE AN ASSOCIATED LINE OF 
DATA. HOWEVER, EACH DATA LINE MUST HAVE AN ASSOCIATED FORMAT AND 
HEADER. THAT IS, A HEADER LINE MAY BE PRINTED WITHOUT ANY DATA, 
BUT A DATA LINE IS NOT PRINTED WITHOUT A HEADER, AND EACH DATA LINE 
MUST ALSO HAVE A FORMAT. 

IN SUMMARY, 

EACH NONZERO ENTRY IS THE ADDRESS OF A TABLE, 

EACH TABLE IS A LIST OF ADDRESSES WHICH DEFINES THE LOCATIONS 

OF MESSAGE STRINGS, HEADERS, DATA OR FORMAT. 



t 
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5 
c 

X 

J 




ni 1 Ann 




/ 




nn*;7^n 

\J\Jjf H\J 




J 








o 




1 n^^ni 






Uv J J J*i 


nnnA i 7 










• 


7 

t 




ni nn^ A 




Q 
O 








Q 


nnsi?n 






in 








1 1 

1 1 








1 ? 

1 c 








1 7 

1 3 










VJV JHCC 


01 ?777 


1 77777 


■ J 


J** j\j 


00040? 




16 








17 


C05A32 


005037 


0C1330 


1 o 




nnn?4n 




1Q 






000000 


?0 

C\J 




nni ^7S 




?1 








22 








23 










005A50 


012706 


001114 




005454 


005026 






005456 


022706 


001154 




005462 


001374 






005464 


012706 


001100 



005470 
005476 
005504 
005512 
005520 
005526 
005534 
005542 
005550 
005556 
005562 
005566 
005574 
005602 



005610 
005614 
005622 
005630 
005636 
005644 



012737 
012737 
012737 
012737 
012737 
012737 
012737 
012737 
013737 
005037 
005037 
112737 
012737 
012737 



013746 
012737 
012737 
012737 
022777 
001012 



064054 
000340 
064640 
000340 
06767^ 
000340 
070002 
000340 
037100 
001206 
001210 
000001 
005574 
005602 



000004 
005650 
177570 
177570 
\77777 



001330 



000020 
000022 
000030 
000032 
000034 
000036 
000024 
000026 
057072 



001131 
001122 
001124 



000004 
001154 
001156 
173310 



.•THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS 



BADTMO: 



;;65$: 
64S: 



.S8TTL 
STARTl 



START: CLR 
START2: NOP 
INC 
BNE 
RESET 



MOV 


(SP) RO 


SAVF PC UHFRF THF TIMF OUT QCClJRFD 


TST 


-(RO) 


"ADJUST PC -2 


CMP 


(SP)*.(SP)* 


.•RESTORE STACK POINTER 


TYPE 


.65$ 


;;TYPE ASCIZ STRING 


BR 


64$ 


;;GET OVER THE ASCIZ 


•ASCIZ 


<CRLF>/UNEX 


"ECTED BUS TIMEOUT, PC=/ 


MOV 


RO,-(SP) 


.•SETUP FOR TYPING OUT PC 


TYPOC 






NOP 




;PUT 'HALTCO)' INSTRUCTION HERE IF 






;T0 STOP ON UNEXPECTED TIMEOUT. 


START 


OF PROGRAM 




MOV 


•-l.CHGADR 


; CHANGE RH/RM BUS ADDRESS 


BR 


START2 



CHGADR 

»0 
.-4 



;N0 CHANGE IN ADDRESS 

TTY LOOP, WAIT FOR INCREMENT 
OF WORD 

RESET THE WORLD 



.S8TTL INITIALIZE THE COMMON TAGS 
.-.-CLEAR THE COMT^DN TAGS ($CMTA6) AREA 
#$CMTAG,R6 
(R6) + 
#SWR.R6 
.-6 

*STACK,SP 
FEW VECTORS 
mCOPE.OHOTVEC 
#340.»riOTVEC+2 



MOV 
CLR 
CMP 
BNE 
MOV 

;; INITIALIZE A 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLP 
CLR 
MOVB 
MOV 
MOV 



FIRST LOCATION TO BE CLEARED 
CLEAR MEMORY LOCATION 
DONE? 

LOOP BACK IF NO 
SETUP THE STACK POINTER 



;;IOT VECTOR FOR SCOPE ROUTINE 
.-.-LEVEL 7 

*$ERROR,a#EMTVEC ;;EMT VECTOR FOR ERROR ROUTINF 
*340.a#EMTVEC+2 ;. •LEVEL 7 

*$TRAP.ai'TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS 
#340. a#TRAPVEC+2; LEVEL 7 



#$PV«DN.*rPWRVEC 
#340.a#PWRVEC+2 
$ENDCT,$EOPCT 
$TIMES 
$ESCAPE 
#1,$ERMAX 
#..$LPADR 
#..$LPERR 



.-POWER FAILURE VECTOR 

LEVEL 7 

SETUP END-OF -PROGRAM COUNTER 
INITIALIZE NUMBER OF ITERATIONS 
CLEAR THE ESCAPE ON ERROR ADDRESS 
ALLOW ONE ERROR PER TEST 
INITIALIZE THE LOOP ADDRESS FOR SCOPE 
SETUP THE ERROR LOOP ADDRESS 



;;SIZF FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 



005646 000403 



;; EQUAL TO A 
MOV 
MOV 
MOV 
MOV 
CMP 
BNE 

BR 



-1", SETUP FOR A SOFTWARE SWITCH REGISTER. 



a#ERRVEC,-(SP) 
#64$.a#ERRVEC 
#DSWR , SWR 
#DD ISP, DISPLAY 

*-i.aswR 

66$ 

65$ 



SAVE ERROR VECTOR 
SET UP ERROR VECTOR 
SETUP FOR A HARDWARE SWICH REGISTER 
AND A HARDWARE DISPLAY REGISTER 
TRY TO REFERENCE HARDWARE SWR 
BRAT^CH IF NO TIMEOUT TRAP OCCURRED 
AND THE HARDWARE SWR IS NOT = -1 
BRANCH IF NO TIMEOUT 
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005650 
005654 
005656 
00566A 
005672 

005676 
005702 
005710 
005712 
005720 

2<. 

25 005720 

26 005726 
27 

28 

00573A 
005740 
G057A2 
005750 
005752 
005756 

006034 

006034 
006040 
006042 
006050 
006052 
006060 
006062 
006064 
006066 
006074 

29 
30 
31 
32 

33 006074 

34 C06100 

35 006106 
56 006110 

37 006116 

38 006124 

39 006126 

40 006132 

41 006136 

42 006140 
006144 



43 
44 
45 
46 



006172 
006172 
006174 
006200 
006202 



0127^6 
000002 
012737 
012737 
012637 

005037 
132737 
001403 
012737 



012737 
012737 



005227 
001035 
022737 
001431 
104401 
000426 



005737 
001012 
123727 
001406 
023727 
001005 
104407 
000403 
112737 



005037 
122737 
001160 
013737 
122737 
103002 
10503/ 
005737 
001425 
104401 
000412 



005046 
113716 
104403 
001 



005656 

0001 76 
0001 74 
000004 

001230 
000200 

001244 



005342 
000300 



037242 
005760 

000042 
001242 
001154 



SEO 0064 



001154 
001156 



001243 
001154 



000004 
000006 



000042 



000001 
0001 76 



000001 001150 



001332 
000016 

000040 
000007 

001332 
000042 

006146 



001332 



000041 

001332 
001332 



64$: 
65S: 



MOV 
RTJ 
MOV 
MOV 
66$: MOV 

CLR 
BITS 
BEO 
MOV 

67$: 



#65$. (SP) 



;;SET UP FOR TRAP RETURN 
; .-POINT TO SOFTWARE SWR 



«SUREG,SUR 
*DISPREG.DISPLAV 
(SP)*.a#ERRVEC ; .-RESTORE ERROR VECTOR 



SPASS 

#APTSIZE,$ENVM 
67$ 

#$3WREG.SUR 



;; CLEAR PASS COUNT 
.-.-TEST USER SIZE UNDER APT 
;; YES. USE NON-APT SWITCH 
:;NO,USC APT SWITCH REGISTER 



.-SETUP '7IME0UT" TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS 

MOV #aADTMO.ERRVEC .'SETUP FOR UNEXPECTED TIMEOUT 
MOV *PR6.ERRVEC*2 ;LEVEL 6 

.S8TTL TYPE PROGRAM NAME 

;;TYPE THE NAME OF THE PROGRAM IF FIRST PASS 



;;69$: 

68$: 

.S8TTL 



INC 


#-1 


.-.-FIRST TIME? 


BNE 


68$ 


.-.-BRANCH IF NO 


CMP 


ir$ENDAD,a#42 


;.-ACT-11? 


BEO 


68$ 


.-.-BRANCH IF YES 


TYPE 


.69$ 


;;TYPE ASCIZ STRING 


BR 


68$ 


;;GET OVER THE ASCIZ 


.ASCIZ 


<CRLF>aCZRM080 


- RM05/3/2 FUNCTIONAL 



GET VALUE FOR SOFTWARE SWITCH REGISTER 



TST 


»r42 


:;ARE WE RUTMING UNDER XXDP/ACT? 


BNE 


70$ 


.-.•BRANCH IF YES 


CMPB 


$ENV,#1 


;;ARE WE RUNNING UNDER APT? 


BEO 


70$ 


.-.•BRANCH IF YES 


CMP 


SWR,/rSWRE6 


.•.-SOFTWARE SWITCH REG SELECTED? 


BNE 


71$ 


.•.-BRANCH IF NO 


GTSWR 




;;GET SOFT-SWR SETTINGS 


BR 


71$ 




MOVB 


#1,$AUT0B 


;;SET AUTO-MODE INDICATOR 



70$: 
71$: 

.-THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE: 
.-PAPER TAPE (MANUAL). ACTII, XXDP CHAIN OR DUMP 



1$: 



7H 



73$: 



CLR 

CMPB 

BNE 

MOV 

CMPB 

BHIS 

CLR8 

TST 

BEO 

TYPE 

BR 

.ASCIZ 

CLR 
MOVB 
TYPOS 
.BYTE 



XXDP 

#i6.a4r4i 
3$ 

ar40,xxDP 

#7, XXDP 

1$ 

XXDP 

a#42 

2$ 

,73$ 

?2$ 

<CRLF>/NOT 

-(SP) 
XXDP.(SP) 

1 



CLEAR 'XXDP* LOAD DEVICE STORAGE 
; LOADED FROM AN RM05/3/2 ? 
.•BRANCH IF NOT 

;GET DEVICE INDICATOR AND NLfCER 
IS IT A VALID NUMBER ? 

;YES 

;N0, DEFAULT TO DRIVE 0 
; CHAIN MODE OR ACTll AUTO ACCEPT ? 
;BR IF NEITHER 
.-TYPE ASCIZ STRING 
.GET OVER THE ASCIZ 
TESTING DRIVE / 



CLEAR WORD ON S^ACK 
GET DRIVE ADDRESS 
TYPE THE ADDRESS 
ONLY I CHARACTER 
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SEQ 0065 



A7 006203 
A8 00620A 
49 006210 
50 

51 006212 

52 006216 

53 006220 
006224 

0062A6 

54 006246 

55 006250 

56 006254 

57 006256 

58 006257 

59 006260 
006264 

006350 

60 C06350 
006354 

006450 

64 

65 006450 

66 006454 

67 006456 
68 

69 

70 006464 

71 006464 

72 006472 
73 

74 006474 

75 006476 

76 006502 
77 

78 006506 

79 006514 

80 006516 

81 006522 
006524 
006526 
006527 

82 006530 
83 

84 006534 

85 006542 

86 006546 

87 006552 
38 006560 

89 006562 

90 006570 

91 006572 

92 006576 

93 006604 

94 006610 



000 
104401 
000517 

005227 
001114 
104401 
000410 



005046 
113716 
104403 
001 
000 
104401 
000431 



104401 
000435 



005737 
001561 
012737 



132737 
001146 

005001 
01 3700 
104401 

136137 
001531 
104401 
010146 
104403 
002 
000 
104401 

012760 
010160 
005760 
032760 
001051 
032760 
001450 
016002 
012737 
022702 
001430 



001217 

1 77777 
006226 



001332 
006266 
0C6356 

000042 
000377 



2$: 



;;75$: 
74$: 



;;77$: 
76$: 



;;78$: 

3$: 

.•CHECK 



001300 



.BYTE 

TYPE 

BR 

INC 
BNE 
TYPE 
BR 

.ASCIZ 

CLR 

"*10V8 

TYPOS 

.BYTE 

.BYTE 

TYPE 

BR 

.ASCIZ 

TYPE 
BR 

•ASCIZ 

FOR AUTO 
TST 
BEQ 
MOV 



0 ;SUPRESS LEADING ZEROS 
,$CRLF ; CR-LF 

3$ .-GET NUMPER OF DRIVES 

*-1 ;FIRST TIME THRU HERE ? 

3$ ;N0 
,75$ ;;TYPE ASCIZ STRING 

74$ ;;GET OVER THE ASCIZ 

<CRLF>/TO TEST DRIVE / 

-(SP) .-CLEAR WORD ON STACK 

XXDP.(SP) ;6ET DRIVE ADDRESS 

;TYPE DRIVE ADDRFSS 

1 ;ONLY 1 CHARACTER 

0 ;SUPRESS LEADING ZEROS 

,77$ ;;TYPE ASCIZ STRING 

76$ ;;GET OVER THE ASCIZ 

/. HALT PROGRAM, REMOVE RRDP PACK AND REPLACE IT/<CRLF> 

,78$ ;;TYPE ASCIZ STRING 

3$ ;;GET OVER THE ASCIZ 

/WITH A WORK PACK, CLEAR LOCATION 40 AND RESTART PROGRAM. /<CRLF> 

MODE OR STANDLONE MODE 

a»42 ; RUNNING IN AUTO MODE ? 

STANDALONE ;BR IF NO 

/!f377,$DEVM .-SET DEVICE MAP FOR ALL DRIVES 



000200 001243 



001276 
071430 

071 746 

001217 



071640 

000040 
000010 
000012 
010000 

004000 

000026 
071446 
020025 



001300 1$: 



000010 

000010 
000000 



006776 



;PR06RAM IS RUNNING IN AUTO MODE - SEE IF SIZING IS ALLOWED 
XSIZ: 

.SIZING ALLOWED ? 
:N0 

; START FROM DRIVE 0 
;LOAD THE BASE ADDRESS 
.•TYPE 'UNIT STATUS:* 

;IS DEVICE PRESENT IN MAP ? 
;8R IF NO 
; CR-LF 

;;SAVE R1 FOR TYPEOUT 
;;G0 TYPE— OCTAL ASCII 
;;TYPE 2 DIGIT(S) 
; .-SUPPRESS LEADING ZEROS 
;TYPE 4 BLANKS 

.•CLEAR MASS BUS 
.•LOAD THE DRIVE ADDRESS 
.•ACCESS DRIVE REGISTER 
;IS DRIVE PRESENT ? 
.•8R IF NO 

;IS DRIVE AVAIIA8LE ? 
;8R IF NO 

;SAVE DRIVE TYPE REGISTER IN R2 
.•ASSUME RM02 DEVICE 
.•SINGLE PORT RM02 ? 
;BR IF YES 



BITB 


#BIT7,$ENVM 


BNE 


12$ 


CLR 


R1 


MOV 


$8ASE,R0 


TYPE 


,SYSTAT 


BITB 


ATNT8L(R1),$DEVM 


BEO 


11$ 


TYPE 


,$CRLF 


MOV 


R1,-(SP) 


TYPOS 




.BYTE 


2 


.BYTE 


0 


TYPE 


,8LNKS4 


MOV 


*CLR,RMCS2(R0) 


MOV 


R1,RMCS2(R0) 


TST 


RMDS(RO) 


BIT 


#NEP,RMCS2(R0) 


BNE 


3$ 


BIT 


#DVA,RMCS1 (RO) 


BEQ 


4$ 


MOV 


RMDT(R0),R2 


MOV 


#$RM02.10$ 


CMP 


*20025.R2 


BEQ 


2$ 



I 



'"ZRMOeO Rf«K)5/3/? FCTNL 
GE^ VALUE FOR SOFTWARE 

95 006612 0?2702 

96 006616 OOH25 

97 006620 012737 

98 006626 022702 

99 006632 0OU17 

100 00665A 022702 

101 006640 OOUK 

102 006642 012737 

103 006650 022702 

104 006654 001406 

105 006656 022702 

106 006662 001403 

107 006664 104401 

108 006670 000412 

109 OOf . 2 032760 
no 0067UC 001412 
111 ^06702 ^004 17 
112 

113 006704 104401 

114 006710 000402 
115 

116 006712 104401 

117 006716 146137 

118 006724 00042S 
119 

120 006726 104401 

121 006732 146137 
'22 006740 000413 
123 

124 006742 005737 

125 006746 001406 

126 006750 123701 

127 006754 001360 

128 006756 104401 

129 006762 000755 
130 

131 006764 104401 

132 006770 104401 

133 006774 104401 

134 006776 000000 
135 

136 007000 005201 

137 007002 020127 

138 007006 003637 
139 

140 007010 104401 

14^ 007014 000137 
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TMP 








DC V 


071453 


006776 
















f 




























MOV 


020027 






CMP 










024027 






CMP 








BEO 


071465 






TYPE 








BR 


010000 


000012 


2$: 


BIT 
















BR 


071523 




3$: 


TYPE 








BR 


071540 




4S: 


TYPE 


071 746 


001 300 


5$: 


BICB 








BR 


071557 




6S: 


TYPE 


071 746 


001 300 




BICB 








BR 


001 332 




7$: 


TST 








BEO 


001332 






CMPB 








BNE 


071506 






TYPE 








BR 


071570 




8S: 


TYPE 


071642 




9S: 


TYPE 








TfPE 






10$: 


.WORD 






11$: 


INC 


000007 






CMP 








BLE 


001217 




12$: 


TYPE 


007476 






JMP 



6 6 
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SEO 0066 



#2402 5. R2 .DUAL PORT RM02 ? 

2$ ;8R IF YES 

«$RM03,10$ .-ASSUME RM03 DEVICE 

#20024. R2 .SINGLE PORT RM03 ? 

2$ ;BR IF YES 

#24024. R2 .-DUAL PORT RM03 ? 

2$ ;8R IF YES 

#$RM05,10$ .-ASSUME RM05 DEVICE 

#20027. R2 .-SINGLE PORT RM05 ? 

2$ ;8R IF YES 

#24027,R2 .-DUAL PORT RM05 ? 

2$ .-BR IF YES 

.NOTRM ; DRIVE NOT AN RM05/3/2 

5$ .-CHECK NEXT DRIVE 
#f>'0L.RMDS(R0) .-IS MEDIUM ON LINE ? 

6$ :SR IF NO 



,N0TPRS .-DRIVE NOT PRESENT 

5$ .-CHECK NEXT DRIVE 

.NOTAVL .-DRIVE NOT AVAILABLE 
ATNT8L(R1).$DEVM .-CLEAR DEVICE FROM BIT MAP 

11$ .-CHECK NEXT DRIVE 

.UNTOFF .-DRIVE OFFLINE 

ATNT8L(R1).$DEVM .CLEAR DEVICE FROM BIT MAP 

9$ .-PRINT DRIVE TYPE 

XXDP .-LOADED FROM RM05/3/2 ? 

8$ .-NO 

XXDP.R1 .-IS THIS THE DRIVE ? 

5$ .-BR IF NO 

.LODEV .-DRIVE IS LOAD DEVICE 

5$ 

.UNTON .-DRIVE ONLINE 

.8LNKS2 .-TYPE 2 BLANKS 

.-PRINT DRIVE TYPE 

0 .-MESSAGE ADDRESS HERE 

R1 .-INCREMENT THE DRIVE ADDRESS 

Rl.#7 .-ALL DRIVES ARE CHECKED ? 

1$ .-BRANCH IF NOT 

.$CRLF ; CR-LF 

CMNSTART ."JUMP TO COMMON START 



rZRMOBO RM05/^/2 
STANDALC3NE INPUT 



FCT«^. TST 
POUTINES 
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SCO 0067 



1 
? 
3 
4 
5 
6 
7 

9 

10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
3i> 
33 

34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



007020 
007020 

007024 
007030 



007032 
007036 
007040 
007044 
007052 
007054 
007060 
007064 
007066 
007072 
007076 



007100 
007100 
007104 
007106 
007112 



007116 
007116 
007122 
007126 
007130 
007134 
007136 
007142 
007144 
007152 
007154 
007160 
007162 

007170 
007174 
007176 
007202 
007204 
007210 
007212 
007216 
007220 
007226 
007230 
007234 
007236 



.S8TTL STANDALONE INPUT ROUTINES 



004737 

005227 
001023 



066510 
}77777 



STANDALONE: 
JSR 

INC 
BNE 



PC.STKINT .-INITIALIZE CONSOLE 

#-1 .-FIRST TIME THRU HERE ? 

2S ;0R IF NO 



.-SEE IF OPERATOR WANTS HELP TEXT 



104401 


070530 


TYPE 


.MSHELP 


WANT HELP ? 


104411 




RDCHR 




GET RESPONSE 


012637 


001176 


MOV 


{SP) + .'$TMP1 [ 
STMPl.^'Y 


SAVE AND ECHO RESPONSE 


123727 


001176 000131 


CMP8 


■WAS IT A vES RESPONSE ? 


001005 


BNE 


1$ 


•NO 


104401 


001176 


TfPF 


.$TMP1 


•TYPE 'Y' 


104401 


106436 


TYPE 


.HELP 


•YES - TYPE HELP TEXT 


000414 




BR 


3S 




104401 


071634 1$: 


TYPE 


.N .-TYPE 'N' 


104401 


001217 


TVPE 


.$CRLF ; CR-LF 


000407 




BR 


3$ 





005737 
001457 
005037 
104401 



104401 
013746 
104402 
104401 
104413 
012637 
001412 
022737 
101403 
104401 
000756 
013737 

104401 
005046 
113716 
104402 
104401 
104413 
012637 
001412 
022737 
101003 
104401 
000755 
113737 



001330 

001 330 
001217 



071105 
001276 

071642 

001 1 76 

160000 001176 
071115 

001176 001276 

071157 

001272 

071642 

001176 

001 OCO 001176 
071166 

001176 001272 



:SEE IF USER ^TS TO CHANGE UNI8US ADDRESS 
2$: 

TST CH6ADR 
BEO 7$ 
CLR CHGADR 
TYPE .SCRLF 



CHANGE RH/RM BUS ADDRESS ? 
8R IF NO 

NO CHANGE NEXT TIME 
CR-LF } 



.•DIALOGUE TO CHANGE THE UNI8US 
3$: 



4$: 
5$: 



6$: 



TYPE 


.CNSLOl 


nov 


SBASE.-CSP) 


TYPOC 




TYPE 


,8LNICS2 


RDOCT 




nov 


(SP)+,$TMP1 


BEO 


5$ 


CMP 


#1 60000, $TMP1 


8L0S 


4S 


TYPE 


,CNSL02 


BR 


S$ 


MOV 


$TMP1.$8ASE 


TYPE 


.CNSL03 


CLR 


-(SP> 


nova 


$VECT1,(SP) 


TYPOC 




TYPE 


,8LNKS2 


RDOCT 




MOV 


(SP) -^.STMPI 


BEO 


7$ 


CMP 


#1000,$TMP1 


BHI 


6$ 


TYPE 


,CNSL04 


BR 


§$ 


MOVB 


$TMP1.$VECT1 



ADDRESS. VECTOR ADDRESS AND INTERRUPT PRIORITY 



TYPE CURRENT BUS ADDRESS 

.•SAVE $8ASE FOR TYPEOUT 

;G0 TYPE—OCTAL ASCII (ALL DIGITS) 

TYPE 2 BLANKS 

GET NEW BUS ADDRESS 

CARRIAGE RETLWN ? 

YES-SKIP TO NEXT ENTRY 

BASE ADDRESS IN I/O PAG^ ? 

YES 

TYPE WARNING MESSAGE 
TRY AGAIN 

STORE NEW BUS ADDRESS 



;GET CURRENT VECTOR ADDRESS 

TYPE 2 BLANKS 
GET NEW VECTOR ADDRESS 
CARRIAGE RETURN? 
YES-SKIP TO NEXT ENTRY 
VECTOR ADDRESS < 1000 ? 
YES ' ' 

TYPE WARNING MESSAGE 
RETRY 

STORE NEW VECTOR ADDRESS 
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SFO 0068 



57 
58 

59 007244 
007250 
007252 

62 007256 

63 007262 
007266 
007272 

66 007274 

67 007300 

68 007306 

69 007310 
007314 
007322 



60 
61 



64 
65 



70 
71 
72 

73 007326 
007334 
007336 

76 007342 

77 007350 

78 007352 

79 007360 

80 007362 
81 

82 007364 

83 007366 
007372 
007400 

86 007402 

87 007406 

88 007412 

89 007420 

90 007422 

91 007430 

92 007432 

93 007436 
94 
95 
96 



74 
75 



84 
85 



007440 
007444 

97 007450 

98 007456 

99 007464 

100 007466 

101 007472 



005227 
001002 
104401 
104401 
005037 
104401 
104411 
012b37 
023727 
001007 
104401 
012737 
000137 

023727 
001436 
104401 
023727 
002430 
023727 
003427 
000423 

104411 
012637 
023727 
001432 
104401 
104401 
023727 
002404 
023727 
003403 
104401 
00071 1 

013701 
042701 
156137 
122737 
101337 
104401 
000137 



M7777 

071222 
001217 
001300 
071406 

001 1 76 
001 1 76 

070514 
000377 
006464 

001 1 76 

001 1 76 
001 1 76 

001 1 76 



001 1 76 
001 1 76 

0/0525 
001 1 76 
001176 

001176 

071364 



001 1 76 
1 7777Q 
^7\7kh 
000377 

001217 
006464 



;DIALOGUE TO INPUT DEVICE NUMBERS 



8S: 
9$: 



000101 

001300 

000015 

000060 
000067 

00001 5 

000060 
000067 



10$: 



11$; 



001300 
001 300 



12$: 
13$: 

14$: 



I Kir 


I 






T VDC 

1 Trt 






croi r 
, »LnLr 


CLR 


$DEVM 


TYPE 


.MSDRVS 






Mnvy 
nuv 


^^''W <TMP1 
k O t ^ t9 \ rlr 1 


TMD 


C rMP 1 if ' A 


DMP 


1 nt 

1 \J9 


T VDC 
1 TrC 


Al 1 


nuv 


njl I f 9vZ. vn 




vc r 7 


CMP 


$TMP1.*CR 


DCU 


1 

1 c* 


T VPP 


<TMP1 

, 5 1 nr 1 




tTMPl ir'D 


Rl T 


1 

1 c* 






Rl P 
C3LC 


1 7t 

1 J* 


RD 
on 


1 Pt 
1 C9 






nuv 


f^P)-*- tTMPI 

V o» 1 ^ f9 \ rlr 1 






BEO 


14$ 


TYPE 


.COMMA 


T VPP 


, « 1 rr 1 


rMP 


tTMPI ir*n 


SI T 


1 P4 




tTMP1 M*7 


OLC 


1 7* 

1 J* 


T VPP 

1 rrC 




RR 


9$ 


MOV 


$TMP1.R1 


BIC 


**C7.R1 


Bise 


ATNTBL(RI), 


CMP8 


*377.$DEVM 


BHI 


11$ 


TYPE 


.$CRLF 


JMP 


XSJZ 



FIRST TIME THRU ? 
BR IF NO 

TYPE INPUT INSTRUCTIONS 
CR-LF 

CLEAR DEVICE MAP 
TYPE 'DRIVE (S): ' 

GET RESPONSE 
IS INPUT "A" ? 
NO 

YES, TYPE "ALL" AND GO 

SET DEVICE MAP FOR ALL DRIVES 

AUTO SIZE. 

CARRIAGE RETURN ? 
YES 

ECHO RESPONSE 
NUMBER < 0 ? 
YES 

NUMBER > 7 ? 
NO 

ILLEGAL INPUT 



GET RESPONSE 
CARRIAGE RETURN ? 
YES 

TYPE • 
ECHO RESPONSE 
NUTBER < 0 ? 
YES 

NUMBER > 7 ? 
NO 

TYPE CR-LF " 7ILLE6AL INPUT' 
RETRY 

Rl = DRIVE NUMBER 

.-SET DEVICE IN MAP 

DONE ? 
NO 

CR-LF 

GO SIZE DEVICES 
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SEO 0069 



i 

1 

C 


nA7/ 7 A 






3 


UU' *» f O 


1 UmhU I 


U ' 1 ouu 


*♦ 


rv^7Qnp 


ni 77nn 
U 1 j'U'' 


Af»1 7 Aft 
UU 1 PUU 


c 




UU1 UUh 




o 


nn7Qin 
\j\)fj 1 U 


1 <v.z.ni 


Uf UPc P 


7 

I 




1 U*»*»U 1 


ft71 AP7 
Uf 1 Oc ' 


0 




m P7ni 


ftm z.7ft 

\J\J \Hf\J 






mm 77 

U U 1 Pf 


UU 1 HOO 


10 


007530 


012702 


000001 


1 1 


007534 


005003 




1 5 
1 r 


\J\Jf J jO 


nxnpnn 

UPUcUU 




1 J 


007540 


nm ^1 ^ 




1 H 


nn7';^ J 




ft7n«;9«» 

Uf UPcP 


1 c 


yu / jHO 


m ^\x^ i 




1 0 


UU' PPh 


U 1 UPHO 
1 V/«»*»UP 












1 7 


1 1 O PO 1 


n71 7AA 
Uf 1 f hO 


1 A 

1 O 












U\JO JVC 












pi 


\J\J 1 J f H 


nm AO? 




5P 
cc 


nn7^7/\ 

UU fjfO 


UUPcUP 




C J 




UUUf JO 






007602 


005011 






007604 


104401 


001217 


26 








27 








28 


007610 


004737 


043550 


29 


007614 


000425 




30 


007616 
007622 


104401 
000413 


007624 



007652 

31 007652 

32 007656 

33 007660 

34 007664 

35 007670 
36 

37 007670 
58 007672 

39 007676 

40 007700 

41 007704 

42 007706 

43 007712 
44 

45 007716 

46 007722 

47 007726 

48 007732 

49 007736 
007742 
007746 



005737 
001002 
000137 
000137 



000240 
105737 
001007 
005737 
001002 
000137 
000137 

105037 
005037 
005037 
004737 
012746 
012746 
000002 



000042 

005432 
037232 



001300 

000042 

005432 
037232 

001116 
001206 
001326 
066310 
000240 
007750 



.•ASSEMBLE TEST QUE FROM DEVICE MAP 
CMNSTART: 



1$: 



2$: 



000001 



3S: 



4S: 



TVPF 


DRIUFS 
f L/n J V t J * 


TYPF 'DRIVFfS) in RF TF<;TFB 


MOV 


tDFVM RO 


RO = DFVTTF MAP 




1$ 


BR IF DRIVF"> TO TFST ' 
TVPF • • 
TYPE 'NONE' 


TVPF 




TVPF 




MOV 


*TSTQUF*? R1 


R1 = ADDRFS<; OF F IR<;T FNTRY 


MOV 




INITIAI I7F FNTRV POINTFR 




R3 = DEVICE NUMBER 


Cl R 


R3 


BIT 


R? RO 


IS THIS DEVICE 'N MAP 




3$ 


NO . I 


TVPF 


COMMA 


TYPE ' , ' 


MOV 


R3 (R1) 


YES - ENTER DEVICE NUMBER I 




R3 -(SP) 


•SAVE R3 FOR TYPEOUT 


TYPOS 

til 




•60 TYPE— OCTAL ASCII 


BYTE 


1 


•TYPE 1 DIGITCS) 


BYTE 


0 


•SUPPRESS LEADING ZEROS 


MOVB 


ATNTBL(R3).1(R1)! 


ENTER ATTENTION BIT IN (iUE 


ADD 


*2.R1 


ADVANCE ENTRY POINTER 


ASL 


R2 


ADVANCE DEVICE POINTER 


TST8 


R2 


DONE ALL DEVICES ? 


BEO 


4$ 


•YES 


INC 


R3 


•ADVANCE DEVICE NUfBER 


BR 


21 


•ENTER NEXT DEVICE 


CLR 


(R1) 


•TERMINATE TEST QUE 


TYPE 


,$CRLF 


■TYPE CR-LF 



SIZE 



;;65S 
64$: 



5$: 
6$: 

READY: 



1$: 
2$: 



FOR CLOCK 
JSR 
BR 
TYPE 
BR 

.ASCIZ 



PC.SIZCLK 
6$ 
.65$ 
64$ 

<CRLF>/NO 'L* 



OR 



SEE IF CLOCK PRESENT 
YES - CLOCK IS PRESENT 
.•TYPE ASCIZ STRING 
;GET OVER THE ASCIZ 
'P' CLOCK/ 



TST 


a#42 


•ANY MONITOR PRESENT ■> 


BNE 


5$ 


•BR IF YES 


JMP 


START 


•JUMP TO START 


JMP 


$GET42 


■RETURN CONTROL TO MONITOR 


NOP 




■READY TO START TEST 


TST8 


$DEVM 


;ANY DRIVES IN MAP ? 


BNE 


2$ 


■BR IF YES 


TST 


a#42 


■ANY MONITOR PRESENT ? 


BNE 


1$ 


•BR IF YES 


JMP 


START 


■JUMP TO START 


JMP 


$GET42 


■RETURN CONTROL TO MONITOR 


CLR8 


STSTNM 


■RESET TEST Nlf«ER 


CLR 


$TJMES 


•INITIALIZE NUMBER OF ITERATIONS 


CLR 


CTLFG 


CLEAR CONTROL-C FLAG 


JSR 


PC.$TKINT 


•INITIALIZE TTY 


MOV 


*PR5.-(SP) 


•;PUT NEW PS ON STACK 


MOV 


#64$. -(SP) 


-.-PUT NEW PC ON STACK 


RTI 


•;POP NEW PC AND PS 
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007750 



010050 
010052 
010053 
010054 

72 010056 

73 010060 

74 010062 

75 010064 



71 



104403 
002 
000 
005004 
005304 
001376 
005504 
001 376 



HACWQ V04.00 
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S£0 0070 



jU 


\j\)f fj<j 


1 1 7777 


171^15 


\J\1 \ C 5*» 


J 1 


nn 77*; A 


UU5U J' 


nni SI 5 

Uw 1 5 1 c 




C5 
5C 










CT 










J** 










CC 

35 










jO 




ni 5777 

Vl C' Jf 


nn5nnn 




J f 


nn777n 


nni 57A 




JO 


Art777Z. 


ni 57An 




nnnn i n 

WW JU 1 w 


QQ 


V 1 UUU<: 


1 1 77An 

II'' ou 


-■ 7 1 /, An 


nnnm n 


-^n 
OU 


U 1 vJU 1 U 


ni Ann'? 


UUUU<:D 




C 1 




nA57n5 


1 7777C\ 




A3 




n557n5 

\Jcc'\Jc 


UUwwU' 




O J 




WW 1 WW J 






64 


010026 


012737 


011000 


001334 


65 










66 










67 










68 


CI 0034 


104401 


001 21 7 




69 


010040 


104401 


071422 




70 


010044 


013746 


001234 





M0V8 aTSTQUE.tUNIT 
CLR MEDEN8 



.•LOAD DRIVE NUMBER 
.•CLEAR MEDIA ENABLE 



.•CLEAR MASSBUS CONTROLLER. SELECT DRIVE AND DETERMINE THE LAST TRACK 
.•OF THE DIFFERENT DRIVE TYPES 



MOV 


*TA4.LSTRK 


■ASSUME LAST TRACK FOR RM02/3 = 4. 


MCV 


SBASE.RO 


•RO = UNI8US ADDRESS 


MOV 


*CLR.RMCS2(R0) 


•CLEAR MASSBUS 


MOVB 


aTSTQUE.RMrS2(R0) .-SELECT DEvICE UNDER TEST 


MOV 


RMDT(R0;.R2 


•GET RMDT AND 


6IC 


*1 77770, R2 


;SAVE DRIVE TYPE BITS 


CMP 


#7,R2 


•JS IT AN RM05 ? 


BNE 


3$ 


•NO, MUST BE AN RM02 OR RM03 


MOV 


*TA16.TA2,LSTRK 


jYES— SET LAST TRACK - 18. 



.TYPE DRIVE NUMBER TO BE TESTED($UNI T) 



3$: 



TYPE 
TYPE 
MOV 

TYPOS 

.BYTE 

.BYTE 

CLR 

DEC 

BNE 

DEC 

BNE 



.SCRLF 

.MSGDRV 

tUNlT.-(SP) 



2 
0 

R4 

R4 

.-2 

R4 

.-2 



CR-LF 

TYPE 'DRIVE' 

SAVE SUNIT FOR TYPE OUT 

TYPE DRIVE NUMBER 

GO TYPE—OCTAL ASCII 

TYPE 7 DIGIT(S) 

SUPPRESS LEADING ZEROS 
THESE TWO LOOPS ARE ADDED tq 
WAIT FOR TTY 
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G 

PAGE 



6 

13 



SEO 0071 



010066 
010066 
010070 
010072 
010076 
010102 
010106 

3 

4 0101U 

5 010116 
010122 

6 010126 

7 010134 
8 

9 010U2 

10 C10U6 

11 010152 

12 010156 

13 010162 
U 010166 

15 010172 

16 010176 

17 010202 

18 010206 

19 010212 

20 010216 
010222 

21 010226 
22 

23 010230 

24 010232 
010236 

25 010242 

26 010244 

27 010250 

28 010252 

29 010256 

30 010262 

31 010266 
32 

33 



*TFST 1 



CONTROLLER ACCESS TEST 



34 

56 



010266 
010266 
010270 
010272 
010276 
01030? 
010306 



000004 
000240 
012706 
013700 
013701 
012737 

005001 
013746 
013746 
012737 
012737 

110160 
010160 
016002 
010160 
016002 
016046 
010160 
016002 
01 2660 
010160 
016002 
012637 
012637 
000417 

022626 
012637 
012637 
104110 
005737 
001002 
000137 
005037 
000137 



TST1 : 



000004 
000240 
012706 
01 3700 
013701 
012737 



001100 
001276 
001466 

000001 001 226 



000004 
000006 

010230 000004 
000300 000006 

000001 
0C0002 
000002 
000004 
000004 
000010 
000010 
000010 
000010 
000022 
000022 
000006 
000004 



000006 
000004 

000042 

005422 
001 3aJ 
037044 



1$: 



2$: 
3$: 



SCOPE 




NOP 




1 lU V 


w 0 1 ML N # Or 


nu V 




nu V 


TC*D|IC D1 

1 o uuu « n t 


nu V 






R1 

n 1 


Mn\/ 

1 lU V 


u nn V L w « V ji / 


nuv 








1 lU V 


#PP^ PPPV/Ff-fP 




R1 RMfS1+1(R0) 


MOV 


R1 RMUfCRO) 


MOV 


RMWC(R0).R2 


MOV 


R1 .RMBA(RO) 


MOV 


RMBA(RO) R? 


MOV 


RMCS2(R0) -(SP) 


MOV 


R1 fiMCS2(R0) 


MOW 


RMrcp(DO) R? 


MOV 


(SP)+ RMCS2(R0) 


MOV 


R1 RMDB(RO) 


MOV 


RMDB(RO) R2 


MOV 

1 IW V 


(SP)'f FRRVEC'4'2 


MOV 


(SP)+.ERRVEC 


BR 


3$ 


CMP 


(SP)+,(SP)* 


MOV 


(SP)+,ERRVEC+2 


MOV 


(SP)+,ERRVEC 


EMT 


110 


TST 


al/r42 


BNE 


2$ 


JMP 


START1 


CLR 


SDEVM 


JMP 


$E0P 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNI8US ADDRESS 

(R1) - DEVICE BEING TESTED 

.-SET TEST NUMBER IN APT MAIL 



BOX 



;;PUSH ERRVEC ON STACK 

;;PUSH ERRVEC*2 ON STACK 



;MOVE HI BYTE TO RMCS1 
;MOVE WORD COUNT REGISTER 

.•MOVE BUS ADDRESS REGISTER 

;;PUSH R«CS2(R0) ON STACK 
.•MOVE CONTROL STATUS REGISTER 

;;POP STACK INTO RMCS2(R0) 
.-MOVE DATA BUFFER 

;;P0P STACK INTO ERRVEC*2 
;;P0P STACK INTO ERRVEC 
;N0 BUS TIMEOUT OCCURRED 

.•ADJUST STACK 

;;P0P STACK INTO ERRVEC*2 
;;P0P STACK INTO ERRVEC 

.•STAND aLoNE mode ? 

;N0! ! 

; YES-GO GET SBASE 
.•FUDGE NO DRIVES IN MAP 
.•RETURN TO $EOP 



001100 
001276 
001466 

000002 001226 



•»»**•**•»»»»•»•••»»♦•♦»•»♦••♦••»•••••*»••»»*»•*»•*»»••••»*»**»» 

'•TEST 2 WRITE, READ ZEROS 

•»♦*»♦•»♦»♦•♦•»•*••♦»••♦♦♦♦*••»•»••*»»•»»»*»»»»»»»»•«»»»•»»♦»»»» 

"TST2: 

SCOPE ; SCOPE CALL 

NOP .-START OF TEST 

MOV *STACK,SP .-INITIALIZE STACK POINTER 

MOV SBASE.RO ;R0 = UNIBUS ADDRESS 

MOV TSTQUE.R1 ;(R1) = DEVICE BEING TESTED 

MOV *2,$TESTN .-.-SET TEST NUMBER IN APT MAR BOX 

• •»•♦»»»••«•*»»••»»*•»♦•«*»»*»**••••*«•*»»*»•»•»***»***»»»»••»»•» 



;LUOP *^ 



FORMAT.WRFE.READ 
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57 
38 
59 

AO 
41 



0103U 



0103U 
010320 



010322 
010324 
010326 
010330 

42 

43 

44 C10334 

45 010334 

46 010342 

47 010350 

48 010356 

49 010364 

50 010372 
51 

52 

010400 
010404 
010406 
010412 
010414 
53 010420 
010420 
010426 
56 010434 
57 
58 

59 010440 

60 010444 

61 010450 

62 010454 

63 010460 

64 01046A 

65 010470 

66 010474 

67 010500 

68 010500 
010504 
010506 
010510 
010512 

69 010516 
70 

71 



54 
55 



004737 
154130 



000404 
000240 
104000 
000137 



012737 
012737 
012737 
012737 
012737 
012737 



004737 
000405 
104401 
104000 
000137 

012737 
012737 
004737 



012702 
112722 
112722 
112722 
112722 
112722 
112722 
112712 

004737 
000404 
000240 
104000 
000137 



037316 



011274 



000000 
000000 
106436 
177376 
010000 
000063 



040242 

070426 

011274 

072060 
000001 
042174 



001553 
000034 
000006 
000004 
000002 
000032 
000000 
000200 

043330 



011274 



MACRO V04.00 



1S: 
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; PREPARE DEVICE 
JSR 
.WORD 



FOR TEST 

PC.TSTPRP 

154130 



BR 
NOP 
EMT 
JMP 



2$ 



25$ 



PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE t VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR 'T-IP" IS SET 

VERIFY RFCALI8RATI0N 

GO TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY T5TPRP SUBROUTINE 

GO TO 25$ IF ERROR 



;LOAD PARAMETERS AND GENLRATE DATA BUFFER 



001446 
001420 
001416 
001414 
001444 
001412 



001 "1 74 
001176 



2$: 

MOV #0,RMDCO 

MOV #0.RMDAO 

MOV *8UF0NE,RMBA0 

MOV *-258..RMWC0 

MOV #FMT16.RM0F0 

MOV *wh:go,rmcsio 

.•VERIFY THAT SECTOR IS NOT BAD 

JSR PC.8ADSCT 

BR 3$ 

TYPE .SCTMSG 
EMT 

JMP 25$ 

MOV #ZEROS.$TMP0 

MOV *1,$TMP1 

JSR PC.6EN8UF 



3$: 



CYLINDER = 0 

TRACK - 0, SECTOR 0 

BUS ADDRESS 

2 + 256. WORDS (2'S COMP) 
16 BIT FORMAT 

WRITE HEADER AND DATA COMMAND 



CALL BAD SECTOR MODULE 

GO TO 3$ IF NO ERROR 

TYPE BAD SECTOR MESSAGE 

ERROR » DEFINED BY BADSCT SUBROUTINE 

GO TO 25$ IF ERROR 



STARTING ADDRESS OF PATTERN 

RANGE OF PATTERN 

GO GENERATE BUFFER FOR FORMAT 



.•SETUP PARAMETERS AND EXCUTE COMMAND 



4$: 



5$: 



MOV 
M0V8 
M0V8 
M0V8 
M0V8 
M0V8 
M0V8 
MOVB 

JSR 

BR 

NOP 

EMT 

JMP 



#PUTINX,R2 
#RMDC,(R2)+ 
#RMDA.(R2)+ 
#RMBA,(R2)+ 
#RMWC,(R2)+ 
#RM0F,(R2)+ 
#RMCS1,(R2)+ 
*200,(R2) 

PC, PUT 
5$ 



25$ 



;R2 BYTE ENTRY POST I ON 



.■TERMINATE TABLE 

60 WRITE REGISTER(S) WITH PUT SUBROL'TINE 

60 TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 25$ IF ERROR 



010516 004757 042774 



.■SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PCGETSTS ;G0 TO GETSTS SU8R0UTIUE 



CZRMOeO RM05/3/2 FCTNL TST 
V WRITE. READ ZEROS 
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f2 
73 

010522 

75 

^6 010526 
01CS32 
010534 
010536 
010540 

77 010544 

78 

79 

80 010544 
010550 
010552 
010554 
010556 
010560 

81 CI 0564 
82 

83 

84 010564 

85 010572 
86 

87 
88 
89 

90 010574 

91 

92 

93 010574 
010600 



010602 
010604 
010606 
010610 

94 010614 

95 

96 

97 010614 

98 010614 

99 010622 

100 010630 

101 010636 
^02 010642 

103 010646 

104 010652 

105 010656 

106 010662 



004737 043672 



004737 043060 
000404 
000240 
104000 

000137 011274 



004737 056572 

000405 

000240 

104000 

004736 

000137 011274 



012737 010574 
000410 



004737 
154130 



037316 



000404 
000240 
104000 
0001 37 



012737 
012737 
012737 
012702 
112722 
112722 
112722 
112722 

yni22 



011274 



106442 
1 77400 
000061 
001553 
000006 
000034 
000032 
000004 
000002 



SEO 0073 



;UAIT FOR COMTIAND TO COMPLETE 
JSR PC.TIMOUT 

;G0 GET REGISTER STATUS 
JSR PC. GET 
BR 6S 
NOP 
EMT 

JMP 25 S 

6$: 

.•VERIFY RESUlTS OF WRITE COMMAND 



7$: 



JSR 
BR 
NOP 
EMT 
JSR 
-MP 



PC.DTASTS 
7$ 



Pc.a(SP)+ 

25$ 



;G0 TO TIMOUT SLOROUTINE 



GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY GET SUBROUTINE 

GO TO 25$ IF ERROR 



GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 25$ IF ERROR 



001124 



.•MOVE LOOP ADDRESSES TO NEXT OPERATION 
MOV m,$LPERR 
BR 9$ 



.•SKIP TO WRITE OPERATION 



.-LOOP *2 
8$: 

.•PREPARE DEVICE 
JSR 
.WORD 



WRITE. READ 



FOR TEST 

PC.TSTPRP 

154130 



9$: 



BR 
NOP 
EMT 
JMP 



9$ 



25$ 



PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE % VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER & SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR "PIP" IS SET 

VERIFY RECALIBRATION 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY TSTPRP SUBROUTINE 

GO TO 25$ IF ERROR 



001416 
001414 
001412 



; SETUP PARAMETERS AND EXCUTE COMMAND 
10$: 

MOV #8UF0NE+4.Rf«A0 ;MOVE MEMORY ADDRESS 

MOV *-256..RMWC0 ;CHANGE WORD COUNT 

MOV #WDIG0,RMCS10 .-WRITE DATA COMMAND 

MOV *PUTINX.R2 ;L0AD PUT REGISTER INDEX TABLE 

M0V8 #RMDA.(R2)+ 

M0V8 /irRMDC.(R2) + 

M0V8 *RM0F,(R2)+ 

M0V8 *RMBA,(R2)+ 

M0V8 *RMWC.(R2)+ 



czRnoeo 

107 
108 
109 
110 



ii: 

112 
113 

1U 
115 

116 
117 
118 



119 

120 

121 
122 



123 
12A 



125 
126 



127 
128 
129 
1?0 
131 
152 
133 
134 
135 
136 
137 
138 



RM05/3/2 FCTNL TST 3 
WRITE. READ ZEROS 

010666 112722 000000 
010672 112722 000200 

010676 004737 0A333O 

010702 000A04 

010704 000240 

010706 104000 

010710 000137 011274 
010714 



010714 004737 042774 



010720 004737 043672 
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SEO 0074 



010724 
010730 
01 0732 
010734 
010736 
010742 



010742 
010746 
010750 
010752 
010754 
010756 
010762 
010762 
010766 
010770 
010772 
010774 
010776 
011002 
011002 
011006 
C11010 
011012 
011014 
011016 
011022 



011022 
011030 



011032 



004737 043060 
000404 
000240 
104000 

000137 Oil 274 



004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 



012737 
000410 



11$: 



?10V8 
MOVB 

JSR 

BR 

NOP 

EMT 

JMP 



*«MCS1 ,(R2)* 
#200. (R2)* 

PC. PUT 



25% 



.•TERMINATE TA8LE 

GO WRITE REGISTFR(S) WITH PUT SUBROUTINE 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

60 TO 25$ IF ERROR 



.■SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 



;WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 

;G0 GET REGISTER STATUS 



12$: 



JSR 
BR 
NOP 
EMT 
JMP 



PC, GET 
12$ 



25$ 



;G0 TO TJMOUT SUBROUTINE 



60 READ REGISTER(S) WITH 6ET SUBROUTINE 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY GET SUBROUTINE 

60 TO 25$ IF ERROR 



044056 

011274 
056572 

011274 
044710 

011274 

011032 001124 



.-VERIFY RESULTS 
JSR 
BR 
NOP 
EMT 
JSR 
JMP 



13$: 



14$: 



15$: 



JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 



OF WRITE COMMAND 
PC.PRIERR 
13$ 



PC.a(SP)* 
25$ 

PC.DTASTS 
14$ 



PC.a(SP)* 
25$ 

PC.SECERR 
15$ 



PC.afSP)* 
25$ 



;CHAN6E LOOP ADDRESSES 

MOV #16$.$LPERR 
BR 17$ 



GO CHECK FOR PRIMARY ERRORS 

60 TO 13$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR ft DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 25$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 14$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY DTASTS SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

GO TO 25$ IF ERROR 

60 CHECK FOR SECONDARY ERRORS 

60 TO 15$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR ft DEFINED BY SECERR SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

60 TO 25$ IF ERROR 



.-SKIP TO NEXT OPERATION 



••**•**»»•****•**••*•**»**»»****»••♦*♦»♦»**»*»****»*****»*♦**»•** 
•LOOP ttl READ 

16$: 

.•PREPARE DEVICE FOR TEST 



C2RM0B0 RM05/5/2 FCTNL TST 3 
WRITE. READ 2ER0S 



159 



011032 
011036 



140 
K1 
U2 
K3 
KA 
K5 
U6 
K7 
148 
K9 
150 
151 
152 
153 
154 
155 



164 
165 
166 
167 



"68 



004737 
154130 



037316 



156 
157 
158 

159 
160 

161 
162 
163 



011040 
011042 
011044 
011046 
011052 



011052 
011052 
011060 
01 1066 
011072 
011076 
011102 
011106 
011112 
011116 
011122 

011126 
011132 
011134 
011136 
011140 
011144 



000404 
000240 
104000 
000137 



012737 
012737 
012702 
112722 
112722 
112722 
112722 
112722 
112722 
112712 

004737 
000404 
000240 
104000 
000137 



011274 



011144 CJ4737 042774 



011150 004737 043672 
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SEO 0075 



JSR 
.WORD 



PCTSTPRP 
154130 



17$: 



BR 
NOP 
EMT 
JMP 



17$ 



25$ 



PREPARE DFVJCE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE I VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR 'VIP" IS SET 

VERIFY PE CALIBRATION 

GO TO 17i IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY TSTPRP SUBROUTINE 

60 TO 25$ IF ERROR 



.■SETUP PARAMETERS AND EXCUTE COMMAND 
18$: 



107446 001416 


MOV 


*8UFTW0+4,RM8A0 






.•CHANGE MEMORY ADDRESS 


000071 001412 


MOV 


WDIGO.RMCSIO 






;READ DATA COMMAND 


001553 


MOV 


#PUTINX,R2 






.•LOAD PUT REGISTER INDEX TABLE 


000006 


M0V8 


*RMDA,(R2)* 








000032 


MOVB 


*RM0F,(R2)+ 








000034 


MOVB 


*RMDC.(R2)+ 








000004 


MOVB 


*RMBA.(R2)+ 








000002 


MOVB 


#RMWC,(R2)> 








000000 


MOVB 


*RMCS1, (P2)+ 








000200 


MOVB 


#200. (R2) 








043330 


JSR 


PC, PUT 


;G0 


WRITE REGISTCRCS) WITH PUT SUBROUTINE 


BR 


19$ 


;G0 


TO 


19$ IF NO ERROR 




NOP 




.•RETURN HERE IF ERROR 




EMT 




.-ERROR 


» DEFINED BY PUT SUBROUTINE 


011274 


JMP 


25$ 


;G0 


TO 25$ IF ERROR 



19$: 

.•SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.6ETSTS ;G0 TO GETSTS SUBROUTINE 



011154 
011160 
011162 
011164 
011166 
01 1 1 72 



011172 
011176 
011200 
011202 
011204 
011206 
011212 



004737 043060 
000404 
000240 
104000 

000137 011274 



004737 044056 

000405 

000240 

104000 

004736 

000137 011274 



.-WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 

;G0 GET REGISTER STATUS 



?0$: 



JSR 
BR 
NOP 
EMT 
JMP 



PC. GET 
20$ 



25$ 



; VERIFY RESULTS OF READ COMMAND 



21$: 



JSR 
BR 
NOP 
EMT 
JSR 
JMP 



PC.PRIERR 
21$ 



PC,5)(SP)* 
25$ 



;G0 TO TIMOUT SUBROUTINE 



60 READ REGISTER(S) WITH GET SUBROUTINE 

60 TO 20$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY 6ET SUBROUTINE 

GO TO 25$ IF ERROR 



60 CHECK FOR PRIMARY ERRORS 

60 TO 21$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PR I ERR SL6R0UTINE 

60 BACK FOR MORE ERROR CHECKS 

60 TO 2*5$ IF ERROR 



■ZRMOBO 

'2 

169 



170 
171 



RM05/3/2 FCTNL TST 
WRITE. READ ZEROS 
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172 
173 
17A 
175 



176 
177 
178 
179 
180 



SEO 0076 



181 
182 
183 
184 
185 
186 
187 
188 



011212 
011216 
011220 
011222 
01122A 
on 226 
011232 
011232 
011236 
011240 
011242 
011244 
011246 
011252 



011252 
011256 
011260 
01 1262 
011264 
011266 
011270 
011274 

011274 



011274 
011274 
011276 
011300 
011304 
011310 
011314 



011322 



011322 
01 1 326 



011330 
011332 
011334 
011336 



004737 
000405 
0002<.0 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 



0^4737 
106442 
107446 
000404 
000240 
104000 
000137 



05657? 

011274 
044710 

011274 
042432 

011274 



22$: 



23$: 



JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 



PC.DTASTS 
22$ 



pc,a(SP)* 

25$ 

PC.SECERR 
23$ 



PC.SKSP)* 
25$ 



;G0 VERIFY DATA 
JSR 
.WORD 
.WORD 
BR 
NOP 
EMT 
JMP 



PC.CMPBUF 
BUFONE+4 
BUF TWO+4 
24$ 



25$ 



GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 22$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY DTASTS SUBROUTINE 

60 BACK FOR ^HDRE ERROR CHECKS 

GO TO 25$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 23$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY SEfERR SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

60 TO 25$ IF ERROR 



60 COMPARE WRITE, READ DATA BUFFERS 

.•STARTING ADDRESS OF WRITE BUFFER 
;STARTIN6 ADDRESS OF READ BUFFER 

GO TO 24$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR M DEFINED BY CMP8UF SUBROUTINE 

GO TO 25$ IF ERROR 



000004 
000240 

012706 0011 00 

013700 001276 

013701 00':466 
012737 000003 001226 



24$: 
25$: 

•A************************************************************** 

'•TEST 3 WRITE. WRITE CHECK ZEROS 

•A************************************************************** 

tST3: 

SCOPE CALL 



SCOPE 
NOP 
MOV 
MOV 
MOV 
MOV 



*STACK,SP 
$8ASE.R0 
TSTOUE.RI 
#3,$TESTN 



START OF TEST 

INITIALIZE STACK POINTER 

RO = UNIBUS ADDRESS 

(R1) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 



■***»**•****•*•***•**••**♦••************•**»*•»»»*»»••****•*•*** 



;LOOP *1 
1$: 



FORMAT. WRITE, WRITE CHECK DATA 



004737 
154130 



037316 



.•PREPARE DEVICE FOR TEST 
JSR PC.TSTPRP 
.WORD 154130 



000404 
000240 
104000 
000137 



012252 



BR 
NOP 
EMT 
JMP 



2$ 



24$ 



PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE & VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER I SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR "PIP" IS SET 

VERIFY RE CALIBRATION 

GO TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY TS^PRP SUBROLUNE 

GO TO 24$ IF ERROR 



CZRMOBO RM05/3/2 FCTNL ^ST 3 
T3 WRITE. WRITE CH£C< ZEROS 
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SEO 0077 



189 










^90 










191 


0113A2 








192 


0113A2 


012737 


000000 


001446 


193 


011350 


012737 


000000 


001420 


m 


011356 


012737 


106436 


001416 


195 


011364 


012737 


1 77376 


001414 


196 


011372 


012737 


010000 


001444 


197 


OIUOO 


012737 


000063 


001412 


198 










199 











.•LOAD PARAMETERS AND GENERATE DATA BUFFER 
2S: 

MOV #C.RMDCQ 

MOV *0.RMDA0 

MOV «8U^0NE.RM8A0 

MOV *-258.,RMWC0 

MOV *FMn6,RM0F0 

MOV XrWHlGO.RMCSlO 

.•VERIFY THAT SECTOR IS NOT BAD 



CYLINDER = 0 
TRACK = 0. SECTOR " 0 
BUS ADDRESS 

2 ♦ 256. WORDS (2'S COMP) 
16 BIT FORMAT 

WRITE HEADER AND DATA COMMAND 



200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
21b 



011406 


004737 


040242 




JSR 


PC.8ADSCT 


;CALL BAD SECTOR MODULE 


011412 


000405 






BR 


3$ 


;G0 TO 3$ IF NO ERROR 


011414 


104401 


070426 




TYPE 


.SCTMSG 


;TYPE BAD SECTOR MESSAGE 


011420 


104000 






EMT 




.•ERROR It DEFINED BY BADSCT SUBROUTINE 


011422 


000137 


012252 




JMP 


24$ 


;G0 TO 24$ IF ERROR 


011426 








3$: 






011426 


012737 


072060 


001 1 74 


MOV 


*Z£ROS,$TMP0 


; STARTING ADDRESS OF PATTERN 


011434 


012737 


000001 


001 1 76 


MOV 


#1,$TMP1 


.•RANGE OF PATTERN 


011442 


004737 


0421 74 




JSR 


PC.GENBUF 


;G0 GENERATE BUFFER FOR FORMAT 



216 
217 
218 

219 
220 

221 
222 
223 



224 
225 
226 
227 



011446 
011452 
011456 
011462 
011466 
011472 
011476 
011502 
011506 
011506 
011512 
011514 
011516 
011520 
011524 



01 1 524 



011530 



011534 
011540 
011542 
011544 
011546 
011552 



011552 
011556 
011560 
011562 



012702 
112722 
112722 
112722 
112722 
112722 
112722 
112712 

004737 
000404 
000240 
104000 
000137 



004737 
004737 



004737 
000404 
000240 
104000 
000137 



004737 
000405 
000240 
104000 



001553 
000034 
000006 
000004 
000002 
000032 
000000 
000200 

043330 



012252 

042774 
043672 
043060 

012252 

056572 



; SETUP PARAMETERS AND EX CUTE COMMAND 



4$: 



5$: 



MOV 

MOVB 

MOVB 

MOVB 

MOVB 

MOVB 

MOVB 

MOVB 

JSR 

BR 

NOP 

EMT 

JMP 



#PUTINX,R2 
*RMDC.(R2)* 
#RMDA.{R2)+ 
#RMBA.(R2>* 
#RMWC.(R2)+ 
*RM0F,(R2)+ 
(TRMCSI.^R?)* 
*203.<R2) 

PC, PUT 
5$ 



24$ 



;R2 = BYTE ENTRY POSITION 



.■TERMINATE TABLE 

GO WRITE RE6ISTER(S) WITH PUT SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 24$ IF ERROR 



.•SETUP GET INDEX TABLE TO BEAD ALL REGISTERS 

JSR PC.GETSTS ;60 TO GETSTS SUBROUTINE 



;WAIT FOR COMWAND TO COMPLETE 
JSR PCTIMOUT 

;G0 GET REGISTER STATUS 
JSR PC.GET 
BR 6$ 
NOP 
EMT 

JMP 24$ 

6$: 

.•VERIFY RESULTS OF WRITE COMMAND 
JSR PC. DTASTS 
BR 7$ 

NOP 
EMT 



;G0 TO TIMOUT SUBROUTINE 



GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY GET SUBROUTINE 

GO TO 24$ IF ERROR 



GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR It DEFINED BY DTASTS SUBROUTINE 
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S£0 0078 



228 
229 

230 
231 
232 
233 
254 
23*i 
236 
237 
238 
239 
240 



01 1 564 004736 

011566 000137 CI 2252 

011572 



011572 012737 011602 001124 
011600 000410 



011602 



011602 004737 037316 
011606 154130 



241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 



7$: 



JSR 



PC.a(SP)+ 
24$ 



;G0 BACK FOR MORL ERROR CHECKS 
;G0 TO 24$ IF ERROR 



.•MOVE LOOP ADDRESSES TO NEXT OPERATION 
MOV *8$,$LPERR 
BR 9$ 



;SKJP TO WRITE OPERATION 



258 

259 
260 

261 
262 

263 
264 



011610 
011612 
0116U 
011616 
011622 



011622 
011622 
011630 
011636 
011644 
011650 
011654 
011660 
011664 
011670 
011674 
01 1 700 

011704 
011710 
011712 
011714 
011716 
011722 



00040A 
000240 
104000 
000137 



012737 
012737 
012737 
012702 
112722 
112722 
112722 
112722 
112722 
112722 
112722 

004737 
000404 
000240 
104000 
000137 



012252 



106442 
177400 
000061 
001553 
000006 
000034 
000032 
OOOOOA 
000002 
000000 
000200 

043330 



012252 



011722 004737 042774 



011726 004737 043672 



;L00P *2 
8$: 



WRiTE, WRITE CHECK DATA 



.•PREPARE DEVICE FOR TEST 
JSR PC.TSTPRP 
.WORD 154130 



9$: 



BR 
NOP 
EMT 
JMP 



9$ 



24$ 



PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE & VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER I SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR "PIP" IS SET 

VERIFY RECALIBRATION 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY TSTPRP SUBROUTINE 

GO TO 24$ IF ERROR 



.-SETUP PARAMETERS AND EXCUTE COMMAND 



001416 
001414 
001412 



10$: 



11$: 



MOV #8UF0NE+4.RMBA0 

MOV *-256..R«WC0 

MOV #WD.'G0,RMCS10 

MOV XrPUTINX,R2 

MOVB <fR«DA.(R2) + 

MOVB *RMDC.(R2>+ 

MOVB /irRM0F.<R2)* 

MOVB *RMBA,(R2)+ 

Move *RMUC.(R2)+ 

MOVB *RMCS1.(R2)+ 

MOVB #200.(R2)+ 

JSR PC.PUT 

BR 11$ 
NOP 
EMT 

JMP 24$ 



.•CHANGE MEMORY ADDRESS 
: CHANGE WORD COUNT 

.•WRITE DATA COMMAND 
.•LOAD PUT REGISTER INDEX 



rABLE 



.•TERMINATE TABLE 

GO WRITE REGISTER<S) WITH PUT SUBROUTINE 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

60 TO 24$ IF ERROR 



.•SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;60 TO GETSTS SUBROUTINE 



;WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 

;G0 GET REGISTER STATUS 



.•GO TO TIMOUT SUBROUTINE 



?65 



266 
267 
268 
269 



RM05/3/2 FCTNL TST 3 
WRITE. yRITE CHECK ZEROS 



HACRO VOA.OO 4-APR-81 01:15:59 
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270 
271 



272 
273 



27A 
275 
276 
27f 
278 
279 
280 
281 
282 
283 
284 
2S5 
286 



SEO 0079 



011752 
011736 
011740 
01 1 742 
on 744 
011750 



01 1 750 
011754 
011756 
011760 
011762 
011764 
01 1 770 
011770 
01 1 774 
01 1 776 
012000 
012002 
012004 
012010 
012010 
012014 
012016 
012020 
012022 
012024 
012030 



012030 
012036 



012040 



012040 
CI 2044 



012046 
012050 
012052 
012054 

287 012060 

288 

289 

290 012060 



004737 
000404 
000240 
104000 
000137 



004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 



012737 
000410 



004737 
154130 



000404 
000240 
104000 
000137 



043060 
012252 
044056 

012252 
0565/2 

012252 
044710 

012252 

012040 00''124 



12$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC.GET 
12$ 



24$ 



;VERIFy RESULTS 
JSR 
BR 
NOP 
EMT 
JSR 
JMP 



13$: 



14$: 



15$: 



JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 



CF WRITE COMMAND 
PC.PRIERR 
13$ 



pc,a(SP)* 

24$ 

PCDTASTS 
14$ 



PC,a(SP)* 

24$ 

PCSECERR 
15$ 



PC.a(SP)* 
24$ 



; CHANGE LOOP ADDRESSES 

MOV #16$.$LPERR 
BR 17$ 



GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 24$ IF ERROR 



GO CHECK FOR PRIMARY FRROPS 

GO TO 13$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 24$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 14$ IF NO ERROR 

RETURN HERE IF ERROR 

FRROR it DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 24$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 15$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE fRROR CHECKS 

GO TO 24$ IF ERROR 



.•SKIP TO NEXT OPERATION 



.•LOOP #3 
16$: 



WRITE CHECK DATA 



037316 



.PREPARE DEVICE FOR TEST 
JSR PC.TSTPRP 
.WORD 154130 



012252 



17$: 



BR 
NOP 
EMT 
JMP 



17$ 
24$ 



PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE & VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER ft SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKfWWLEDGE 

RECALIBRATE IF "SKI" OR "PIP" IS SET 

VERIFY RECALIBRATION 

GO TO 17$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTRRP SUBRr TINE 

60 1 0 24$ IF ERROR 



.-SETUP PARAMETERS AND EXCUTE COMMAND 
18$: 



IZRMOBO RM05/5/2 FCTNL TST 3 MACRO VOA.OO 
T3 WPITE. U«ITE CHECK ZEROS 



291 012060 

292 012066 

293 012072 

294 012076 

295 012102 

296 012106 

297 012112 

298 012116 

299 012122 
300 

301 012126 
012132 

01213A 
012136 
012U0 

302 01 2U4 
303 



012144 



304 

305 
506 

012150 

507 
5C8 

309 012154 
012160 
012162 
012164 
CI 21 66 

310 012172 
511 

512 

515 012172 
012176 
012200 
012202 
012204 
012206 

514 012212 
315 012212 
012216 
CI 2220 
012222 
012224 
012226 

516 012232 
317 012232 

012256 
012240 
012242 
012244 
012246 

518 012252 

319 

520 012252 

521 

522 



012757 
012702 
112722 
112722 
112722 
112722 
112722 
112722 
112712 



000051 
001555 
000006 
000052 
000054 
000004 
000002 
000000 
000200 



001412 



C 7 
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MOV #WCD!60,RMCS10 

MOV #P'JTJNX.R2 

M0V8 #R»>1DA,(R2)*^ 

M0V8 #R/>WF,(R2)* 

M0V8 #RMDC,(R2)*- 

M0V8 #Rf«A.(R2)* 

M0V8 #RMWC,(R2)*- 

M0V8 #RMCS1,(R2)*- 

M0V8 #200, (R2) 



SEO 0080 



; WRITE CHECK DATA DATA COMMAND 
.•LOAD PUT REGISTER INDEX TABLE 





A/ mn 
U*» jjjU 




JSR 


PC. PUT 


UUv4(i^ 






BR 


19$ 


AAA "5/ A 






NOP 




104000 






EMT 




000157 


012252 




JMP 


24$ 






19$: 










.•SETUP GET INDEX TA8LE TO 




r / 077L 




JSP 


PC.GETSTS 






;WAIT FOR COMMAND TO COMPl 


nn/ 777 






JSR 


PC.TIMOUT 








REGISTER STATUS 






JSR 


PC. GET 








BR 


20$ 








NOP 




1 A/ AA T 






EMT 




AAA1 17 
UUU1 D( 






JMP 


24$ 
















.•VERIFY 


RESULTS 


OF WRITE 


f\C\l 717 




JSR 


PC.PRIERR 


r\r\f\i AC 






BR 


21$ 


AAAO/ A 






NOP 




104000 






EMT 


PC.i(SP)* 


004756 






JSR 


000157 


012252 




JMP 


24$ 






21$: 






004757 


0565/2 




JSR 


PCDTASTS 


000405 






BR 


22$ 


000240 






NOP 




104000 






EMT 




004756 






JSR 


pc.a(SP)* 


000137 


012252 




JMP 


24$ 






22$: 






004757 


044710 




JSR 


PC.SECERR 


000405 






BR 


25$ 


000240 






NOP 




104000 






EMT 




004736 






JSR 


PC.a(SP)+ 


000137 


012252 




JMP 


24$ 




25$: 










24$: 

« • 







GO WRITE REGISTER(S) WITH PUT SUBROLiTINE 

GO TO 19$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 24$ IF ERROR 



;G0 TO GETSTS SUBROUTINE 



;G0 TO TIMOUT SUBROUTINE 



GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 20$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 24$ IF ERROR 



COMMAND 
;G0 CHECK FOR PRIMARY ERRORS 
;G0 TO 21$ IF NO ERROR 
; RE TURN HERE IF ERROR 
;ERROR # DEFINED BY PRIERR SUBROUTINE 
:G0 BACK FOR MORE ERROR CHECKS 
;G0 TO 24$ IF ERROR 

60 VERIFY RESULTS OF DATA TRANSFER 
GO TO 22$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY DTASTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 24$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 
GO TO 25$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY SECERP SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 24$ IF ERROR 
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WRITE. WRITE CHECK ZEROS W/ WCE ERROR 



blQ 0081 



323 
32A 
325 
326 
327 
328 
329 
330 



012252 
012252 
012254 
012256 
012262 
012266 
012272 



00000^ 
0002A0 
012706 
013700 
013701 
012737 



001100 
001276 
00U66 
000004 



012300 



012300 
01230A 



004 737 
154130 



037316 



012306 
012310 
012312 
012314 

331 
332 

333 012320 

334 012320 

335 012326 

336 012334 

337 012342 

338 012350 

339 012356 
340 

341 



000404 
000240 
104000 
0001 37 



012737 
012737 
012737 
012737 
012737 
012737 



013446 



000000 
000000 
106436 
1 77376 
010000 
000063 



•TEST 4 



WRITE. WRITE CHECK ZEROS W/ WCE ERROR 



ST4; 



001226 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 



*STACK.SP 
$8ASE.R0 
TSTQUE.Rl 
#4.$TESTN 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = LNI8US ADDRESS 

(Rl) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL 80X 



'•ft************************************************************* 



;LOOP *1 
1$: 



FORMAT. WRITE, WRITE CHECK DATA 



.-PREPARE DEVICE FOR TEST 
JSR PC.TSTPRP 
.WORD 154130 



BR 
NOP 
EMT 
JMP 



2$ 



29S 



PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE I VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER I SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERAIION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF •'SKI" OR "PIP" IS SET 

VERIFY RECALI8RATI0N 

GO TO 2S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY TSTPRP SUBROUTINE 

GO TO 29S IF ERROR 



001446 
001420 
001416 
001414 
001444 
001412 



;LOAD PARAMETERS AND GENERATE DATA BUFFER 
2$: 



012364 


004737 


040242 




01 2370 


000405 






012372 


104401 


070426 




012376 


104000 






012400 


000137 


013446 




342 012404 








343 012404 


012737 


072060 


001 1 74 


344 012412 


012737 


000001 


001176 


345 012420 


004737 


Oi*217U 




346 








347 012424 


012702 


001553 




348 012430 


112722 


000034 




349 012434 


112722 


000006 




350 012440 


M2722 


000004 




351 012444 


112722 


000002 




352 012450 


112722 


000032 




353 012454 


112722 


000000 





3$: 



MOV 


*O.RMDCO 


MOV 


#O.RMDAO 


MOV 


XreUFONE.RMBAO 


MOV 


#-258..RMWCO 


MOV 


#fMT16,RM0F0 


MOV 


«UH!G0.RMCS10 


THAT 


SECTOR IS NOT BAD 


JSR 


PCBADSCT 


BR 


3S 


TYPE 


.SCTMS6 


EMT 




JMP 


29$ 


MOV 


#ZEROS,$TMPO 


MOV 


/Ifl.STMPI 


JSR 


PC.GENBUF 


MOV 


/lfPUTINX.R2 


MOVB 


#RMDC,(R2)* 


MOVB 


<lfR«DA,(R2)* 


MOVB 


/irRMBA.(R2) + 


MOVB 


/irRMUC.(R2) + 


MOVB 


#RM0F.(R2)* 


MOVB 


*RMCS1.(R2)* 



.•CYLINDER = 0 
.•TRACK = 0, SECTOR 0 
;8US ADDRESS 

.2 * 256. WORDS (2'S COMP) 
;16 BIT FORMAT 

.•WRITE HEADER AND DATA COMMAND 



CALL BAD SECTOR MODULE 

GO TO 3$ IF NO ERROR 

TYPE BAD SECTOR MESSAGE 

ERROR * DEFINED BY BADSCT SUBROUTINE 

60 TO 29$ IF ERROR 

.•STARTING ADDRESS OF PATTERN 

;RANGE OF PATTERN 

;60 GENERATE BUFFER FOR FORMAT 

;R2 - BYTE ENTRY POSITION 



E 7 

CZRMOBO ftM05/3/2 FCTNL TST 3 MACRO V04.00 01:15:59 PAGE 13-11 

T4 WRITE, WRITE CHECK ZEROS W/ WCE ERROR 



SEO 008? 



554 012460 

355 012464 

356 012464 
012470 
012472 
012474 
012476 

357 012502 
358 

359 

012502 

360 
361 

012506 

362 
363 

364 012512 
012S16 
0125Z0 
012522 
012524 

365 012530 
366 

367 

368 012530 
012534 
012536 
012540 
012542 
012544 

369 012550 
370 

371 

372 012550 

373 012556 
374 

375 
376 
377 

378 012560 

379 

380 

381 012560 
012564 



11 27'' 2 000200 

004737 043330 
000404 
000240 
104000 

000137 013446 



4S: 



5$: 



M0V8 #200. (R2> 



.•TERMINATE TA8LE 



JSR 

BR 

NOP 

E"IT 

JMP 



PC. PUT 
5$ 



29$ 



GO WRITE REGJSTER(S) WITH PUT SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 29$ IF ERROR 



004737 



004737 



004737 
000404 
000240 
104000 
000137 



004737 
000405 
000240 
104000 
004736 
000137 



042774 
043672 
043060 

013446 

056572 

013446 



.•SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 



.-WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 

;G0 EGT REGISTER STATUS 



6$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC. GET 
6$ 



29$ 



;60 TO TIMOUT SUBROUTINE 



GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR n DEFINED BY GET SUBROUTINE 

GO TO 29$ IF ERROR 



.-VERIFY RESULTS OF WRITE COMMAND 



7$: 



JSR 
BR 
NOP 
EMT 
JSR 
JMP 



PC.DTASTS 
7$ 



pc.a<sp)<- 

29$ 



GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

60 TO 29$ IF ERROR 



012737 012560 001124 
000410 



.•MOVE LOOP ADDRESSES TO NEXT OPERATION 
MOV *8$,$LPERR 
BR 9$ 



;SKIP TO WRITE OPERATION 



■«»»♦»••••»*♦»»*»•*»•**••»•••»»*•»*»**»••*•»»**»••»»*•••*•••*••• 



.-LOOP #2 
8$: 



WRITE, WRITE CHECK DATA 



004737 037316 
154130 



;PREPARE DEVICE FOR TES^ 
JSR PC.TSTPRP 
.WORD 154130 



012566 000404 

012570 000240 

012572 104000 

012574 000137 013446 
382 012600 
383 



9$: 



BR 
NOP 
EMT 
JMP 



9$ 



29$ 



PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE & VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER % SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR "PIP" IS SET 

VERIFY RE CALIBRATION 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED B^' TSTPRP SUBROUTINE 

GO TO 29$ IF ERROR 



CZRMOeO RM05/3/2 FCTNL TST 
WRITE, yRITE CHECK 



3 fAZRO VOA.OO 
ZEROS W/ UCE ERROR 



A-APR-81 01:15:59 
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SEO 0083 



584 










585 


012600 








386 


012600 


0^2737 


1 77400 


001414 


587 


012606 


012737 
012737 


106442 


001416 


388 


01<^614 


000061 


001412 


389 


012622 


012702 


001553 




390 


012626 


1 i2722 


000006 




391 


012632 


^ 12722 


000034 




392 


012636 


112722 


000032 




393 


01 2642 


112722 


000004 




394 


012646 


112722 


000002 




395 


012652 


112722 


000000 




396 


012656 


112722 


000200 




397 










398 


01 2662 
012666 
012670 
012672 


004737 
000404 
000240 
104000 


043330 






012674 


000137 


013446 




399 


CI 2700 









400 
401 

402 
403 

404 
405 
406 



407 
408 
409 
410 



til 
412 



413 
414 



012700 004737 



012704 004737 



012710 
012714 
012716 
012720 
012722 
012726 



012726 
012732 
012734 
012736 
012740 
012742 
012746 
012/46 
012752 
012754 
012/56 
012760 
012762 
012766 
012766 
012772 
012774 
012776 
013000 
013002 
013006 



004737 
000404 
000240 
104000 
000137 



004737 
000405 
000240 
104000 
004736 
0001 37 

004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 



042774 
043672 
043060 

013446 

044056 

013446 
056572 

013446 
044710 

013446 



.•SETUP PARAMETERS AND EXCUTE CCWMAND 
10$: 



MOV 


*-256. ,RMWC0 


.•CHANGE WORD COUNT 


MOV 


/WBUF0NE<-4,RMBA0 


.•CHANGE MEMORV ADDRESS 


MOV 


#WD'G0 RMCS10 


•WRITE DATA CCtfTIAND 


MOV 


*PUTINX,R2 


.•LOAD PUT REGISTER INDEX TA81 E 


M0V8 


*RMDA, (R2)+ 




M0V8 


*RMDC, (R2)* 




M0V8 


*RM0F,(R2)* 




M0V8 


#R,1BA, (R2)* 




M0V8 


wRMWC , {RcJ * 




M0V8 


*RMCS1,(R2)* 




M0V8 


*200,(R2)* 


.•TERMINATE TABLE 


JSR 


PC. PUT 


;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 


BR 


11$ 


;G0 TO 11$ IF NO ERROR 


NOP 




.•RETURN HERE IF ERROR 


EMT 




.•ERROR * DEFINED BY PUT SUBROUTINE 


JMP 


29$ 


;G0 TO 29$ IF ERROR 



11$: 

.•SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 TO GETSTS SLBROUTINE 



.•WAIT FOR COMWAND TO COMPLETE 
JSR PCTIMOUT 



;6C TO TIMOUT SUBROUTINE 



;G0 READ STATUS FOR WRITE COMMAND 



12$: 



JSR 
BR 
NOP 
EMT 
JMP 



PC, GET 
12$ 



29$ 



.•CHECK FOR ERRORS DURING WRITE 
JSR PC.PRIERR 



13$: 



14$: 



15$: 



BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 



13$ 



PC.a(SP)* 
29$ 

PC.DTASTS 
14$ 



PC.a(SP)+ 
29$ 

PC.SECERR 
15$ 



PC,a(SP)+ 
29$ 



GO READ REGISTER(S) WITH GET SUBROUTINE 
GO TO 12$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY GET SUBROUTINE 
60 TO 29$ IF ERROR 



OPERATION 

GO CHECK FOR PRIMARY ERRORS 
GO TO 13$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY PRIERR SUBROUTiNt 
60 BACK FOR MORE ERROR CHECKS 
GO TO 29$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 
GO TO 14$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY DTASTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 29$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 
GO TO 15$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY SECERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 29$ IF ERROR 



416 
A17 
A18 
Ai9 
420 
A21 
^22 
425 
424 
425 
426 
427 
428 
429 



RW05/5/2 FCTNL TST 
WRITE. WRITE CHECK 



3 HACRO V04.00 
ZEROS W/ WCE ERROR 



4-APR-81 01; 15:59 



G 
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7 
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SEQ 0084 



013006 012737 013014 001124 



0130U 

013014 012703 000001 
013020 050337 107440 



013024 004737 037316 
013030 154130 



.•CHANGE LOOP ADDRESSES 

MOV #16$,$LPERR 



;l00P #3 
16$: 

17$: 



WRITE CHECK DATA 



MOV 
BIS 



.•PREPARE DEVICE 
JSR 
.WORD 



#1.R3 

R3.8UFTW0-2 

FOR TEST 

PC.TSTPRP 

154130 





015052 


000404 




BR 


18$ 




01 5034 


000240 




NOP 






015056 


104000 




EMT 






015040 


000137 


015446 


JMP 


29$ 


4 50 


015044 






18$: 




431 












432 








.-."^EAD DATA FROM 


DEVICE 


435 


013044 






19$: 




434 


01 3044 


012757 


000051 001412 


MOV 


*WCD!G0.RMCS10 


43^ 


013052 


012702 


001555 


MOV 


*PUTINX.R2 


456 


01 3056 


112722 


000006 


M0V8 


#RMDA.(R2)* 


437 


013062 


112722 


000032 


M0V8 


ftRfV)f ,(.fi2)* 


458 


015066 


112722 


000054 


M0V8 


#RMDC,(R2)* 
#RMBA,(R2)+ 


439 


013072 


112722 


000004 


M0V8 


440 


01 5076 


112722 


000002 


M0V8 


*RMWC.(R2)* 


441 


013102 


112722 


000000 


M0V8 


#RMCS1.(R2)* 
#200. (R2) 


442 


013106 


112712 


000200 


M0V8 


445 












444 


013112 


004737 


043330 


JSR 


PC, PUT 




C13116 


000404 




BR 


20$ 




013120 


000240 




NOP 






013122 


104000 




EMT 






013124 


000137 


013446 


JMP 


29$ 


445 


013130 






20$: 




446 












447 








.•SETUP GET INDEX TABLE TO READ 




013130 


004737 


042774 


JSR 


PC.GETSTS 


448 










449 








;WAIT FOR COMMAND TO COMPLETE 




013134 


004737 


043672 


JSR 


PC.TIMOUT 



;R3*WCE BIT POSITION 
.•CHANGE LAST WORD OF BUFFER 



PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE & VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR 'VIP" IS SET 

VERIFY RECALI8RATI0N 

GO TO 18$ If NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY TSTPRP SUBROUTIN: 

GO TO 29$ IF ERROR 



.•WRITE CHECK DATA DATA COMMAND 
.LOAD PUT REGISTER INDEX TABLE 



GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 20$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 29$ IF ERROR 



ALL REGISTERS 
;G0 TO GETSTS 



SUBROUTINE 



450 
451 
452 



;G0 TO TIMOUT SUBROUTINE 



013140 
013144 
013146 



004737 
000404 
000240 



043060 



;G0 READ STATUS FOR WRITE CHECK DATA OPERATION 



JSR 
BR 
NOP 



PC, GET 
21$ 



GO READ REGISTFR(S) WITH GET SUBROUTINE 
GO TO 21$ IF NO ERROR 
RETURN HERE IF ERROR 



f 



:ZRMOB0 
T4 



RM05/3/2 FCTNL TST 
WRITE. WRITE CHECK 



3 HACRO \/04.00 
ZEROS W/ WCE ERROR 



4-APr;-81 01:15:59 



H 

PAGE 



7 

13-U 



SEQ 0085 





013150 


^ /S / AAA 

1 04000 








EMT 


.-ERROR * 


DEFINED BY GET SUBROUTINE 




013152 


00C1 37 


^ 4 7 / y ^ 

CI 3446 






JMP 


29$ ;G0 TO 29$ IF ERROR 


453 
454 


013156 








2i»: 










455 










; CHECK 


FOR ERRORS DURING WRITE CHECK DATA OPERATION 


456 


013156 


004737 
000405 


044056 




JSR 


PC.PRIERR , 


GO CHECK FOR PRIMARY ERRORS 




013162 








BR 


oo* 

22$ , 


GO TO 22$ IF NO ERROR 




01 3164 


rvAA "^Z A 

000240 








NOP 




RETURN HERE IF ERROR 




013166 


104000 








EMT 




ERROR tt 


DEFINED BY PR J ERR SUBROUTINE 




01 31 70 


004756 








JSR 


rC.SCSP;* , 


GO BACK 


FOR MORE ERROR CHECKS 




/> 4 1 4 71 

0131 /^2 


OjO 1 5/^ 


A 1 7 y y z. 

01 5446 






jnp 


29$ 


GO TO 29$ IF ERROR 




0 1 3 /^6 








o 0« . 










/CO 


01 51 ^6 


A7'5777 


A/ AAAA 

040000 


AAI 7/ L. 

001 546 




BJ T 


wWCE .RMCSt 1 


;WAS 'VICE" DETECTED?? 


Ail / 

01 3204 


AAi A7 A 

001030 








BNE 


o/ * 

24$ 


;YES! ! 


460 




















/ ^ i 


01 5206 


AA/ 777 

004 /^5/^ 


056572 






JSR 


PC.DTASTS 


GO VERIFY RESULTS OF DATA TRANSFER 




01 5212 


r\f\f\/ AC 
000403 








no 

BR 


07« 

c5» 


GO TO 23$ IF NO ERROR 




01 5^:14 


AAA^y A 

000240 








NOP 




RETURN HERE IF ERROR 




01 5^:16 


1 A/ AAA 

104000 












•ERROR # 


DEFINED BY DTASTS SUBROUTINE 




A i 7 T^A 

CI DccQ 


AA/ 77Z 

004/^56 








JSR 


PC ,«( SPJ ♦ 


"GO BACK 


FOR MORE ERROR CHECK'S 




Ai TT^T 

01 5dcc 


AAA1 77 
0001 5/^ 


AI 7/ / C 

01 5446 






jnp 


ooc 


■GO TO 29$ IF ERROR 


46i: 


01 3^^6 




AA1 "ZJ A 

001 546 




07* . 

£r5»: 










465 


01 3i:i:6 


A1 7777 

015/^5/^ 


AA1 1 / A 

001 1 sO 




nOv 


RMCS*:! ,$GDDAT 


.•EXPECTED STATUS 


464 


Ai ni/ 
01 5£:34 


AC '5777 


A/ AAAA 
040000 


AAI 1 / A 

00 M ttO 




Bl S 


/TWCfc ,>uDDA 1 






465 


Ai 7*5/ O 

013i:4i: 


AI 7777 

01 5/^5/^ 


AA1 7/ Z. 

001 546 


AA 1 1 / T 

0011 4*: 




M0\/ 


RMCSi?] ,*8DDAT 




■RECEIVED STATUS 


466 


AI TOCA 
0l3^-)0 


AI A777 

01 V55f 


AA1 1 7/ 
001 1 /'t 






nov 


0 7 CTIUIDA 

R5,$TMrO 




FAILING BIT POSITION 


Ubf 


Ai TOC/ 

013i:-)4 


AI 0777 


1 A7/ / A 

1 U/4*»0 


AA1 1 7iL 

001 1/6 




MOV 


MO* IC Tl lA 0 * rMOl 

#BUr lWO-i:,$lMPl 




■FAILING ADDRESS 


468 


01 5^6^: 


1 A/ 777 








EMT 


777 

55/, 






/ ZQ 

46y 


Ai 70^/ 

01 3^64 


AAA/ 7A 
0004/^0 








BR 


oo* 
29$ 






4/^0 


01 3266 








i/ • . 












A 1 7 

U1 5^:66 


1 1 0777 


AAAAOO 

OOOOiTt: 


AAI CO/ 
001 ^Ch 




M0V8 


MnMf\G T t ftl\/ 

/fRMDo.GE TINX 


.-SETUP GET INDEX TABLE 




At 7*57/ 


1 1 "577 7 


AAAOAA 

OOOiTOO 


AA1 C OC 
001 




M0V8 


mTAA ^CTTftl\/,i.i 

W200.GE T JNX+1 


.•SETUP TERMINATOR BYTE 




A-l 77A'5 


t\r\i 77 7 

004/^5/^ 


A/ 7AZ.A 

045060 






JSR 


PC .GET 


.-GO READ 


RMDB VIA GET SUBROUTINE 




Ai 7 7AZ. 

0 1 5506 


AAA/ A/ 

000404 








BR 


OC* 

25$ 


.-GO TO 25$ IF NO ERROR 




A1 771 A 

01 5510 


AAAO/ A 

000i:40 








ft mn 

NOP 




.-RETURN HERE IF ERROR 




AI 771 "5 

01 5512 


1 A/ AAA 
1 04000 












.-ERROR DEFINED BY GET SUBROUTINE 




AI 771 / 

01 5514 


AAA1 7 7 
00015/ 


AI 7/ / Z. 

01 5446 








oo* 


.■GO TO 29$ IF ERROR 




AI 7 7 "5 A 

01552Q 








OC* . 

255: 












AI 77'5A 

01 55<:0 


AI 7777 

015/5/ 


AA1 7iLA 
001 560 


AA1 I/O 

001 14*: 




MOV 


KMDoJ ,$dDDAT 


.-RECEIVED DATA 


4/'4 


AI 77*5^ 

015526 


AI 7777 
01 5/5/ 


1 A7/ / A 

1 0/440 


AA 1 1 / A 

001 1 40 




MOV 


BUr 1 WO-c , $GDDA 1 




-EXPECTED DATA 


4/^3 


AI 777/ 

015554 


A/ A777 
04055/ 


AA1 1 / A 

001 140 






Bj c 


R5.$GDDAT 






4/^6 


AI 77/ A 

01 5540 


AT 0777 

01^/5/ 


1 A7/ / A 

1 0/440 


AAI 1 7/ 

001 154 




MOV 


MCSi iC Tl lA 0 */*rSArvD 




•EXPECTED ADDRESS 


4/'/' 


AI 77/ L 

01 5546 


AI 7777 

015/5/ 


AAI 7/ O 

001 54 <: 


AAI 1 7Z. 

001 1 56 




MOV 


RMBAJ ,$BDADR 




•RECEIVED ADDRESS 


/ 7D 


A1 7 7C/ 

01 5534 


1 ^0777 

IOC f5f 


AAAAAO 

00000*: 


AAI 1 7i^ 

001 1 56 




SUB 


^nf\ftfsn 

#2,$8DADR 




•ADJUST BUS ADDRESS 


/ 70 

4^V 


A 1 7 7iL 0 

01556^ 


A'57777 


AAI 1 7/ 

001 1 54 


AAI 1 7^ 

001 1 56 




CMP 


$GDADR.$BDADR 




•ADDRESSES OK?? 


/ OA 

4 BO 


AI 7 77A 

01 55/0 


AAI /AO 

001402 








QC A 


CO* 




•YES. I 


4ol 


A1 7770 

01 55f^ 


i A/ 7/ A 

1 04 540 








EMT 


340 






482 


013374 


000424 








BR 


29S 






/ D 7 

483 


Ai TTy^ 

013376 


A**"? "77 7 

02375/ 


AAI 1 / A 

001 140 


AAI I/O 

001 142 


oz * . 


CMP 


$GDDAT,$BDDAT 


.-DATA 0<?? 


484 


rti 7/ Ay 

013404 


AAi / AT 

001402 








BEO 


27$ 


.-YES. ! 


/ fl^ 

HO J 


U 1 jhUO 


1 A/ 7/ 1 








EMT 


341 






486 


013410 


000416 








BR 


29$ 






487 


013412 








27$: 










488 




















'.89 


013412 


004737 


044710 






JSR 


PC.SECERR 


.-GO CHECK FOR SECONDARY ERRORS 




013416 


000405 








BR 


28$ 


.-GO TO 28$ IF NO ERROR 




013420 


0002'.0 








NOP 




.-RETURN HERE IF ERROR 



I 7 

''ZWMCeO f<M05/^/2 FCTNL TST 3 •lACKO vOA.OO 4-APR-81 01:15:59 PAGE 13-15 
WRITE, WRITE CHECK ZEROS W/ WCE ERROR 



SEO 0086 



490 
491 
492 
493 
494 
495 
496 
497 



4Q8 
499 
500 
501 
502 
503 
504 
505 



C15422 
015424 
013426 
013432 
013432 
013456 
013440 
015442 
015446 



015446 
015446 
015450 
015452 
015456 
01 5462 
5466 



506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 



517 



015474 



015474 
015500 



015502 
015S04 
015506 
015510 



015514 
015514 
015522 
01 5'550 
015556 
013544 
013552 



015560 
015564 
015566 
015572 
015574 
015600 



lO'.OOO 
004756 
000157 

040537 
006505 
001402 
000157 



000004 
000240 
012706 
015700 
015701 
012757 



C04757 
154130 



000404 
000240 
104000 
0001 37 



012757 
012757 
012757 
012757 
012737 
012737 



004757 
000405 
104401 
104000 
000157 



01 5446 
107440 



015020 



001100 
001276 
001466 
000005 



057516 



014454 



000000 
000000 
106456 
1 77576 
010000 
000063 



040242 
070426 
014454 



28S: 



29S: 



EMT 
JSR 
JMP 

BIG 
ASL 
BEO 
JMP 



pc.a(SP)+ 

29$ 

R3.8UFTW0-2 

R5 

29S 

17$ 



ERROR # DEFINED BY SECERR SUBROUTINf 
60 BACK FOR MORE ERROR CHECKS 
60 TO 29$ IF ERROR 

.•RESTORE DATA PATTERN 
.•SHIFT TO NEXT BIT 
.-EXIT IF DONE 

.•REPEAT TEST FOR NEXT DATA BIT 



iTEST 5 WRITE. READ ONES 



TST5: 



001226 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 



ffSTACK.SP 
$8ASE,R0 
TSTOUE.RI 
#5.$TESTN 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNI8US ADDRESS 

(R1) = DEVICE BEIN6 TESTED 

.-SET TEST NUMBER IN APT MAIL BOX 



;LOOP ^f^ 

1$: 



FORMAT. WRITE, READ 



.-PREPARE THE DEVICE FOR TEST 
JSR PC.TSTPRP 
.WORD 154150 



BR 
NOP 
EMT 
JMP 



2$ 



25$ 



PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE I VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER & SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKN0WLED6E IF VOLUME NOT VALID 

VERIFY PACK ACKN0WLED6E 

RECALIBRATE IF "SKI" OR "PIP" IS SET 

VERIFY RECALIBRATION 

60 TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY TSTPRP SUBROUTINE 

60 TO 25$ IF ERROR 



.-LOAD PARAMETERS AND GENERATE DATA BUFFER 



001446 
001420 
001416 
001414 
001444 
001412 



2$: 

MOV ffO.RMDCO 

MOV ffO.RMDAO 

MOV tfBUFONE.RMBAO 

MOV #-258.,RMWCO 

MOV *FMT16.RM0F0 

MOV #wh:go.rmcsio 

.•VERIFY THAT SECTOR IS NOT BAD 



5$: 



JSR 
BR 
TYPE 
EMT 
JMP 



PC.8ADSCT 
5$ 

.SCTMS6 
25$ 



.•CYLINDER = 0 

; TRACK = 0. SECTOR 0 

;8US ADDRESS 

;2 ♦ 256. WORDS (2'S COMP) 
.•16 BIT FORMAT 

.•WRITE HEADER AND DATA COMMAND 



CALL BAD SECTOR MODULE 

GO TO 5$ IF NO ERROR 

TYPE BAD SECTOR MESSAGE 

ERROR a DEFINED BY BADSCT SUBROUTINE 

GO TO 25$ IF ERROR 



CZRMGBO RM05/3/2 FCTNL TST 3 
T^) WRITE. READ ONES 



(iACPO V04.00 



J 7 

4-APR-81 01:15:59 PAGE 13-16 



SEO 0087 



518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
53A 



535 
536 
537 

538 
539 

5A0 
541 
542 



543 
544 
545 
546 



54? 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 



013600 
013606 
013614 



013620 
01 3624 
013630 
013634 
013640 
013644 
01 3650 
01 3654 
013660 



013660 
013664 
01 3666 
CI 3670 
013672 
013676 



012737 
012737 
004737 



012702 
112722 
112722 
112722 
112722 
112722 
112722 
112712 



004737 
000404 
000240 
104000 
000137 



072016 
C00001 
G421 74 



001553 
000034 
000006 
000004 
000002 
000032 
000000 
0&0200 



043330 



014454 



001 " '4 
001 1 76 



MOV 
MOV 
JSR 



#ONES,$TMP0 

*1,$TMP1 

PC.6ENBUF 



.•STARTING ADDRESS Of PATTERN 

.•RANGE OF PATTERN 

;60 GENERATE BUFFER FOR FORMAT 



013676 004737 042774 
013702 004737 043672 



01 3706 
013712 
013714 
013716 
013720 
013724 



013724 
013730 
013732 
01 3734 
013736 
013740 
013744 



013744 
013752 



013754 



.-LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 



4$: 



MOV *PUTINX,R2 

M0V8 *RMDC,(R2)* 

MOVB #RMDA.(R2)* 

M0V8 #RMBA.(R2)* 

MOVB *R,'>1WC.(R2)* 

MOVB #RM0F.(R2)* 

MOVB #RMCS1.(R2)+ 

MOVB #200. (R2) 



;R2 = BYTE ENTRr POSITION 



.-FORMAT THE DRIVE 

JSR PC. PUT 
BR 5$ 
NOP 
EMT 

JMP 25$ 

5$: 



.-TERMINATE TABLE 



GO WRITE REGISTER (S) WITH PUT SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

60 TO 25$ IF ERROR 



.-SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 



.-WAIT FOR COMMAND TO COMPLETE 
JSR . PC.TIMOUT 



;60 TO TIMOUT SUBROUTINE 



004737 043060 
U00404 
000240 
104000 

000137 0144d4 



004737 056572 

000405 

000240 

104000 

004736 

000137 014454 



012737 013754 001124 
000410 



;G0 READ STATUS FOR FORMAT OPERATION 



6$: 



JSR 
BR 
NOP 
EMT 
JMP 



PC. GET 
6$ 



25$ 



.-VERIFY NO ERRORS DURING FORMAT 



7$: 



JSR 
BR 
NOP 
EMT 
JSR 
JMP 



PC.DTASTS 
7$ 



PC.a(SP)* 
25$ 



60 READ REGISTER(S) WITH GET SUBRCJTINE 
60 TO 6$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY GET SUBROUTINE 
GO TO 25$ IF ERROR 



60 VERIFY RESULTS OF DATA TRANSFER 

60 TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY DTASTS SUBROL^:nE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 25$ IF ERROR 



.-MOVE LOOP ADDRESSES TO NEXT OPERATION 
MOV *8$,$LPERR 
BR 9$ 



.-SKIP TO WRITE OPERATION 



»»»»»»»»»•••»»»»»»»»♦»»♦••»»»»»•••*••*»••••••*»»•***»*••••»♦»•» 



.-LOOP #2 
8$: 



WRITE. READ 



;PREPARE DEVICE FOR TEST 



560 



RM05/3/2 FCTML TST 
WRITE. READ ONES 



013754 
013760 



561 
562 
■^63 
56A 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 



586 
587 
588 
589 



004737 
154130 



037316 



578 
579 
580 

581 
582 

583 
584 
585 



013762 
013764 
013766 
013770 
013774 



013774 
01 3774 
014002 
014010 
014016 
014022 
014026 
014032 
014036 
014042 
014046 
014052 

014056 
014062 
014064 
014066 
014070 
014074 



000404 
000240 
104000 

000137 014454 



012737 
012737 
012737 
01 2702 
112722 
112722 
112722 
112722 
112722 
112722 
112722 

004737 
000404 
000240 
104000 
000137 



106442 
1 77400 
0C0061 
001553 
000006 
000034 
000032 
000004 
000002 
000000 
0002C0 

043330 



014454 



014074 004737 042774 



014100 004737 043672 



014104 004737 043060 

014110 000404 

014112 000240 

014114 104000 

014116 000137 014454 
014122 



014122 004737 044056 

014126 000405 

014130 000240 

014132 104000 

014134 004736 

014136 000137 014454 



•lACRO V04.00 4-APR-81 01:15:59 



K 
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SEQ 0088 



JSR 
.WORD 



PC.TSTPRP 
154130 



9$: 



BR 
NOP 
EMT 
JMP 



9$ 



25$ 



; WRITE DATA TO THE DRIVE 



001416 
001414 
001412 



10$: 



11$: 



MOV *8UF0NE♦4.R^BA0 

MOV #-256.,RMWC0 

MOV #wd;go.rmcsio 

MOV #PUTINX,R2 

M0V8 *RMDA,(R2)+ 

M0V8 *RMDC.(R2)+ 

MOVB *RM0F.(R2)+ 

MOVB *RMBA,(R2)* 

M0V8 #RMWC,<R2)* 

MOVB #RMCS1,(R2)* 

MOVB #200,(R2)+ 

JSR PC. PUT 

BR 11S 
NOP 
EMT 

JMP 25$ 



PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE t VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER i SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" UR "PIP" IS SET 

VERIFY RECALI8RATI0N 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY TSTPRP SUBROUTINE 

GO 10 25$ IF ERROR 



.•CHANGE MEMORY ADDRESS 
.•CHANGE WORD COUNT 

.•WRITE DATA COMMAND 

;LOAD PUT REGISTER IND^X TA8I E 



.•TERMINATE TABLE 

GO WRITE REGISTER (S) WITH PUT SUBROUTINE 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 25$ IF ERROR 



.-SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 



;WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 



;G0 TO TIMOUT SUBROUTINE 



;G0 READ STATUS FOR WRITE COMMAND 



12$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC. GET 
12$ 



25$ 



60 READ PF6ISTER(S) WITH GET SUBROUTINE 
GO TO 12$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY GET SUBROUTINE 
GO TO 25$ IF ERROR 



; CHECK FOR ERRORS DURING WRITE OPERATION 



JSR 
BR 
NOP 
EMT 
JSR 
JMP 



PC.PRiERR 
13$ 



PC.a(SP)+ 
25$ 



GO CHECK FOR PRIMARY ERRORS 
GO TO 13$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR » DEFINED BY PRIERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 25$ IF ERROR 



CZRMOBO f^M05/3/2 FCTNL TST 3 
T5 WRITE. READ ONES 



590 0KK2 

591 0KK2 
0U1A6 
0K150 
OKI 52 
OKI 54 
0U156 

592 0U162 

593 0K162 
0U166 
0K170 
0U172 
0K17A 
OKI 76 

594 0U202 
595 

596 

597 0U2O2 

598 0U210 
599 

600 , 

601 

602 

603 014212 

604 

605 

606 014212 
014216 



607 

608 

609 

610 

611 

612 

613 

614 

615 

616 

617 

618 

619 

620 

621 

622 



014220 
014222 
014224 
014226 
014232 



014232 
014232 
014240 
014246 
014252 
014256 
014262 
014266 
014272 
0K276 
0V'302 

014306 
014312 
014314 



004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 



012737 
000410 



MACRO V04.00 



13$: 



L 7 
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SEU 008V 



056572 



014454 
044710 



014454 



014212 001124 



14$: 



15$: 



JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 



PC.DTASTS 
14$ 



PC.a(SP)* 
25$ 

PC.SECERR 
15$ 



PC.a(SP)* 
25$ 



.•CHANGE LOOP ADDRESSES 

MOV /irl6$.$LPERR 
BR 17$ 



GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 14$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 25$ IF ERROR 

GO CHECK FOR SECONDARV ERRORS 

GO TO 15$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 25$ IF ERROR 



.-SKIP TO NEXT OPERATION 



004737 037316 
154130 



000404 
000240 
104000 
000137 



012737 
012737 
012702 
112722 
112722 
112722 
112722 
112722 
112722 
112712 

004737 
000404 
000240 



014454 



107446 
000071 
001553 
000006 
000032 
000034 
000004 
000002 
000000 
000200 

043330 



•LOOP #3 READ 
16$: 

.•PREPARE DEVICE FOR TEST 

JSR PC.TSTPRP .-PREPARE DEVICE FOR TEST 

.WORD 154130 .-TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE i i/ERIFY DEVICE AVAIL/»BLE 
CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF "SKI" OR "PiP" IS SFT 
VERIFY RECALI8RATI0N 
60 TO 17$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR M DEFINED BY TSTPRP SUBROUTINE 
GO TO 25$ IF ERROR 



17$: 



BR 
NOP 
EMT 
JMP 



17$ 
25$ 



.-READ DATA FROM DEVICE 



001416 
001412 



18$: 



MOV #8UFTW0+4,RMBA0 

MOV *RD1G0.RMCS10 

MOV *PUTINX.R2 

MOVB /JfRMDA.(R2) + 

M0V8 *R«0F,(R2)+ 

MOVB #RMDC.(R2)+ 

MOVB #RI>«A.(R2) + 

M0V8 *RMWC.(R2)* 

MOVB *RMCS1.(R2)* 

MOVB <'200. (R2) 

JSR PC, PUT 

BR 19$ 

NOP 



.■CHANGE MEMORY ADDRESS 

.•READ DATA COMMATJD 

.-LOAD PUT RE6ISTEK INDEX TABLE 



GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
GO TO 19$ IF NO ERROR 
RETURN HERE IF ERROR 



lZRMCSO RM05/3/2 FCTNL TST 3 
T5 WRITE, READ ONES 



014516 
0K320 
623 0U324 

625 

0K524 

6C6 
627 

0U330 

628 
629 

630 014334 
014340 
014342 
014344 
014346 

631 014352 
632 

633 

634 014352 
014356 
014360 
014362 
014364 
014366 

635 014372 

636 014372 
014376 
014400 
014402 
014404 
014406 

637 014412 

638 014412 
014416 
014420 
014422 
014424 
014426 

639 014432 

640 014432 
C14456 
014440 
014442 
014444 
014446 
014450 

641 014454 
642 

643 014454 

644 

645 



104000 

000137 014454 



004737 042774 
004737 043672 



004737 043060 
000404 
000240 
104000 

000137 014454 



MACRO V04.00 



19$: 



M 7 
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SEO 0090 



004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 

004737 
106442 
107446 
000404 
000240 
104000 
000137 



014454 

014454 000004 
014456 000240 



044056 

014454 
056572 

014^54 
044710 

014454 
042432 

014454 



EMT 
JMP 



25$ 



.-ERROR * DEFINED BV PUT SUBROUTINE 
;G0 TO 25$ IF ERROR 



.•SETUP GET INDEX TABLE TO READ ALL REGIStERS 

JSR PC.GETSTS .GO TO GETSTS SUBROUTINE 



.-WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 



;G0 TO TIMOUT SUBROUTINE 



;G0 READ STATUS FOR READ OPERATION 



20$: 



JSR 
BR 
NOP 
EMT 
JMP 



PC, GET 
20$ 



25$ 



GO READ REGISTER(S) WITH GET SUBROUTINE 
GO TO 20$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY GET SUBROUTINE 
GO TO 25$ IF ERROR 



.•CHECK FOR ERRORS DURING READ 



21$: 



22$: 



OPERATION 

:G0 CHECK FOR PRIMARY ERRORS 
;G0 TO 21$ IF NO ERROR 
; RE TURN HERE IF ERROR 
ERROR # DEFINED BY PRIERR SUBROUTINE 
;G0 BACK FOR MORE ERROR CHECKS 
;G0 TO 25$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 
GO TO 22$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR tt DEFINED BY DTASTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 25$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 
GO TO 23$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BV SECERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 25$ IF ERROR 

GO COMPARE WRITE, READ DATA BUFFERS 

.•STARTING ADDRESS OF WRITE BUFFER 
.•STARTING ADDRESS OF READ BUFFER 
GO TO 24$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR » DEFINED BY CMPBUF SUBROUTINE 
GO TO 25$ IF ERROR 

24$: 
25$: 

••»♦♦*»»♦*♦*****♦♦«♦♦♦♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦•*****•****»•»»••»»♦••» 

'•TEST 6 WRITE, WRITE CHECK ONES 

• »♦»*♦«*♦•*••****•**«*♦*»*»**•****••♦♦••*******»******•»»»*•»»•» 

TST6: 

SCOPE .-SCOPE CALL 

NOP .-START OF TEST 



23$: 



JSR 


PC, PRIERR 


BR 


21$ 


NOP 




EMT 




JSR 


PC.8(SP)* 


JMP 


25$ 


JSR 


PC, DTASTS 


BR 


22$ 


NOP 




EMT 




JSR 


pc.acsp)* 


JMP 


25$ 


JSR 


PC, SECERR 


BR 


23$ 


NOP 




EMT 




JSR 


pc.a(sp)+ 


JMP 


25$ 


JSR 


PC, CMPBUF 


.WORD 


BUFONE+4 


.WORD 


BUFTWO+4 


BR 


24$ 


NOP 




EMT 




JMP 


25$ 



CZRl«IOBO RM05/3/2 FCTNL TST 3 MACRO V0<..00 4-APR-81 01 
T6 WRITE, WRITE CHECK ONES 

0KA60 012706 001100 HOV *STACK,SP 

0K464 013700 001276 MOV $8ASE,R0 

0UA70 013701 00K66 MOV TSTQUE.RI 

0K47A 012737 000006 001226 MOV *6.$TESTN 



N 7 

r 15:59 PAGE 13-20 



INITIALIZE STACK POINTER 

RO = UNIBUS ADDRESS 

(R1) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 



6<.6 
647 
648 
649 
650 
651 
652 
653 



014502 



014502 004737 037316 
014506 154130 



014510 
014512 
014514 
014516 

654 
655 

656 014522 

657 014522 

658 014530 

659 014536 

660 014544 

661 014552 

662 014560 
663 

664 

014566 
014572 
014574 
014600 
014602 

665 014606 

666 014606 

667 014614 

668 014622 
669 

670 

671 014626 

672 014632 

673 014636 

674 014642 

675 014646 

676 014652 

677 014656 

678 014662 

679 014666 
680 

681 



000404 
000240 
104000 
000137 



012737 
012737 
012737 
012737 
012737 
012737 



004737 
000405 
104401 
104000 
000137 

012737 
012737 
004737 



012702 
112722 
112722 
112722 
112722 
112722 
112722 
112712 



015432 



000000 
000000 
106436 
177376 
010000 
000063 



040242 

070426 

015432 

072016 
000001 
042174 



001553 
000034 
000006 
000004 
000002 
000032 
000000 
000200 



;L00P *1 
1$: 



FORMAT, WRITE, WRITE CHECK DATA 



;PREPARE THE DEVlCb FOR TES^ 
JSR PC.TSTPRP 
.WORD 154130 



BR 
NOP 
EMT 
JMP 



2S 



24$ 



PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE & VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER & SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR "PIP" IS SFT 

VERIFY RECALI8RATI0N 

GO TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR Xf DEFINED BY TSTPRP SUBROUTINE 

GO TO 24$ IF ERROR 



.•LOAD PARAMETERS AND GENERATE DATA BUFFER 



001446 
00V.20 
001416 
001414 
001444 
001412 



001174 
001176 



2$: 

MOV *0,RMDCO 

MOV *O.R«DAO 

MOV /W3UF0NE.RMBA0 

MOV *-258.,RMWC0 

MOV #FMT16.RM0F0 

MOV /trWH!GO,RMCSlO 

.•VERIFY THAT SECTOH IS NOT BAD 

JSR PC.8ADSCT 

BR 3$ 

TYPE .SCTMSG 
EMT 

JMP 24$ 

MOV *ONES.$TMP0 

MOV *1,$TMP1 

JSR PC.GENBUF 



3$: 



.•CYLINDER = 0 

.-TRACK = 0. SECTOR = 0 

;BUS ADDRESS 

;2 + 256. WORDS (2"S COMP) 
;16 BIT FORMAT 

.•WRITE HEADER AND DATA COMMAND 



CALL BAD SECTOR MODULE 

GO TO 3$ IF NO ERROR 

TYPE BAD SECTOR MESSAGE 

ERROR ft DEFINED BY BADSCT SUBROUTINE 

GO TO 24$ IF ERROR 

.•STARTING ADDRESS OF PATTERN 

; RANGE OF PATTERN 

;G0 GENERATE BUFFER FOR FORMAT 



;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 



4$: 



MOV *PUTINX.R2 

M0V8 *RMDC,(R2)+ 

M0V8 *RMDA.(R2)* 

MOVB #RMBA,(R2)+ 

M0V8 *RMWC.(R2)+ 

MOVB *RM0F,(R2)+ 

MOVB *RMCS1,(R2)+ 

MOVB *200,(R2) 



;R2 = BYTE ENTRY POSITION 



.•TERMINATE TABLE 



; FORMAT THE DRIVE 



ZP*lCeO WI05/3/2 FCTNL TST 3 nAC«0 V04.00 
'6 WRITE. yRITE ChElH ONES 



B 8 
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SEO 009t 



682 0K666 
0U672 
0U674 
0K676 
0K700 

685 0U7(K 

684 

685 

0U7CK 

686 
687 

0K710 

688 
689 

690 0 U714 
0K.720 

0K724 
014726 

691 GK732 
692 

693 

694 014732 
014736 
014740 
014742 
014744 
014746 

695 014752 
696 

697 

698 014752 

699 014760 
700 

701 
702 
703 

704 014762 

705 

706 

707 

708 CI 4762 
014766 



004737 043330 
000404 
000240 
104000 

000137 015432 



004737 042774 



004737 043672 



004737 043060 
000404 
000240 
104000 

000137 015432 



004737 056572 

000405 

000240 

104000 

004736 

000137 015432 



012737 014762 001124 
000410 



5S: 



BR 
NOP 
EMT 
JMP 



PC. PUT 
5$ 



24$ 



GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 24$ IF ERROR 



.•SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GFTSTS ;G0 TO GETSTS SUBROUTINE 



.WAIT FOR COWAND TO COMPLETE 
JSR PC.TI«OUT 



;G0 TO TIMOUT SUBROUTINE 



;nO RCAD STATUS FOR FORMAT OPERATION 



6$: 



JSR 
BR 
NOP 
F«T 
JMP 



PC. GET 
6$ 



24$ 



.-VERIFY NO ERRORS DURING FORMAT 



7$: 



JSR 
BR 
NOP 
EMT 
JSR 
JMP 



PCDTASTS 
7$ 



PC.a<SP)t 
24$ 



GO READ RE6ISTERCS) WITH GET SUBROUTINE 
GO TO 6$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY GET SUBROUTINE 
GO TO 24$ IF ERROR 



GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 24$ IF EPROH 



.•MOVE LOOP ADDRESSES TO NEXT OPERATION 
MOV #8$.$LPERR 
BR 9S 



.•SKIP TO WRITE OPERATION 



004737 037316 
154130 



.•LOOP »2 
8$: 



.•PREPARE DEVICE 
JSR 
.WORD 



WRITE, WRITE CHECK DATA 



FOR WRITE OPERATION 



PC.TSTPRP 
154130 



014770 000404 

014772 000240 

014774 104000 

014776 000137 015432 
709 015002 
710 
711 



9$: 



BR 
NOP 
EMT 
JMP 



9$ 



24$ 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
SELECT DEVICE ft VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER ft SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF "SKI" OR "PIP" IS SET 
VERIFY RECALIBRATION 
GO TO 9$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY TSTPRP SUBROUTINE 
GO TO 24$ IF ERROR 



.•WRITE DATA TO THE DRIVE 



CZRMOeO 
T6 

712 
715 
7U 
715 
716 
7M 
718 
719 
720 
721 
722 
723 
72U 
725 



73A 
735 
736 
737 



738 
739 



7A0 
741 



742 
7A3 



RM05/3/2 FCTNL TST 3 
WRITE, WRITE CHECK ONES 



MACRO V04.00 



726 
727 
728 

729 
730 

731 
732 
733 



015002 
01 5002 
015010 
015016 
01502A 
015030 
015034 
015040 
015044 
015050 
015054 
015060 

015064 
015070 
01 5072 
01 5074 
015076 
015102 



012737 
012737 
012737 
012702 
112722 
112722 
112722 
112722 
112722 
112722 
112722 

004737 
000404 
000240 
104000 
000137 



106442 
177400 
000061 
001553 
000006 
000034 
000032 
000004 
000002 
000000 
000200 

043330 



015432 



015102 004737 042774 



015106 004737 043672 



015112 
015116 
015120 
015122 
015124 
015130 



015130 
015134 
015136 
015140 
015142 
015144 
C15150 
015150 
015154 
015156 
015160 
015162 
015164 
015170 
015170 
015174 
015176 
015200 
015202 
015204 
015210 



004737 043060 
000404 
000240 
104000 

000137 015432 



004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 



044056 

015432 
056572 

015432 
044710 

015432 



001416 
001414 
001412 



10S: 





C 6 


APR-81 


01:15:59 PAGE 13 


MOV 


*8Ur ONE ♦ 4 , RMBAO 


MOV 


*-256. ^RMWCO 


MOV 


#WD I GO.RMCSIO 


MOV 


*PUT]NX,R^ 


M0V8 


#RMDA, (R^)* 


M0V8 


#PMDC , \Hi) ♦ 


M0V8 


WRMjf . KHC) ♦ 


M0V8 


Mnun A t \ a. 

#Hr©A, (K<r) ♦ 


M0V8 


*Ri1WC. (R2)* 


Move 


#RMCS1,(R2)* 


M0V8 


ir^OO, (R2)* 


JSR 


PC .PUT 


BR 


lie 

lis 


NUr' 




EMT 




JMP 


24$ 



SEQ 0093 



.•CHANGE MEMORY ADDRESS 
; CHANGE WORP COL^T 

.-WRITE DATA COMMAND 

.•LOAD PUT REGISTER INDEX TABLE 



11$: 



.•TERMINATE TABLE 

GO WRITE RE6ISTER(S) WITH PUT SUBROUTINE 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINF 

GO TO 24$ IF ERROR 



.•SETUP GET INDEX TABLE TO READ ALl REGISTERS 

jSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 



.•WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 



;G0 TO TIMOUT SUBROUTINE 



;G0 READ STATUS FOR WRITE COMMAND 



12$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC. GET 
12$ 



24$ 



.CHECK FOR ERRORS DURING WRITE 
JSR PC.PRIERR 



13$: 



14$: 



15$: 



BR 

NOP 

EMT 

JSR 

jMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 



13$ 



pc,a(SP)* 

24$ 

PC.DTASTS 
14$ 



PC.a(SP)* 
24$ 

PC.SECERR 
15$ 



PC.a(SP)* 
24$ 



GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » l>U\t^l> BY GET SUBROUTINE 

GO TO 24$ IF ERROR 



OPERATION 

GO CHECK FOR PRIMARY ERRORS 
GO TO 13$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY PRIERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 24$ IF ERROR 



GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 14$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY DTASTS SUBROLHINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 24$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO fO 15$ IF NO ERROR 

RETURN HERE IF ERRO'^ 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 24$ IF ERROR 



czRMoeo 

T6 

746 

748 
749 
750 
751 
752 
753 
754 



755 
756 
757 
758 
759 
760 
761 
762 
76i 
764 
765 
766 
767 
768 
769 



RM05/3/2 FCTNL TST 3 
WRITE, UftlTE CHECK ONES 



HACRO V04.00 4-APR-81 01:15:59 



D 

PAGE 



13-23 



SFO 0094 



015210 012737 CI 5220 001124 
015216 000410 



015220 



015220 004737 037316 
015224 154130 



.•CHANGE LOOP ADDRESSES 

MOV #16$.$LPERR 
BR 17$ 



;SKJP TO NEXT QPERATiCX 



770 
771 
772 

773 
774 

775 
776 
777 



778 



015226 
015230 
015232 
015234 
015240 



015240 
015240 
015246 
015252 
015256 
015262 
015266 
015272 
015276 
015302 

015306 

015312 
015314 
015316 
01 5320 
015324 



000404 
000240 
104000 
0001 37 



012737 
012702 
112722 
112722 
112722 
112722 
112722 
112722 
112712 

004737 
000404 
000240 
104000 
000137 



01543? 



000051 
001553 
000006 
000032 
000034 
000004 
000002 
000000 
000200 

043330 



015432 



015324 004737 042774 
015330 004737 043672 



;L00P #3 
16S: 



WRITE CHECK DATA 



.■PREPARE DEVICE 
JSR 
.WORD 



FOa WRITE CHECK 

PC.TSTPRP 

154130 



015334 
015340 
015342 
015344 
015346 
015352 



004737 043060 
000404 
000240 
104000 

000137 015432 



17$: 



BR 
NOP 
E«T 
JMP 



17$ 



24$ 



DATA OPERATION 
PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
SELECT DEVICE I VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER t SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF "SKI" OR "PIP" IS SET 
VERIFY RECALI8RAriC»< 
GO TO 17$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR » DEFINED BY TSTPRP SUBROUTINE 
GO rO 24$ IF ERROR 



.WRITE CHECK DATA DATA FROM DEVICE 



001412 



18$: 



19$: 



MOV 

MOV 

M0V8 

MOVB 

M0V8 

MOVB 

MOVB 

MOVB 

MOVB 

JSR 

BR 

NOP 

EMT 

JMP 



<rwCD:G0,RMCS10 

*PUTINX,R2 

#RMDA,(R2)* 

*RM0F.(R2)* 

#RMDC,(R2)+ 

*RMBA,(R2)+ 

*RMWC,(R2)+ 

*RMCS1,(R2)+ 

#200, (R2) 

PC. PUT 
19$ 



24$ 



.-WRITE CHECK DATA DATA COMMAND 
;LOAD PUT REGISTER INDEX TABLE 



GO WRITE ReGISTER(S) WITH PUT SUBROUTINE 

GO TO 19$ IF NO ERROR 

RETURN HERE IF ERROF 

ERROR » DEFINED BY PUT SUBROUTINE 

GO TO 24$ IF ERROR 



SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 



WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 



;G0 TO TiMOUT SUBROUTINE 



GO READ STATUS FOR WRITE CHECK DATA OPERATION 



20$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC. GET 
20$ 



24$ 



GO READ REGISTER(S) WITH GET SUBROUTINE 
GO TO 20$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY GET SUBROUTINE 
liO TO 24$ IF ERROR 



CZRMOBO RM05/3/2 FCTNL TST 3 MACRO V04.00 
T6 WRITE. WRITE CHECK ONES 



^-APR-81 01 
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SEO 0095 



779 
780 
781 



782 
^83 



78A 
785 



786 
787 
788 
789 
790 



791 
792 
793 
79A 
795 
796 
797 
798 



015352 
015356 
01 5360 
015362 
015364 
015366 
015372 
015372 
015376 
015400 
015402 
01 5404 
01 5406 
015412 
015412 
015416 
015420 
CI 5422 
015424 
015426 
015432 

015432 



015432 
015432 
015434 
01 5436 
015442 
015446 
015452 



01 5460 



015460 
015464 



799 



015466 
015470 
015472 
015474 
015500 



004737 
000405 
000240 
104000 
004736 
000137 

0C4737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 



000004 
000240 
012706 
013700 
013701 
012737 



004737 
154^30 



000404 
000240 
104000 
000137 



044056 

015432 
056572 

015432 
044710 

015432 



.-CHECK FOR ERRORS DURING WRITE 



21$: 



22%: 



23$: 



24$: 



JSR 
BR 
NOP 
EMT 
JSR 
JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 



PC.PRIERR 
21$ 



pc.a(SP)* 

24$ 

PC.DTASTS 
22$ 



pc.a<SP)* 

24$ 

PC.SECERR 
23$ 



PCaCSP)* 
24$ 



CHECK DATA OPERATION 
;G0 cHECK FOR PRIMARY ERRORS 
;G0 TO 21$ IF Nu ERROR 
; RE TURN HERE IF ERROR 
lERROR # DEFINED BY PRIERR SUBROUTINE 
;G0 BACK FOR MORE ERROR CHECKS 
;G0 TO 24$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 
GO TO 22$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY DTASTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 24$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 
GO TO 23$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY SECERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 24$ IF ERROR 



•TEST 7 WRJTE. WRITE CHECK ONES W/ WCE ERROR 

TST7: 



001100 
001276 
001466 
000007 



001226 



SCOPE 
NOP 

MOV #STACK.SP 

MOV $8ASE.R0 

MOV TST0UE,R1 

MOV #7.$TESTN 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNI8US ADDRESS 

(Rl) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 



;LOOP *1 
1$: 



FORMAT. WRITE. WRITE CHECK DATA 



037316 



.•PREPARE THE DEVICE FOR FORMAT 



JSR 
.WORD 



PC.rSTPRP 
154130 



016630 



2$: 



BR 
NOP 
EMT 
JMP 



2$ 



29$ 



OPERA U ON 

PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
SELECT DEVICE i VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER ft SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF "SKI" OR "PIP" IS SET 
VERIFY RECALIBRATION 
GO TO 2$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY TSTPRP SUBROUTINE 
GO TO 29$ IF ERROR 
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8 
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SEO 0096 



800 










801 










802 


015500 


012737 


000000 


001446 


803 


01 3506 


0l2'5/' 


ouuuuu 


AA1 / OA 


804 


015514 


012737 


106436 


001416 


805 


015522 


012737 


1 77376 


001414 


806 


015530 


012737 


010000 


001444 


807 


015536 


012737 


000063 


001412 


808 










809 











.-LOAD PARAMETERS AND GENERATE DATA BUFFER 



MOV #O.RMDCO 

MOV #0.RMDAO 

MOV *RUFONE.RMBAO 

MOV *-258..RMWC0 

MOV *FMT16.RM0F0 

MOV ffWH.'GO.RMCSlO 

.•VERIFY THAT SECTO'-J IS NOT BAD 



CYLINDER = 0 
TRACK = 0. SECTOR = 0 
BUS ADDRESS 
WORD COUNT = 1 SECTOR 
16 BIT FORMAT 

WRITE HEADER AND DATA COMMAND 



810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 



328 
829 
830 

831 
832 

83^ 
834 
835 



836 
837 
838 
859 



015544 


004737 


040242 




JSR 


PC.8ADSCT 


.-CALL BAD SECTOR MODULE 


015550 


000405 






BR 


3$ 


;G0 TO 3$ IF NO ERROR 


015552 


104401 


070426 




TYPE 


.SCTMSG 


;TYP£ BAD SECTOR MESSAGE 


015556 


104000 






EMT 




; ERROR tf DEFINED BY BADSCT SUBROUTINE 


015560 


000137 


016630 




JMP 


29$ 


:G0 TO 29S IF ERROR 


015564 






3$: 








015564 


012737 


072016 


001 1 74 


MOV 


*ONES.$TMP0 


.•STARTING ADDRESS OF PATTERN 


015572 
015600 


012737 


000001 


001 1 76 


MOV 


*1.$TMP1 


.•RANGE OF PATTERN 


004737 


042174 




JSR 


PC.CENBUr 


;G0 GENERATE BUFFER FOR FORMAT 



01 5604 
015610 
015614 
01 5620 
015624 
015630 
01 5634 
01 5640 
015644 



01 5644 
015650 
015652 
01 5654 
015656 
015662 



012702 
112722 
112722 
112722 
112722 
112722 
112722 
112712 



001553 
000034 
000006 
000004 
000002 
000032 
000000 
000200 



004737 043330 
000404 
000240 
104000 

000137 016630 



01 5662 004737 042774 



015666 004737 043672 



015672 004737 043060 

01 5676 000404 

015700 000240 

015702 104000 

015704 000137 016630 
015710 



015710 004737 056572 
015714 000405 
015716 000240 



.•LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 



4$: 



MOV #PUTINX,R2 

M0V8 #RMDC.(R2)* 

M0V8 *RMDA.(R2)* 

M0V8 *RMaA.(R2)* 

M0V8 *RMWC.(R2)* 

M0V8 #RM0F,(R2)* 

MGV8 *RMCS1.(R2)+ 

M0V8 #200. (R2) 



;R2 = BYTE ENTRY POSITION 



.■FORMAT THE DRIVE 



5$: 



JSR 
BR 
NOP 
EMT 
JMP 



PC .PUT 
5S 



29$ 



.•TERMINATE TABLE 



GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 29$ IF ERROR 



.•SETUP GET INDEX TA8LE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 



;WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 



;G0 TO TIMOUT SUBROUTINE 



;G0 READ STATUS FOR FORMAT OPERATION 



6$; 



JSR 
BR 
NOP 
EMT 
JMP 



PC. GET 
6$ 



29$ 



.•VERIFY NO ERRORS DURING FORMAT 
JSR PC.DTASTS 
BR 7$ 
NOP 



GO READ REGISTER(S) WITH GET SUBROUTINE 
GO TO 6$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY GET SUBROUTINE 
GO TO 29$ IF ERROR 



GO VERIFY RESULTS OF DATA TRANSFER 
GO TO 7$ IF NO ERROR 
RETURN HERE IF ERROR 



*7 



8^0 
8A1 
842 
8A3 
844 
845 
846 
847 
8h8 
849 
850 
851 
852 



RM05/3/2 FCTNL TST 3 
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853 
854 
a55 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
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SEO 0097 



015720 
015722 
015724 
015730 



104000 
004736 
000137 



015730 012737 
015736 000410 



015740 



01574C 004737 037316 
015744 154130 



016630 



015740 001124 



7$: 



EMT 
JSR 
JMP 



PC.a(SP)* 
29$ 



ERROR » DEFINED BV DTASTS SU8R0UTINC 
GO BACK FOR MORE ERROR CHECKS 
GO TO 29$ IF ERROR 



870 
871 
872 

873 
874 

875 



015746 
015750 
015752 
015754 
015760 



015760 
015760 
015766 
01 5774 
016002 
016006 
016012 
016016 
016022 
016026 
016032 
016036 

016042 
016046 
016050 
016052 
016054 
016060 



016060 



016064 



000404 
000240 
104000 
000137 



012737 
012737 
012737 
012702 
112722 
112722 
112722 
112722 
112722 
112722 
112722 

004737 
000404 
000240 
104000 
000137 



004737 
004737 



016630 



.•MOVE LOOP ADDRESSES TO NEXT OPERATION 
MOV #8$.$LPERR 
BR 9$ 



.SKIP TO WRITE OPERATION 



• »•»»*»**«•**»»*■•«»•»»»**•*■*•••**»**•••**•■***»••*••••»»••••••••» 



:LOOP #2 



WRITE.WRI TE CHECK DATA 



8$: 



.•PREPARE DEVICE FOR WRITE OPERATION 



JSR 
.WORD 



PC.TSTPRP 
154130 



9$: 



BR 
NOP 
EMT 
JMP 



9$ 



29$ 



; WRITE DATA TO THE DRIVE 
10$: 



1 77400 


001414 


MOV 


#-256..RMWC0 


106442 


001416 


MOV 


#8UF0NE+4,RMBA0 


000061 


001412 


MOV 


*WD!G0,RMCS10 


001553 




MOV 


*PUTINX.R2 


000006 




Move 


#RMDA.(R2)*^ 


000034 




Move 


*RMDC.(R2)* 


000032 




M0V8 


#R«0F.(R2)* 


000004 




M0V8 


#RM8A.(R2)* 


000002 




M0V8 


*RMWC.(R2)* 


000000 




M0V8 


#RMCS1.<R2)» 


000200 




M0V8 


*200,(R2)* 


043330 




JSR 


PC. PUT 




BR 


11$ 






NOP 








EMT 




016630 




JMP 


29$ 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
SELECT DEVICE & VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER 8 SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF "SKI" OR 'T>IP" IS SET 
VERIFY RECALI8RATI0N 
GO TO 9$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY TSTPRP SUBROUTINE 
GO TO 29$ IF ERROR 



; CHANGE WORD COUNT 

.•CHANGE MEMORY ADDRESS 

.•WRITE DATA COMMAND 

;LOAD PUT REGISTER INDEX TABLE 



.•TERMINATE TABLE 

GO WRITE RE6ISTER(S) WITH PUT SUBROUTINE 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR It DEFINED BY PUT SUBROUTINE 

GO TO 29$ IF ERROR 



'1$: 



042774 
043672 



.•SETUP GE^ INDEX TA8LE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 



.•WAIT FOR COMMAND TO COMPLETE 
JSR PCTIMOUT 



;G0 TO TIMOUT SUBROUTINE 
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SEO 0098 



876 
877 



87S 
879 
880 
881 



882 
883 



884 
885 



886 
887 
888 
889 
390 
891 
892 
893 
89A 
895 
896 
897 
898 
899 
900 



016070 
016074 
016076 
016100 
016102 
016106 



016106 
016112 
0161U 
016116 
016120 
016122 
016126 
016126 
016132 
016134 
016136 
016140 
016142 
016146 
016146 
016152 
016154 
016156 
016160 
016162 
016166 



004737 
000404 
000240 
104000 
000137 



004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 



C43060 
016630 
044056 

016630 
056572 

016630 
044710 



;G0 READ STATUS FOR WRITE COMMAND 



12$: 



JSR 
BR 
NOP 
EMT 
JMP 



PC. GET 
12$ 



29$ 



.•CHECK FOR ERRORS DURING WRITE 
JSR PC.PRIERR 



13$: 



14$- 



016630 

016166 012737 016174 001124 



15$: 



BR 

NOP 

EMT 

JSR 

JMP 

.SR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 



13$ 



pc,a(SP)» 

29$ 

PC.DTASTS 
14$ 



PC.a(SP)+ 
29$ 

PC.SECERR 
15$ 



pc,a(SP)+ 

29$ 



GO READ REGISTER(S) WITH GET SUBROUTINE 
GO TO 12$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY GET SUBROUTINE 
60 TO 29$ IF ERROR 



OPERATION 

GO CHECK FOR PRIMARY ERRORS 
GO TO 13$ IF NO ERROR 
RETURN HERE F ERROR 
ERROR n DEFINED BY PR] ERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 29$ IF ERROR 



GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 14$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 29$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 15$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR K DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 29$ IF ERROR 



.•CHANGE LOOP ADDRESSES 

MOV /!r16$.$LPERR 



■•♦•*»*••****•*♦*•***♦***••*••*•••••*••»••••**••»*•♦•**♦••****** 



016174 

016174 
016200 



016204 
016210 



.•LOOP ni 
16$: 



012703 
040357 



004737 
154130 



000001 
107440 



037316 



17$: 



MOV 
BIC 



WRITE CHECK DATA 



#1.R3 

R3,8UFTW0-2 



;R3*WCE BIT POSITION 
.•CHANGE LAST WORD OF BUFFER 



.•PREPARE DEVICE FOR WRITE CHECK DATA OPERATION 



JSR 
.WORD 



PCTSTPRP 
154130 



016212 000404 

016214 000240 

016216 104000 

016220 000137 016630 



901 016224 



18$: 



BR 
NOP 
EMT 
JMP 



18$ 



29$ 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
SELECT DEVICE & VERIFY DEVICE AVAILABLF 
CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF "SKI" OR "PIP" IS SET 
VERIFY RECALIBRATION 
GO TO 18$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY tstPRd SUBROUTINE 
GO TO 29$ IF ERROR 
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SEO 0099 



902 
905 

904 016224 

905 016224 

906 016232 

907 016236 

908 016242 
016246 
016252 
016256 
016262 
016266 



909 

910 
911 
912 
913 
914 
915 



916 
917 
918 

919 
920 

921 
922 
923 



016272 
016276 
016300 
016302 
016304 
016310 



012737 
012702 
112722 
112722 
112722 
112722 
112722 
112722 
112712 

004737 
000404 
000240 
104000 
000137 



000051 001412 

001555 

000006 

000032 

000034 

000004 

000002 

000000 

00020C 

043330 



016630 



.READ DATA FROM DEVICE 
19$: 

MOV 
MOV 
M0V8 
M0V8 
M0V8 
M0V8 
M0V8 
M0V8 
M0V8 



#wcd:go,rmcsio 

*PUTINX,R2 
ArRMDA,(R2)* 
*RM0F,(R2)* 
*RMDC.(R2)+ 
*RMBA,(R2)* 
*RMWC.(R2)* 
*RMCS1 , (R2)'t- 
#200. (R2) 



; WRITE CHECK DATA DATA COMMAND 
;LOAD PUT REGISTER INDEX TABLE 



20$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC, PUT 
20$ 



29$ 



GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 20$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 29$ IF ERROR 



016310 004737 042774 



016314 004737 043672 



924 
925 
926 



016320 
016324 
016326 
016330 
016532 
016336 



004737 043060 
000404 
000240 
104000 

000137 016630 



SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 



WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 



;G0 TO TIMOUT SUBROUTINE 



GO READ STATUS FOR WRITE CHECK DATA OPERATION 



21$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC. GET 
21$ 



29$ 



.•CHECK FOR ERRORS DURING WRITE 



927 016336 


004737 


044056 






JSR 


PC.PRIERR 


016342 


000405 








BR 


22$ 


016344 


000240 








NOP 




016346 


104000 








EMT 




016350 


004736 








JSR 


pc.a(SP)* 


016352 


000137 


016630 






JMP 


29$ 


928 CI 6356 








22$: 




*WCE,RMCS2I 


929 016356 


032737 


040000 


001 346 




BIT 


930 016364 


001030 








BNE 


24$ 


931 016366 


004737 


056572 






JSR 


PC.DTASTS 


016372 


000405 








BR 


23$ 


016374 


000240 








NOP 




016376 


104000 








EMT 




016AOO 


004736 
000137 








JSR 


PC,a(SP)* 


016402 


016630 






JMP 


29$ 


932 016A06 








23$: 






933 016406 


013737 


001 346 


001140 




MOV 


RMCS2I.$GDDAT 


934 016A14 


052737 


040000 


001140 




BIS 


#WCE,$GDDAT 


935 016422 


013737 


001346 


001142 




MOV 


R«CS2I.$BDDAT 


936 016430 


010337 


001 1 74 






MOV 


R3.$TMP0 


957 016434 


012757 
104 337 


107440 


001176 




MOV 


*8UFTW0-2,$TMP1 


938 01644? 








EMT 


337 



GO READ REGISTER(S) WITH GET SUBROUTINE 
GO TO 21$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY GET SUBROUTINE 
GO TO 29$ IF ERROR 



CHECK DATA OPERATION 

GO CHECK FOR PRIMARY ERRORS 
GO TO 22$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR tt DEFINED BY PRIERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 29$ IF ERROR 



.-WAS 'MCE" DETECTED?? 
;YES!! 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 23$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

60 TO 29$ IF ERROR 

.•EXPECTED STATUS 



RECEIVED STATUS 
FAILING BIT POSITION 
FAILING ADDRESS 
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SEO 0100 



939 016AAA 
940 

941 016A46 

942 016446 
016454 
CI 6462 
016470 
016474 
016476 
016500 

943 

9«,4 016502 

945 016502 

946 016510 

947 016516 

948 016522 

949 016530 

950 016536 

951 016544 

952 C16552 

953 016554 

954 016556 

955 016560 

956 016566 

957 016570 

958 016572 

959 016574 
960 

961 016574 
016600 
016602 
016604 
016606 
016610 

962 016614 

963 016614 

964 016620 
%5 016622 

966 016624 

967 016630 
968 

969 



016630 
016630 
016632 
016634 
016640 
016644 
016650 

970 
971 
972 
973 

974 016656 



0004 7^ 



112737 
112737 
012737 
004737 
000402 
000240 
104000 



013737 
013737 
050337 
012737 
013737 
162737 
023737 
001402 
104340 
000424 
C23737 
001402 
104341 
000416 



004737 
000405 
000240 
104000 
004736 
000137 

050337 
006303 
001402 
000137 



000004 
000240 
012706 
013700 
013701 
012737 



000022 
0C0200 
016630 
043060 



001360 
107440 
001140 
107440 
001342 
000002 
001134 



001524 
001525 
001360 



24$: 



001142 
001140 

001134 
001136 
001136 
001136 



25$: 



001140 001142 26$: 



27$: 



044710 

016630 
107440 

016200 



28$: 



29$: 



BR 



M0V8 

M0V8 

MOV 

JSR 

BR 

NOP 

EMT 



MOV 

MOV 

BIS 

MOV 

MOV 

SUB 

CMP 

BEQ 

EMT 

BR 

CMP 

BEQ 

EMT 

BR 



JSR 

BR 

NOP 

EMT 

JSR 

JMP 

BIS 
ASL 
BEQ 
JMP 



29$ 



#RMDB.GETINX 

#200.GETINX+1 

*29$,SMDBi 

PC, GET 

25$ 



RMD8I,$BDDAT 

BUFTW0-2,$GDDAT 

R3,$GDDAT 

/(f8UFTW0-2.$GDADR 

RMBAI,$8DADR 

#2.$aDADR 

$GDADR.$BDADR 

26$ 

340 

29$ 

5GDDAT,$8DDAT 

27$ 

341 

29$ 



PCSECERR 
28$ 



pc,a(SP)* 

29$ 

R3.8UFTW0-2 

R3 

29$ 

17$ 



SETUP GET INDEX TABLE 

SETUP TERMINATOR BYTE 

SET RMD8 INPUT BUFFER = 29$ 

GO READ RMDB VIA GET SLBROUTINE 

GO TO 25$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR DEFINED BY GET SUBROUTINE 



.•RECEIVED DATA 
.-EXPECTED DATA 

.•EXPECTED ADDRESS 
.•RECEIVED /»DDRESS 
.•CORRECT MEMORY ADDRESS 
.•ADDRESSES OK?? 
;YESI 1 



.•DATA OK?? 
;YES.' . 



GO CHECK FOR SECONDARY ERRORS 

GO TO 28$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 29$ IF ERROR 

.•RESTORE DATA PATTERN 
.•SHIFT TO NEXT BIT 
.EXIT IF DONE 

.•REPEAT TEST FOR NEXT DATA BIT 



•«#»*♦♦♦*•♦♦•♦•*♦*•*♦♦**»**•••***•******♦******♦*"*♦*****»****•* 

'•TEST 10 WRITE. WRITE CHECK MULTIPLE SECTORS 



TST10: 



001100 
0012^6 
001466 
000010 



001226 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 



#STACK.SP 
$aASE.RO 
TSTQUE,R1 
#10.$TESTN 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNI8US ADDRESS 

(R1) = DEVICE BEING TESTED 

.-SET TEST NUMBER IN APT MAIL BOX 



LOOP #1 FORMAT. WRITE. WRITE CHECK 

1$: 



975 



CZRMOeO RM05/3/2 FCTNL TST 
T10 WRITE. WRITE CHECK 
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K 

PAGE 



8 
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SEO 0101 



976 

977 016656 
016662 



978 
979 
980 
981 
982 
983 
98A 
985 
986 
987 
988 



989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
100« 
1005 
1006 



1007 
1008 
1009 

1010 



01666A 
016666 
016670 
016672 
016676 



016676 
01670A 
016712 
016720 
016726 
016734 



016742 
016746 
016750 
016754 
016756 
J316762 
016762 
016770 
016776 



017002 
017006 
017012 
017016 
017022 
01 7026 
017032 
017036 
017042 



017042 
017046 
017050 
017052 
01 7054 
017060 



004737 
154130 



000404 
000240 
104000 
000137 



012737 
012737 
012737 
012737 
012737 
012737 



004737 
000405 
104401 
104000 
000137 

012737 
012737 
004737 



012702 
112722 
112722 
112722 
112722 
112722 
112722 
112712 



037316 



017634 



000000 
000000 
106436 
1 76774 
010000 
000063 



040242 

070426 

017634 

072060 
000001 
0421 74 



001553 
000034 
000006 
000004 
000002 
000032 
000000 
000200 



004737 043330 
000404 
000240 
104000 

000137 017634 



.-PREPARE THE DEVICE FOR FORMAT 
JSR PC.TSTPRP 
.WORD 154130 



2$: 



BR 
NOP 
EMT 
JMP 



2$ 



24$ 



OPERATION 
;PREPARE DEVICE fOR TEST 
TASK DESCRIPTOR AS FOLIOWS: 
•SELECT DEVICE I VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER i SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
•VERIFY PACK ACKNOWLEDGE 
;RECAL18RATE IF "SKI" OR "PIP" IS SET 
VERIFY RECALI8RATI0N 
GO TO 2$ IF NO ERROR 
[RETURN HERE IF ERROR 
■ERROR * DEFINED BY TSTPRP SUBROUTINE 
;60 TO 24$ IF ERROR 



001446 
001420 
001416 
001414 
001444 
001412 



;LOAD PARAMETERS AND GENERATE DATA BUFFER 



001 1 74 
001 1 76 



MOV *0,RMDCO 

MOV *O.RMDAO 

MOV *8UF0NE.RMBA0 

MOV #-258.*2.RMWCO 

MOV #FMT16.RM0F0 

MOV /trWH!G0,RMCS10 

.VERJFY THAT SECTOR IS NOT BAD 

JSR PCBADSCT 

BR 3$ 

TYPE ,SCTMSG 
EMT 

JMP 24$ 

MOV *ZEROS.$TMP0 

MOV *1 .$TMP1 

JSR PC.6ENBUF 



3$: 



.•CYLINDER = 0 
.-TRACK = 0. SECTOR - 0 
;8US ADDRESS 

.-WORD COUNT FOR 2 SECTORS (2'S COMP) 
;16 BIT FORMAT 

.-WRITE HEADER AND DATA COMMAND 



CALL BAD SECTOR MODULE 

GO TO 3$ IF NO ERROR 

TYPE BAD SECTOR MESSAGE 

ERROR * DEFINED BY 8ADSCT SUBROUTINE 

GO TO 24$ IF ERROR 

.-STARTING ADDRESS OF PATTERN 

.-RANGE OF PATTERN 

;G0 GENERATE BUFFER FOR FORMAT 



.-LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 



4$: 



MOV *PUTINX.R2 

M0V8 *RMDC.(R2)*- 

MOVB *RMDA,(R2)+ 

MOVB *RMaA.(R2)+ 

MOVB #RMWC,(R2)* 

M0V3 #RM0F,(R2)+ 

MOVB *RMCS1,(R2)* 

MOVB *200 (R2) 



;R2 = BYTE ENTRY POSITION 



.-FORMAT THE DRIVE 



5$: 



JSR 
BR 
NOP 
EMT 
JMP 



PC. PUT 
5$ 



24$ 



.-TERMINATE TABLE 



60 WRITE REGISTER(S) WITH PUT SlBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR ft DEFINED BY PUT SUBROUTINE 

GO TO 24$ IF ERROR 



017060 004737 042774 



.-SETUP GET INDEX TABLE TO READ ALL REGISTERS _ ^ 

JSR PCGETSTS ;G0 TO GETSTS SUBROUTINE 



CZRMOBO RM05/3/2 FCTNL TST 3 MACRO V04.00 
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lor 

1012 
1013 
lOU 



101S 
1016 
1017 
1018 



01706A 00A737 



017070 
01 707A 
017076 
017100 
017102 
017106 



017106 
017112 
0171H 
017116 
017120 
017122 
017126 



004737 
000A04 
0002A0 
104000 
000137 



004737 
000405 
000240 
104000 
004736 
000137 



043672 
043060 

017634 

056572 

01 7634 



;UAIT FOR COMMAND TO C0P«PLETE 
JSR PCTIMOUT 



;G0 TO TIMOUT SUBROUTINE 



;G0 READ STATUS FOR FORMAT OPERATION 



6$: 



JSR 
BR 
NOP 
EMT 
JMP 



PC. GET 
6$ 



24$ 



.•VERIFY NO ERRORS DURING FORMAT 



001414 
001416 
001412 
001174 
001 1 76 



1019 

1020 
1021 

1022 017126 012737 017200 001124 
1023 
1024 

1025 017134 012737 177000 

1026 017142 012737 106436 

1027 017150 012737 000060 

1028 017156 012737 072016 

1029 017164 012737 000001 

1030 017172 004737 042174 

1031 017176 000410 
1032 
1033 
1034 
1035 

1036 017200 
1037 
1038 
1039 

1040 017200 004737 037316 
154130 



7$: 



JSR 
BR 
NOP 
EMT 
JSR 
JMP 



PC.DTASTS 
7$ 



pc.a(SP)* 

24$ 



GO READ REGISTER(S) UI Th GET SUBROUTINE 
GO TO 6$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY GET SUBROUTINE 
GO TO 24$ IF ERROR 



GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR tt DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 24$ IF ERROR 



.•MOVE LOOP ADDRESSES TO NEXT OPERATION 
MOV m.$LPERR 



.•REGENERATE DATA BUFFER 

MOV *-256.*2.RMUC0 

MOV *8UF0NE,RM8A0 

MOV *WD,RMCS10 

MOV *ONES.$TMPO 

MOV *1.$TMP1 

JSR PC.GENBUF 

BR 9$ 



: CHANGE WORD COUNT 

.•CHANGE BUS ADDRESS 
; WRITE DATA 

.•STARTING ADDRESS OF PATTERN 
.-RANGE OF PATTERN 

;SKIP TO WRITE OPERATION 



f ♦»«»«»****«»♦»*•****»•***«**************»*********** ********** 



017200 
017204 



.•LOOP #2 
8$: 



.PREPARE DEVICE 
JSR 
.WORD 



WRITE, WRITE CHECK 



FOR WRITE OPERATION 



PCTSTPRP 
1541'0 



1041 
1042 
1043 
1044 
104S 



017206 
017210 
017212 
017214 
017220 



01 7220 
017220 



000404 
000240 
104000 
000137 



017634 



9$: 



BR 
NOP 
EMT 
JMP 



9$ 



24$ 



012737 000061 



; WRITE DATA TO THE DRIVE 
10$: 

001412 MOV #WD!G0.RMCS10 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
SELECT DEVICE & VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF "SKI" OR "PIP" IS SET 
VERIFY RECALI8RATI0N 
60 TO 9$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR » DEFINED BY TSTPRP SUBROUTINE 
GO TO 24$ IF ERROR 



; WRITE DATA COMMAND 



CZRMOeO 

no 

10^6 

10A8 
1CK9 
1050 
1051 
1052 
1053 
105A 
1055 



RM05/3/2 FCTNL TST 
WRITE, WRITE CHECK 



1056 
1057 
1058 

1059 
1060 

1061 
1062 
1063 



106A 
1065 
1066 
106^ 



1068 
1069 



1070 
1071 



1072 
1073 
107« 
1075 
1076 
1077 
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8 

13-32 



SEO 0103 



017226 
017232 
017236 
0172A2 
0172A6 
017252 
017256 
017262 

017266 
017272 
01 7274 
017276 
017300 
017304 



012702 
112722 
112722 
112722 
112722 
112722 
112722 
112722 

004737 
000404 
000240 
104000 
000137 



001553 
000006 
000034 
000032 
000004 
000002 
000000 
000200 

043330 



017634 



017304 004737 042774 



017310 004737 043672 



017314 
017320 
017322 
01 7324 
01 7326 
017332 



01 7332 
017336 
01 7340 
017342 
017344 
017346 
017352 
017352 
017356 
017360 
017362 
017364 
017366 
017372 
017372 
017376 
017400 
017402 
017404 
017406 
017412 



017412 
017420 



004737 043060 
000404 
000240 
104000 

000137 017634 



004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 



012737 
000410 



11$: 



MOV 

M0V8 

M0V8 

MOVB 

MOVB 

MOVB 

MOVB 

MOVS 

JSR 

BR 

NOP 

EMT 

JMP 



*PUTINX.R2 

#RMDA,(R2)* 

*RMDC,(R2)* 

#RM0F.(R2)* 

*RMBA,(R2)* 

*RMWC.(R2)* 

*RMCS1,(R2)* 

*200,(R2)* 

PC, PUT 
11$ 



24$ 



;LOAD PUT REGISTER INDEX TABLE 



.•TERMINATE TABLE 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 24$ IF ERROR 



.-SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 



;WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 



;G0 TO TJMOUT SUBROUTINE 



;G0 READ STATUS FOR WRITE COMMAND 



12$: 



JSR 
BR 
NOP 
EMT 
JMP 



PC, GET 
12$ 



24$ 



044056 

017634 
056572 

017634 
044710 

017634 

017422 001124 



.•CHECK FOR ERRORS DURING WRITE 



13$: 



14$: 



15$: 



JSR 
BR 
NOP 
FMT 
JSR 
JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 



PCPRIERR 
13$ 



PC,8(SP)+ 
24$ 

PCDTASTS 
14$ 



PC,a(SP)+ 
24$ 

PC.SECERR 
15$ 



PC.a(SP)+ 
24$ 



.-CHANGE LOOP ADDRESSES 

MOV *16$.$LPERR 
BR 17$ 



GO READ REGISTER(S) WITH GET SUBROUTINE 
GO TO 12$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY GET SUBROUTINE 
GO TO 24$ IF ERROR 



OPERATION 

GO CHECK FOR PRIMARY ERRORS 
GO TO 13$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY PRIERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
60 TO 24$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 
GO TO 14$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR » DEFINED BY DTASTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 24$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 
GO TO 15$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY SECERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 24$ IF ERROR 



;SKIP TO NEXT OPERATION 



CZRMOeU 

no 

1078 

1079 

1080 

1081 

1082 

1083 

108<. 



RM05/3/2 FCTNL TST 
WRITE, WRITE CHECK 



1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
109/' 
1098 
1099 
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N 

PAGE 



33 



SEO 0104 



01 7A22 



01 7422 
01 7426 



1100 
1101 
1102 

1103 
1104 

1105 
1106 
1107 



1108 
1109 

mo 

1111 



017430 
01 7432 
017434 
017436 
017442 



017442 
017442 
017450 
017454 
01 7460 
017464 
01 7470 
017474 
017500 
017504 

01751O 
017514 
017516 
01 7520 
01 7522 
017526 



01 7526 
017532 



017536 
017542 
01754^ 
017546 
017550 
017554 



017554 
017560 



004737 
154130 



000404 
000240 
104000 
0001 37 



012737 
012702 
112722 
112722 
112722 
112722 
112722 
112722 
112712 

004737 
000404 
000240 
104000 
000157 



004737 



004737 



004737 
000404 
000240 
104000 
000137 



004737 
000405 



037316 



;L00P #3 
16$: 

.'PREPARE DEVICE 
JSR 
.WORD 



WRITE CHECK 



FOR READ OPERATION 



PC.TSTPRP 
154130 



017634 



000051 001412 

001553 

000006 

000032 

000034 

000004 

000002 

000000 

000200 

043330 



017634 

042774 
043672 
043060 

01 7634 

044056 



17$: 



BR 
NOP 
EMT 
JMP 



17$ 



24$ 



;READ DATA FROM DEVICE 
18$: 

MOV 
MOV 
M0V8 
M0V8 
M0V8 
M0V8 
M0V8 
M0V8 

fwva 



*WCD!G0,RMCS10 
#PUTINX,R2 
#RMDA,(R2)+ 
#RM0F,(R2)+ 
#RMDC.(R2)+ 
*RMBA,(R2)+ 
#RMWC.(R2)+ 

#200. CR2) 



PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE & VERIFV DEVICE AVAILABLE 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFV PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR 'T>IP" IS SET 

VERIFY RECALI8RATI0N 

GO 10 17$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 24$ IF ERROR 



;READ DATA COMMAND 

.■LOAD PUT REGISTER INDEX TABLE 



19$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC, PUT 
19$ 



24$ 



GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 19$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR ff DEFINED BY PUT SUBROUTINE 

GO TO 24$ IF ERROR 



.-SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 



.•WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 



;G0 TO TIMOUT SUBROUTINE 



;G0 READ STATUS FOR READ OPERATION 



20$: 



JSR 
BR 
NOP 
EMT 
JMP 



PC, GET 
20$ 



24$ 



GO READ REGISTER(S) WITH GET SUBROUTINE 
GO TO 20$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR » DEFINED BY GET SUBROUTINE 
GO TO 24$ IF ERROR 



.■CHECK FOR ERRORS DURING READ OPERATION 

JSR PC.PRIERR ;60 CHECK FOR PRIMARY ERRORS 

BR 21$ ;G0 TO 21$ IF NO ERROR 



7P^C FCTNL TST 

•'Z WRITE. WRITE CHECK 
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SEO 0105 



ni2 
ir3 



IITA 

ni5 



T116 

m8 

Tl'9 
1120 



1121 
1122 
1123 
112A 
1125 
1126 
1127 
1128 



0'' 7562 
01/564 
0';7566 
01 7570 
017574 
017574 
017600 
017602 
017604 
017606 
017610 
017614 
017614 
017620 
01 7622 
01 7624 
017626 
017630 
017654 

01 7654 



017634 
017654 
01 7636 
017640 
017644 
017650 
01 7654 



000240 
10^000 
004756 
000137 

004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 



01 7634 
056572 



01 7634 
044710 



0^ 7634 



21$: 



22$: 



23$: 
24$: 



NOP 
EM7 
JSR 
JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 
BR 

NOP 
EMT 
JSR 
JMP 



pc.a(SP)* 

24S 



PCDTASTS 
22$ 



pc.a(SP)^ 

24$ 

PC.SECERR 
23$ 



PC.3(SP)* 
24$ 



RETURN HERE IF ERRC-R 

ERROR 0 DEFINED BY .""ITRR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 24$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 22$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 24$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 23$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY SECtRR SUBROUTINE 

GC BACK FOR MORE ERROR CHECKS 

GO TO 24$ IF ERROR 



•TEST 11 



WRITE, READ W/ IMPLIED SEEK 



000004 
000240 
01 2706 
01 3700 
013701 
012737 



TST11 



001100 
001276 
001466 
00001 1 



001226 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 



#STACK.SP 
$8ASE,R0 
TST0UE.R1 
#11,$TESTN 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNIBUS ADDRESS 

(R1) - DEVICE BEING TESTED 

.-SET TEST NUMBER IN APT MAIL BOX 



017662 



017662 004737 037316 
017666 154130 



;L00P *1 
1$: 



FORMAT, WRITE. READ 



.■PREPARE THE DEVICE FOR FORMAT 



JSR 
.WORD 



PC.TSTPRP 
154130 



1129 
n30 
1131 
1132 
1133 



017670 
017672 
017674 
017676 



000404 
000240 
104000 

000137 021054 



BR 
NOP 
EMT 
JM^- 



21 



31$ 



OPERATION 
;PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
SELECT DEVICE £ VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER t SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
;PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
;RECALI8RATE IF "SKI" OR "T'lP" IS SET 
VERIFY RECALIBRATION 
GO TO 2$ IF NO ERROR 
; RE TURN HERE IF ERROR 
ERROR # DEFINED BY TSTPRP SUBROUTINE 
GO TO 51$ IF ERROR 



017702 
017702 
017710 



012737 
012737 



000000 
000000 



001446 
001420 



.•LOAD 
2$: 



PARAMETERS AND GENERATE DATA BUFFER 



MOV 
MOV 



*0.PMDCO 
*0.RMDA0 



.•CYLINDER = 0 

.•TRACK = 0, SECTOR = 0 



CZRMOeO 
Til 

1134 
1135 
1156 
1137 
1138 
1139 
1140 



1U1 
1U2 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 



RM05/3/2 FCTNL 
WRITE. READ U/ 



1159 
1160 
1161 

1162 
1163 

1164 
1165 
1166 



017716 
01 7724 
017^32 
017740 
01 7746 



017754 

017:^60 
017762 
017766 
01 7770 
01 7774 
01 7774 
020002 
020010 



020014 
02^)020 
020024 
020030 
020034 
020040 
020044 
020050 
020054 



020054 
020060 
020062 
020064 
020066 
020072 



013737 
012737 
012737 
012737 
012737 



004737 
000405 
104401 
104000 
000137 

012737 
012?37 
004737 



012702 
112722 
112722 
112722 
112722 
112722 
112722 
112712 



TST 3 
IMPLIED 

001446 
106436 
177376 
0100O0 
000063 



040242 
070426 

02105/ 

072016 
000001 
0421 74 



001 S53 
0C0034 
000006 
000004 
000002 
000032 
000000 
000200 



1167 
1168 
1169 
1170 
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021056 
001416 
001414 
001444 
001412 
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004737 043330 
000404 
000240 
104000 

000137 021054 



SEO 0106 



020072 004737 042774 



020076 004737 043672 



020102 004737 043060 

020106 000404 

020110 000240 

020112 104000 

020114 000137 021054 
020120 



020120 004737 056572 

020124 000405 

020126 0002*0 

020130 104000 

020132 004736 

020134 000137 021054 



001174 
001176 



MOV R«DC0,32$ 

MOV *8UF0NE.RMBA0 

MOV #-258.,RMWC0 

MOV #FMT16.RM0FU 

MOV #WH!G0,RMCS10 

;VERIFY THAT SECTOR IS NOT BAD 

JSR PC,8ADSCT 

BR 3S 

TYPE ,SITMSG 
EMT 

JMP 31$ 

MOV #ONES.$TMPO 

MOV *1.STMP1 

JSR PC.GEN8UF 



3S; 



:SAVf DESIRED CYLINDER 
;8US ADDRESS 

;2 ♦ 256. WORDS (2'S COMP) 
;16 BIT FORMAT 

.'WRITE HEADER AND DATA COMMAND 



CALL BAD SECTOR MODULE 

GO TO 3$ IF NO ERROR 

TYPE BAD SECTOR MESSAGE 

ERROR # DEFINED BY BADSCT SUBROUTINE 

GO TO 31$ IF ERROR 

.-STARTING ADDRESS OF PATTERN 

; RANGE OF PATTERN 

;G0 GENERATE BUFFER FOR FORMAT 



;LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 



4$: 



MOV #PUTINX.R2 

M0V8 #RMDC.(R2)* 

M0V8 #RMDA,(R2)+ 

M0V8 *R^BA,(R2)♦ 

M0V8 #RMWC,(R2)* 

M0V8 *RM0F.(R2)+ 

MOVB /irRMCSl,(R2)* 

M0V8 #200, (R2) 



;R2 = BYTE ENTRY POSITION 



.-FORMAT THE DRIVE 



5$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC, PUT 
5$ 



31$ 



; TERMINATE TABLE 



GO WRITE REGISTER(S) WITH PUT SUBROUTINU 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 31$ IF ERROR 



.•SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PCGETSTS ;G0 TO GETSTS SUBROUTINE 



.-WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 



;G0 TO TIMOUT SUBROUTINE 



:G0 READ STATUS FOR FORMAT OPERATION 



6$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC. GET 
6$ 



31$ 



.-VERIFY NO ERRORS DURING FORMAT 

JSR PC.DTASTS 

BR 7$ 
NOP 
EMT 

JSR PC,a(SP)* 

JMP 31$ 



GO READ REGISTER(S) WITH GET SUBROUTINE 
GO TO 6$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY GE' SUBROUTINE 
GO TO 31$ IF ERROR 



GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 31$ IF ERROR 



czRMoeo 

Til 

M71 
1172 
1173 
1174 
1175 
1^6 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
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1185 
1186 
1187 
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S£0 0107 



7$: 



020140 012737 020150 001124 
020146 000410 



020150 



020150 004737 037316 
020154 154130 



;MOVE LOOP ADDRESSES TO NEXT OPERATION 
MOV #S$,$LPERR 
BR 9$ 



;S<IP TO WRITE OPERATION 



;L00P »2 
8$: 

.•PREPARE DEVICE 
JSR 
.WORD 



WRITE, READ 



FOR WRITE OPERATION 



PC.TSTORP 
154130 



1189 
1190 
1191 

1192 
1193 

1194 
1195 
1196 



1197 
1198 
1199 
1200 



020156 
020160 
020162 
020164 
020170 
020170 
020176 

020204 
020210 
020212 
020214 
020216 
020222 



000404 
000240 
104000 
000137 



021054 



012737 001466 00*446 
012737 000005 0014^2 

004737 043330 
000404 
000240 
104000 

000137 021054 



9$: 



10$: 



BR 
NOP 
EMT 
JMP 

MOV 
MOV 

JSR 

BR 

NOP 

EMT 

JMP 



9$ 



31$ 



#822. ,RMDCO 
#SEEK!G0,RMCS10 

PC. PUT 
10$ 



31$ 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
SELECT DEVICE t> VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER t SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF "SKI" OR 'T>IP" IS SET 
VERIFY RE CALIBRATION 
60 TO 9$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY TSTPRP SUBROUTINE 
60 TO 31$ IF ERROR 

.-SEEK TO LAST CYLINDER 
.•WRITE SEEK COMMAND 

60 WRITE REGISTER(S) WITH PUT SUBROUTINE 

60 TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 31$ IF ERROR 



020222 004737 042774 
020226 004737 043672 



.•SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 TO 6ETSTS SUBROUTINE 



020232 
020236 
020240 
020242 
020244 
020250 



020250 
020254 
020256 
0?0260 

J20262 
020264 



004737 043060 
000404 
000240 
104000 

000137 021054 



.•WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 

;60 GET REGISTER STATUS 



11$: 



JSR 
BR 
NOP 
EMT 
JMP 



PC. GET 

iii 



31$ 



004737 
000405 
000240 
104000 
004736 
000137 



051174 



021054 



; VERIFY RESULTS OF SEEK COMMAND 

JSR PC.SEKSTS 

BR 12$ 
NOP 
EMT 

JSR PC.a(SP)* 

JMP 31$ 



;G0 TO TJMOUT SUBROUTINE 



60 READ RE6ISTER(S) WITH GET SUBROUTINE 

60 TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERmOR * DEFINED BY 6ET SUBROUTINE 

GO TO 31$ IF ERROR 



60 VERIFY RESULTS OF SEEK OPERATION 

60 TO 1?$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY SEKSTS SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

GO TO 31$ IF ERROR 



L 



"ZRMOBO RMOS/3/2 FCTNL TST 3 MACRO 
'V WRITE. READ W/ IMPLIED SEEK 



^?0^ 


020270 








1202 










1203 










1204 


020270 








1205 


020270 


013737 


021056 


001446 


1206 


020276 


012737 


1 77400 


001414 


'207 


020304 


012737 


106442 


001416 


1208 
^209 


020312 


012737 


000061 


001412 


020320 


012702 


001553 




1210 


02032A 


112722 


000006 




1211 


020330 


112722 


000034 




1212 


020334 


112722 


000032 




1213 


020340 


112722 


000004 




12U 


020344 


112722 


000002 




1215 


020350 


112722 


000000 




1216 


020354 


112722 


000200 




1217 










1218 


020360 
020364 
C20366 
020370 


004737 
000404 
000240 
104000 


043330 






020372 


000137 


021054 




1219 


020376 








1220 










1221 












020376 


004737 


043672 





1222 
1223 
1224 



1225 
1226 
1227 
1228 



i;29 

1 '30 



1231 
1232 



1233 



020402 
020406 
020410 
020412 
020414 
020420 



020420 
020424 
020426 
020430 
020432 
0204 54 
020440 
020440 
020444 
020446 
020450 
020452 
0204 S4 
020460 
020460 
020464 
020466 
020470 
020472 
020474 
020500 



004737 
000404 
000240 
104000 
000137 



004737 
0004(;5 
0002-0 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 



043060 
021054 
044056 

021054 
056572 

021054 
044710 

021054 
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.-SETUP PARAMETERS AND EXCUTE WRITE DATA COMMAND 
13$: 

MOV 32$.RMDC0 

MOV *-256..RMUC0 

MOV *8UF0NE*4.RM8A0 

MOV <rWD!G0.RMCS10 

MOV *PUTJNX.R2 

M0V8 *RMDA.(R2)* 

M0V8 #RMDC.(R2)+ 

M0V8 <fRM0F,(R2) + 

M0V8 *RrBA,(R2)* 

M0V8 #RMWC.(R2)+ 

M0V8 #RMCS1.(R2)* 

M0V8 #200. (R2)* 



.'RESTORE CYLINDER 
.•CHANGE WORD COUNT 
.'CHANGE BUS ADDRESS 
.'WRITE DATA COMMAND 
.'LOAD PUT REGISTER INDEX TABLE 



14$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC. PUT 
14$ 



31$ 



; TERMINATE TABLE 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 14$ IF NO ERROF< 

RETURN HERE IF ERROR 

ERROR » DEFINED BY PUT SUBROUTINE 

60 TO 31$ IF ERROR 



;WAIT FOR COMMAND TO COMPLETE 
jSR PC.TIMOUT 



;G0 TO TIMOUT SUBROUTINE 



.■GO READ STATUS FOR WRITE COMMAND 



15$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC. GET 
15$ 



31$ 



.•CHECK FOR ERRORS DURING WRITE 
JSR PC.PRIERR 



16$: 



17$: 



'8$: 



BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 



16$ 



PC.a(SP)* 
31$ 

PC.DTASTS 
17$ 



PC.a(SP)<- 
31$ 

PC.SECERR 
18$ 



PC.a(SP)* 
31$ 



GO READ REGISTER(S) WITH GET SUBROUTINE 
GO TO 15$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY GET SUBROUTINE 
GO TO 31$ If ERROR 



OPERATION 

GO CHECK FOR PRIMARY ERRORS 
GO TO 16$ IF NO ERROR 
;RETURN HERE IF ERROR 
;ERROR M DEFINED BY PRIERR SUBROUTINE 
;G0 BACK FOR MORE ERROR CHECKS 
;60 TO 31$ IF ERROR 



GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 17$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY DTASTS SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

GO TO 31$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 18$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 31$ IF ERROR 



ni 

1235 
1?56 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
12*.S 
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SEO 0109 



020500 0^2737 020510 
020506 000410 



020510 



020510 004737 
020514 154130 





020516 


000404 




020520 


000240 




020522 


104000 




020524 


0001 37 


1246 


020530 




1247 


020530 


012737 


1248 


020536 


012737 


1249 






1250 


020544 


004737 




020550 


000404 




020552 


000240 




020554 


104000 




020556 


000137 


1251 


020562 





1252 
1253 

1254 
1255 

1256 
1257 
1258 



1259 
1260 
1261 
1262 



T263 



020562 004737 



020566 004737 



020572 
020576 
020600 
020602 
020604 
020610 



020610 
020614 
020616 
020620 
020622 
020624 
020630 



004737 
000404 
000240 
104000 
000137 



004737 
000405 
000240 
104000 
004736 
000137 



001124 



.■CHANGE LOOP ADDRESSES 

MOV #19$.$LPERR 
BR 20S 



;SKJP TO NEXT OPERATION 



037316 



.•LOOP #3 
19$: 

.•PREPARE DEVICE 
JSR 
.WORD 



READ 



FOR READ OPERATION 



PC.TSTPRP 
154130 



021054 

001466 001446 
000005 001412 

043330 



021054 

042774 
043672 
043060 

021054 

051174 

021054 



20$: 



21$: 



BR 
NOP 
EMT 
JMP 

MOV 
MOV 

JSR 

BR 

NOP 

EMT 

JMP 



20$ 



31$ 



*822..RMDC0 

*seek:go.rmcsio 

PC. PUT 
21$ 



31$ 



PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE & VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR 'VlP" IS SET 

VERIFY RECALIBRATION 

GO TO 20$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 31$ IF ERROR 

.•SEEK TO LAST CYLINDER 
.•WRITE SEEK COMMAND 

GO WRITE REGISTER (S) WITH "UT SUBROUTINE 

GO TO 21$ IF NO ERROR 

RETU '"i HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 31$ IF ERROR 



.•SETUP GET INDEX TABLE TO READ ALL REGISTERS 
JSR PC.GETSTS 



.■WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 

;G0 GET REGISTER STATUS 
JSR PC. GET 
BR 22$ 
NOP 
EMT 

JMP 31$ 

22$: 

.■VERIFY RESUTS OF SEEK COMMAND 



23$: 



JSR 
BR 
NOP 
EMT 
JSR 
JMP 



PC.SEKSTS 
23$ 



pc.a(SP)* 
31$ 



;G0 TO GETSTS SLBROUTINE 
;G0 TO TIMOUT SUBROUTINE 



GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 22$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR tf DEFINED BY GET SUBROUTINE 

GO TO 31$ IF ERROR 



GC VERIFY RESULTS OF SEEK OPtRATION 

GO TO 23$ IF NO ERROR 

RETURN HERE IF ERROR 

bRROR * DEFINED BY SEKSTS SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

GO TO 31$ IF ERROR 



'ZRMoeo 

'265 
1?66 
1267 
1268 
^269 
1270 

^2n 

nil 

1273 
1274 
1275 
1276 
1277 
1278 
1279 
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1280 
1281 
1282 

1283 
1284 
1285 



1286 
1287 
1288 
1289 



1290 
1291 



1292 
^293 



1294 
1?9S 



TST 3 
IMPLIED 



020650 
020630 
020636 
020644 
020652 
020656 
020662 
020666 
020672 
020676 
020702 
020706 

020712 
020716 
020720 
020722 
C20724 
020730 



0''3737 
012737 
012737 
012702 
112722 
112722 
112722 
112722 
112722 
112722 
112712 

004737 
000404 
000240 
104000 
000137 



021056 
000071 
107446 
001553 
000006 
000032 
000034 
000004 
000002 
000000 
000200 

043330 



021054 



020^30 004737 043672 



020734 
020740 
020742 
020744 
020746 
020752 



020752 
020756 
020760 
020762 
020764 
020766 
020772 
020772 
020776 
021000 
021002 
021004 
021006 
021012 
021012 
021016 
021020 
021022 
021024 
021026 
021032 
021052 
021036 



004757 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 

004737 
106442 
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004737 043060 
000404 
000240 
104000 

000137 021054 



SfO 0110 



044056 

021054 

056572 

021054 
044710 

02^054 
042432 



.SETUP PARAMETERS AND EXCUTE READ DATA COMMAND 



001446 
001412 
001416 



24$: 



25$: 



MOV 32$.RMDCO 

MOV *RD!GO.RMCS10 

MOV #8UFTW0+4,RM8A0 

MOV #PUTiNX,R2 

M0V8 *RMDA.(R2)* 

M0V8 *RM0F.(R2)+ 

M0V8 *RMDC.(R2)* 

M0V8 *RMBA.(R2)* 

M0V8 *RMWC,(R2)+ 

Move *RMCS1.(R2)+ 

M0V8 *200.(R2) 

JSR PC, PUT 

BR 25$ 
NOP 
EMT 

JMP 31$ 



RESTORE CYLINDER 

READ DATA COMMAND 

LOAD STARTING BUFFER ADDRESS 

LOAD PUT REGISTER INDEX TABLE 



GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 25$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 31$ IF ERROR 



;WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 



;GC TO TIMOUT SUBROUTINE 



;G0 READ STATUS FOR READ OPERATION 



26$: 



jSR 
BR 
NOP 
EMT 
JMP 



PC. GET 
26$ 



31$ 



.•CHECK FOR ERRORS DURING READ 



27$: 



28$: 



29$; 



JSR 
BR 
NOP 
EMT 
JSR 
JMP 

JSR 

BR 

NOH 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 
.WORD 



PCPRIERR 
27% 



PC,a(SP)* 

31$ 

PC.DTASTS 
28$ 



pc,a(sp)* 

31$ 

PC.SECERR 
29$ 



PC.a(SP)» 
31$ 

PC.CMPBUF 
BUF0NE*4 



GO READ REGISTER(S) WITH GET SUBROUTINE 
60 TO 26$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY GET SUBROUTINE 
GO TO 31$ IF ERROR 



OPERATION 

:G0 CHECK FOR PRIMARY ERRORS 
GO TO 27$ IF NO ERROR 
; RE TURN HERE IF ERROR 
; ERROR » DEFINED BY PRIERR SJ8R0UTINE 
;G0 BACK FOR MORE ERROR CHECKS 
;G0 TO 31$ IF ERROR 



GO VERIFY RESULTS OF DATA TRANSFER 

60 TO 28$ If NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY DTASTS SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

60 TO 31$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

60 TO 29$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY SECERR SUBROUHNt 

GO BACK FOR MORE ERROR CHECKS 

GO TO 31$ IF ERROR 

;G0 COMPARE WRITE. READ DATA BUFFERS 

.•STARTING ADDRESS OF WRITE BUFFER 



CZRMOBO 

Tr 



12% 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 



RM05/3/2 fCTNL 
WRITE, READ W/ 



1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
13i<, 
1315 
1316 
1317 
1318 
1319 
1320 
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SCO 0111 



021040 
021042 
021044 
021046 
021050 
021054 

021054 
021054 

021056 

021060 



021060 
C21060 
C21062 
021064 
021070 
021074 
021100 



107446 
000404 
000240 
104000 
0001 37 



000401 
000000 



021054 



30$: 
31$: 

32$: 
33$: 



.WORD 

BR 

NOP 

EMT 

JMP 



BR 

.WORD 



BUFTW0»4 
30$ 



31$ 



.•STARTING ADDRESS Of READ BUfffR 
GO TO 30$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY CMP8UF SUBROUTINE 
60 TO 31$ IF ERROR 



33$ 

0 



000004 
000240 
012706 
01 3700 
013701 
012737 



•»»»*♦»•»**•♦♦•«»****♦*♦*♦**»»**»»*»••»♦»»»»•***»♦»*»»»»»»•»*•*• 

iTEST 12 WRITE. WRITE CHECK W/ HEAD SWITCHING 

**************************************************************** 

TST12: 



001100 
001276 
001466 
000012 



001226 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 



*STACK,SP 
$aASE,RO 
TSTQUE,R1 
*12.$TESTN 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNJ8US ADDRESS 

(Rl) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 



;LOOP *1 



FORMAT.WRI TE, WRITE CHECK 



.-LOAD PARAMETERS AND GENERATE DATA BUFFER 



021106 








1$: 




*0.RMDCO 




02 V 06 


012737 


000000 


001446 




MOV 


CYLINDER = 0 


021114 


112737 


000000 


001421 




M0V8 


*O.RMDAO*1 


■TRACK 0 


021122 


112737 


000037 


001420 


2$: 


M0V8 


*31.,RMDA0 


•SECTOR = 31. 


021 1 30 


012737 


010000 


001444 




MOV 


*FMT16,RM0F0 


■16 BIT FORMAT 


021136 


012737 


106436 


001416 




MOV 


*8UF0NE,RMBA0 


•BUS ADDRESS 


021144 


012737 


1 76774 


001414 




MOV 


#-258.*2,RMWC0 


■WORD COUNT FOR 2 


021152 


012737 


000063 


001412 




MOV 


*WH!60,RMCS10 


■WRITE HEADER AND 



SECTORS (2'S COMP) 



.■VERIFY THAT SECTOR IS NOT BAD 





021160 


004757 


040242 




JSR 


PC.8ADSCT 




021164 


000405 






BR 


3$ 




C21166 


104401 


070426 




TYPE 


,SCTMSG 




021 1 72 


104000 






EMT 






021174 


000137 


022266 




JMP 


30$ 


1321 


021200 








3$: 


RMDA0,*31 . 


1322 


021200 


123727 


001420 


000037 


CMP8 


1323 


021206 


001345 






BNE 


2$ 


1324 


021210 


012737 


072016 


001 1 74 


MOV 


*ONES.$TMP0 


1325 


021216 
021224 


012737 


000001 


001176 


MOV 


*1,$TMP1 


1326 


004737 


0421 74 




JSR 


PC.GENBUF 


1327 














1328 










.•PREPARE THE 


DEVICE FOR FORMAT 


1329 


021230 


004737 


037316 




JSR 


PC.TSTPRP 
154130 




021234 


154130 






.WORD 



CALL BAD St C TOR MODULE 

GO TO 3$ IF NO ERROR 

TYPE BAD SECTOR MESSAGE 

ERROR * DEFINED BY BADSC^ SUBROUTINE 

GO TO 30$ IF ERROR 



IS LAST TRACK ASSIGNED ? 
BR IF NO 

STARTING ADDRESS OF PATTERN 

RANGE OF PATTERN 

GO GENERATE BUFFER FOR FORMAT 



PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE & VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER & SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 



I 

L 
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1330 
1331 
1332 
1333 
133A 
1335 
1336 
1337 
1338 
1339 
1340 
13A1 
1342 
1343 



1344 
1345 
1346 

1347 
134a 

1349 
1350 
1351 



1552 
1353 
1354 
1355 



1356 
1357 
1358 
1359 
1360 
1361 
1362 
1i63 



021236 
021240 
021242 
021244 
021250 



021250 
021254 
021260 
021264 
021270 
021274 
021300 
021304 



021310 
021314 
021316 
021320 
021322 
021326 



000404 
000240 
104000 
000137 



012702 
112722 
112722 
112722 
112722 
112722 
112722 
112712 



004737 
000404 
000240 
104000 
0001 57 



021326 004737 



021332 004737 



021336 
021342 
021344 
021346 
021550 
021354 



021354 
021360 
021 362 
021364 
021366 
021 570 
021374 



004737 
000404 
000240 
104000 
000137 



004737 
000405 
000240 
104000 
004736 
000137 



022266 



001553 
000054 
000006 
000004 
000002 
000052 
000000 
000200 



045530 

022266 

042774 
045672 
043060 

022266 

056572 

022266 



4S: 



BR 
NOP 
EMT 
JMP 



4S 



50S 



PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR 'PIP" IS SET 

VERIFY RECALI8RATI0N 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 30S IF ERROR 



.•LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 



MOV #PUTINX.R2 

M0V8 #RMDC,(R2)* 

M0V8 #RMDA.(R2)* 

M0V8 *RMeA.(R2)+ 

M0V8 #RMWC.(R2)+ 

M0V8 #RM0F,(R2)+ 

M0V8 #RMCS1.(R2)* 

M0V8 *200.(R2) 



;R2 - BYTE ENTRY POSITION 



.•FORMAT THE DRIVE 



5$: 



JSR 
BR 
NQD 
EMT 
JMP 



PC. PUT 
5$ 



30$ 



.•TERMINATE TABLE 



GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

60 TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 30$ IF ERROR 



.SETUP GET INDEX TABLE TO READ AIL REGISTERS 

JSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 



rWAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 



;G0 TO TIMOUT SUBROUTINE 



;60 READ STATUS FOR FORMAT OPERATION 



6$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC. GET 
6$ 



30$ 



.•VERIFY NO ERRORS DURING FORMAT 



JSR 
BR 
NOP 
EMT 
JSR 
JMP 



PC.DTASTS 
7$ 



pc.a(SP)* 

30$ 



GO READ REGISTER(S) WITH GET SUBROUTINE 
GO TO 6$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY GET SUBROUTINE 
60 TO 30$ IF ERROR 



GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR It DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

60 TO 30$ IF ERROR 



021374 012737 021446 001124 



021402 
021410 



012737 
012737 



177000 
106436 



OOUU 
001416 



;M0VE LOOP ADDRESSES TO NEXT OPERATION 
MOV m.$LPERR 

.•REGENERATE BUFFER 

MOV *-256.*?,RMWC0 
MOV *8UF0NE.RMBA0 



.•CHANGE WORD COUNT 
.•CHANGE BUS ADDRESS 
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1565 
1366 
1367 
1568 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 



02U16 012737 072060 001174 

02H24 012737 000001 001176 

02U32 012737 000060 001412 

021440 004737 042174 

021444 000410 



021446 



021446 004737 037316 
021452 154130 



1577 
^578 
1379 
1380 
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MOV #ZEROS,$TMP0 

MOV *1.$TMP1 

MOV *WD,RMCS10 

JSR PC.6ENBUF 

BR 9$ 



SEO 0115 



.•STARTING ADDRESS 

.•RANGE 

; WRITE DATA 

.•GENERATE BUFFER 

.•SKIP TO WRITE OPERATION 



'••*********:****************Dt************itr<>r*i>*******'*****<r****** 



1581 
1582 
1585 

1384 
1385 

1586 
1587 
1588 



1589 
1590 
1591 
1392 



1593 



;L00P *? 
8$: 

.-PREPARE DEVICE 
JSR 
.WORD 



WRITE. WRITE CHECK 



FOR WRITE OPERATION 



PC.TSTPRP 
154150 



021454 
021456 
021460 
021462 
021466 
021466 

021474 
021500 
021 502 
021504 
021506 
021512 



000404 
000240 
104000 

000157 022266 

012757 000005 001412 

004737 045550 
000404 
000240 
104000 

000137 022266 



9$: 



10S: 



BR 
NOP 
EMT 
JNP 

MOV 

JSR 

BR 

NOP 

EMT 

JMP 



9$ 



50S 



*SEEK1G0,RMCS10 

PC. PUT 
10S 



50$ 



PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE & VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER & SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR 'PIP" IS SET 

VERIFY RECALIBRATION 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

60 TO 50$ IF ERROR 

.•LOAD SEEK COMMAND 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 50$ IF ERROR 



021512 00^737 042774 



.•SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;60 TO GETSTS SUBROUTINE 



021516 004737 045672 



021522 
021526 
021550 
021552 
021 554 
021540 



021540 
021 544 
021546 
021550 
021552 
021554 
021560 



004757 045060 
000404 
000240 
104000 

000157 022266 



004757 051174 

000405 

000240 

104000 

004736 

000137 022266 



.•WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 

;G0 GET REGISTER STATUS 
JSR PC. GET 
BR 11$ 
NOP 
EMT 

JMP 30$ 

11$: 

.•VERIFY RESULTS OF SEEK COMMAND 



12$: 



JSR 
BR 
NOP 
EMT 

JSR 
JMP 



PC.SEKSTS 
12$ 



PC.a(SP)+ 
30$ 



.GO TO TIMOUT SLBROUTINE 



60 READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY GET SUBROUTINE 

60 TO 30$ IF ERROR 



60 VERIFY RESULTS OF SEEK OPERATION 

60 TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY SEKSTS SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

60 TO 50$ IF ERROR 



CZRMOeO 

1595 
1396 
1397 
1398 
1399 
HOO 
HOI 
1402 
1403 
1404 
1405 
1406 
1407 



1408 
1409 
1410 

1411 
1412 

1413 
1414 
1415 



1416 
1417 
1418 
1419 



1420 
1421 



1422 
H23 



1424 
1425 



RM05/5/2 FCTNL TSi 3 
WRITE. WRITE CHECK W/ 



MACRO V04.00 
HEAD SWITCHING 



4-APR-81 01:15:59 



K 

PAGE 



9 

13-43 



SEQ 0114 



021560 
021 560 
021566 
021572 
021 576 
021602 
021606 
021612 
021616 
021622 

021626 
021632 
021634 
021636 
021640 
021644 



021644 



021650 



021654 
021660 
021662 
021664 
021666 
021672 



021672 
021676 
021700 
021702 
021 704 
021706 
021712 
021712 
021716 
021720 
021722 
021724 
021726 
021732 
021732 
021736 
021 740 
021 742 
021 744 
021746 
021752 



012737 
012702 
112722 
112722 
112722 
112722 
112722 
112722 
112722 

004737 
000404 
000240 
104000 
0001 37 



004737 
004737 



004737 
000404 
000240 
104000 
000137 



004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 



000061 
001553 
000006 
000034 
000032 
000004 
000002 
000000 
000200 

043330 



022266 

042774 
043672 
043060 

022266 

044056 

022266 
056572 

022266 
044710 

022266 



.WRITE DATA TO THE DRIVE 
13$: 

001412 MOV 
MOV 
M0V8 
MOVB 
MOVB 
MOVB 
MOVB 
MOVB 
MOVB 



*WDIG0,RMCS10 
*PUTINX,R2 
#R«DA,(R2)* 
/rR«DC,(R2)* 
#RMOf .(R2)+ 
*RMBA.(R2)* 
*RMWC,(R2)+ 
ffRMCS1.(R2)+ 
*200.(R2)* 



; WRITE DATA COMMAND 

.-LOAD PUT REGISTER INDEX TABLE 



14$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC, PUT 
14$ 



30$ 



.•TERMINATE TABLE 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 14$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 30$ IF ERROR 



SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 



WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 



;G0 TO TIMOUT SUBROUTINE 



GO READ STATUS FOR WRITE COMMAND 



15$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC, GET 
15$ 



30$ 



.•CHECK FOR ERRORS DURING WRITE 
JSR PCPRIERR 



16$: 



17$: 



18$: 



BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 



16$ 



pc,a(SP)+ 

30$ 

PC.DTASTS 
17$ 



PC,a(SP)+ 
30$ 

PCSECERR 
18$ 



PC.a(SP)* 
30$ 



GO READ REGISTER(S) WITH GET SUBROUTINE 
GO TO 15$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY GET SUBROUTINE 
60 TO 30$ IF ERROR 



OPERATION 

GO CHECK FOR PRIMARY ERRORS 
GO TO 16$ IF NO ERROR 
; RE TURN HERE IF ERROR 
lERROR DEFINED BY PRIERR SUBROUTINE 
;G0 BACK FOR MORE ERROR CHECKS 
;60 TO 30$ IF ERROR 



GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 17$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 30$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 18$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR tt DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 30$ I": ERROR 



CZRMOBO 
T12 

H26 

1428 
U29 
K30 
U?1 
U32 
U33 
K3A 
K35 
1436 
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SEQ 0115 



021752 012737 C21762 001124 
021760 000410 



021 762 



021762 004737 037316 
021766 154130 



; CHANGE LOOP ADDRESSES 

MOV #19$.$LPERR 
BR 20S 



.•SKIP TO NEXT OPERATION 



*************************************************************** 



;LOOP *3 
19$: 



URITE CHECK 



.•PREPARE DEVICE FOr-< READ OPERATION 



JSR 
.WORD 



PC.TSTPRP 
154130 



C21770 


000404 




021772 


000240 




021774 


104000 




021776 


000137 


022266 


1437 022002 






1438 022002 


012737 


000005 


1439 






1440 022010 


004737 


043330 


022014 
022016 


000404 




000240 




022020 


104000 




022022 


000137 


022266 


1441 022026 







20$: 



21$: 



BR 
NOP 
EMT 
J/iP 

MOV 

JSR 

BR 

NOP 

EMT 

JMP 



20$ 



30$ 



/irSEEK.'GO.RMCSIO 

PC. PUT 
21$ 



30$ 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
SELECT DEVICE I VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF "SKI" OR "PIP" IS SFT 
VERIFY RECALI8RATI0N 
GO TO 20$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY TSTPRP SUBROUTINE 
GO TO 30$ IF ERROR 

.-LOAD SEEK COMMAND 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 21$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 30$ IF ERROR 



1442 
1443 

1444 
1445 

1446 
1447 
1448 



022026 004737 0427/4 



022032 004737 043672 



; SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 



1449 
1450 
1451 
1452 



1453 
1454 
1455 



022036 
C22042 
022044 
022046 
022050 
022054 



022054 
022060 
022062 
022064 
022066 
022070 
022074 



004737 043060 
000404 
000240 
104000 

000137 022266 



004737 051174 

000405 

000240 

104000 

004736 

000137 022266 



.•WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 

;G0 READ REGISTER STATUS 

JSR PC. GET 

BR 22$ 
NOP 
EMT 

JMP 30$ 

22$: 

;G0 VERIFY RESULTS OF SEEK 

JSR PC.SEKSTS 

BR 23$ 
NOP 
EMT 

JSR pc,a(sp)* 

JMP 30$ 

23$: 

;READ DATA FROM DEVICE 



;G0 TO TIMOUT SUBROUTINE 



GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 22$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY GET SUBROUTINE 

GO TO 30$ IF ERROR 



GO VERIFY RESULTS OF SEEK OPERATION 

GO TO 23$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SEKSTS SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

GO TO 30$ IF ERROR 
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SEO 0116 











^e.'^7 


\JCC\Jf 


01 ?737 








012702 


001 553 






1 12722 


000006 




0??1 1? 


1 12722 


000032 


K61 


0221 16 


1 12722 


000034 

W W 


1 ■•we 


022122 


1 1 2722 


000004 


K63 


022126 


1 12722 


000002 


K64 


022132 


1 12722 


000000 


K65 


022136 


1 12712 


000200 










1467 


022K2 


00A737 


043330 




022K6 


000 A 04 






022150 


0002A0 






0221 52 


10A000 






0221 54 


0001 37 


022266 


H68 


022160 






U69 








U70 










022160 


004737 


042774 


U71 









1472 

1473 
1474 
1475 



022164 004737 043672 



0221 70 
022174 
022176 
022200 
022202 
1476 022206 
147^ 
1478 



004737 
000404 
000240 
104000 
000137 



043060 



022266 



25$: 



MOV 

MOV 

MOVB 

M0V8 

M0V8 

M0V8 

M0V8 

M0V8 

•10V8 

JSR 

BR 

NOP 

EMT 

JMP 



«WCD.G0,RMCS10 

#PUTINX.R2 

#RMDA.(R2)* 

#RM0F.(R2)* 

*RMDC.(R2)* 

*RMBA,(R2)* 

*R«WC.(R2)* 

*RMCS1 ,(R2)* 

*200.(R2) 

PC. PUT 
25$ 



30$ 



.-READ DATA COMMAND 

.•LOAD PUT REGISTER INDEX TABLE 



GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 25$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 30$ IF ERROR 



SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 



WAIT FOR COMMAND TO CCWPLETE 
JSR PC.TIMOUT 



;G0 TO TJMOUT SUBROUTINE 



GO READ STATUS FOR READ OPERATION 



26$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC. GET 
26$ 



30$ 



60 READ RE6ISTER(S) WITH GET SUBROUTINE 

60 TO 26$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY GET SUBROUTINE 

60 TO 30$ IF ERROR 



.-CHECK FOR ERRORS DURING READ OPERATION 



1479 


022206 


004737 


044056 




JSR 


PC.PRIERR 


•60 CHECK FOR PRIMARY ERRORS 




022212 


000405 






BR 


27$ 


•60 TO 27$ IF NO ERROR 




022214 


000240 






NOP 




•RETURN HERE IF ERROR 




022216 


104000 






EMT 




•ERROR * DEFINED BY PRIERR SUBROUTINE 




022220 


004736 






JSR 


pc.a(sp)* ; 


•60 BACK FOR MORE ERROR CHECKS 




022222 


000137 


022266 




JMP 


30$ 


■60 TO 30$ IF ERROR 


1480 


022226 






27$: 








1481 


022226 


004737 


056572 




JSR 


PC.DTASTS 


;60 VERIFY RESULTS OF DATA TRANSFER 




C22232 


000405 






BR 


28$ 


;60 TO 28$ IF NO ERROR 




022234 


000240 






NOP 




; RE TURN HERE IF ERROR 




022236 


104000 






EMT 




;ERROR # DEFINED BY DiASTS SUBROUTINE 




022240 


004736 






JSR 


pc.a(SP)* 


r60 BACK FOR MORE ERROR CHECKS 




0222^2 


000137 


022266 




JMP 


30$ 


;60 TO 30$ IF ERROR 


1482 


022246 






28$: 








1483 


022246 


004737 


044710 




JSP 


PC.SECERR 


•60 C»iECK FOR SECONDARY ERRORS 




022252 


000405 






BR 


29$ 


•60 T) 29$ IF NO ERROR 




022254 


000240 






NOP 




•RETLRN HERE IF ERROR 




022256 


104000 






EMT 




•ERRCR * DEFINED BY SECERR SUBROUTINE 




022260 


004736 






JSR 


pc,a(SP)+ 


•GO BACK FOR MORE ERROR CHECKS 




022262 


0001 37 


022266 




JMP 


30$ 


•60 TO 30$ IF ERROR 


1484 


022266 






29$: 








1485 
















1486 


022266 






30$: 








1487 
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SEO 0117 



1488 



02i266 
022266 
022270 
022272 
022276 
022302 
022306 



•TEST 13 



WRITE, WRITE CHECK W/ MID-TRANSFER SEEK 



OOOOOA 
0002A0 
012706 
01 3700 
013701 
012737 



TST13: 



001100 
001276 
00U66 
000013 



001226 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 



#STACK,SP 
$8ASE,R0 
TSTQUE.R1 
*13,$TESTN 



SCOPE CALL 

START Of TEST 

INITIALIZE STACK POINTER 

RO = UNJ8US ADDRESS 

(R1) = DEVICE BEING TFSTED 

;SET TEST NUMBER IN APT MAIL BOX 



U89 










K90 










U91 










H92 










1493 










1494 


022314 








1495 


022314 


012737 


000000 


001446 


1496 


022322 


013737 


001334 


001420 


1497 


022330 


112737 


000037 


001420 


1498 


022336 


012737 


010000 


001444 


1499 


022344 


012737 


106436 


001416 


1500 


022352 


012737 


176774 


001414 


1501 


022360 


012737 


000063 


001412 


1502 










1503 











;L00P /t^ 



FORMAT. WRITE, WRITE CHECK 



;L0AD PARAMETERS AND GENERATE DATA BUFFER 



1$: 
2$: 



1504 
1505 
1506 

1507 
1508 
1509 
1510 
1511 
1512 



022366 
022372 
022374 
022400 
022402 
022406 
022406 
022414 
022416 
022424 
022432 



022436 
022442 



MOV *0.RMDC0 

MOV LSTRK.RMDAO 

M0V8 *31..RMDA0 

MOV *FMT16,RM0F0 

MOV #8UF0Nh,RMBA0 

MOV #-258.*2,RMWC0 

MOV *WH!G0,RMCS10 



.•VERIFY THAT SECTOR IS NOT BAD 



004737 


040242 




JSR 


PC.8ADSCT 


000405 






BR 


3$ 


104401 


070426 




TYPE 


.SCTMSG 


104000 






EMT 


25$ 


000137 


023310 




JMP 








3$: 




123737 


001421 


001335 


CMP8 


RMDAO+l.LSTRK+1 


001342 






8NE 


2$ 


012737 


072060 


coil 74 


MOV 


JlfZEROS,$TMP0 


012737 


000001 


001176 


MOV 


*1,$TMP1 


004737 


042174 




JSR 


PCGENBUF 








.-PREPARE THE 


DEVICE FOR FORMAT 


004737 


037316 




JSR 


PCTSTPRP 


154130 






.WORD 


154130 



1513 
1514 
1515 
1516 
1517 
|518 



022444 
022446 
022450 
022452 
022456 



022456 
022462 
022466 



000404 
000240 
104000 
000137 



012702 
112722 
'^2722 



023310 



001553 
000034 
00'j006 



4$: 



BR 
NOP 
EMT 
JMP 



4S 



25$ 



.-CYLINDER = 0 
.-SET LAST TRACK AND 
.-LAST SECTOR 
;16 BIT FORMAT 
;8US ADDRESS 

.-WORD COUNT FOR 2 SECTORS (2* COMP) 
.-WRITE HEADER AND DATA COMMAND 



CALL BAD SECTOR MODULE 

GO TO 3$ IF NO ERROR 

TYPE BAD SECTOR MESSAGE 

ERROR ft DEFINED BY BADSCT SUBROUTINE 

60 TO 25$ IF ERROR 

;IS LAST TRACK ASSIGNED ? 
'BR IF NO 

•STARTING ADDRESS OF PATTERN 

.-RANGE OF PATTERN 

.-GO GENERATE BUFFER FOR FORMAT 



OPERATION 

PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
SELECT DEVICE I VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER £ SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF "SKI" OR "'PIP" IS SET 
VERIFY RE CALIBRATION 
60 TO 4$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR » DEFINED BY TSTPRP SUBROUTINE 
GO TO 25$ IF ERROR 



.-LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 

MOV ffPUTINX.Rc ;R2 " BYTE ENTRY POSITION 

MOVB *RMDC.(R2)* 
M0V8 #RMDA.(R2)* 



113 WRITE. WRITE CHECK U/ MID-TRANSFER SEEK 



1519 

^520 

1521 

1522 

152? 

152^ 

1525 



1526 
1527 
1528 

1529 
1530 

1531 
1532 
153? 



1534 
1535 
1536 
1537 



1538 
15?9 
15A0 
15A1 
15A2 
1543 
1544 
1545 
1546 
15^7 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 



022472 
022476 
022502 
022506 
022512 
022516 
022516 
022522 
022524 
022526 
022530 
022534 



112722 
112722 
112722 
112722 
112712 

004737 
000404 
000240 
104000 
000137 



000004 
C00002 
000032 
000000 
000200 

043330 



023310 



022534 004737 042774 
022540 004737 043672 



022544 
022550 
022552 
022554 
022556 
022562 



022562 
022566 
022570 
022572 
022574 
022576 
022602 



004737 043060 
000404 
000240 
104000 

00013 023310 



004737 
000405 
000240 
104000 
004736 
C00137 



056572 



023310 



022610 
022616 
022624 
022632 
022640 
022646 
022652 



022654 



022654 
022660 



012737 
012737 
012737 
012737 
012737 
004737 
000410 



000060 
177000 
106436 
072016 
000001 
042174 



004737 
154130 



O373I6 



5S: 



6S: 



wove 
nove 
novB 
MOV8 

MOVB 

JSR 

BR 

NOP 

EMT 

JMP 



B 10 
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«RnBA.(R2)« 
#RnwC,(R2)» 
#R«0F.{R2)» 
#fl«CS1.{R2)» 
#200, (R2) 

PC.PU' 
6S 



SEO 0118 



25$ 



.-TERMINATE TABLE 

GO WRITE REGISTER(S) WITH PUT SUBROUTlNf, 

GO TO 6S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR « DEFINED Br PUT SUBROUTINE 

GO TO 25S IF ERROR 



.•SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 



;WAIT FOR COMWAND TO COMPLETE 
JSR PC.TIMOUT 



;G0 TO TiMOUT SUBROUTINE 



;G0 READ STATUS FOR FORMAT OPERATION 



7J: 



JSR 
BR 
NOP 
EMT 
JMP 



PC. GET 
7$ 



25$ 



IVERIFV NO ERRORS DURING FORMAT 



8$: 



JSR 

BR 

NOP 

EMT 

JSR 

JMP 



PC.DTASTS 
8$ 



PC,a(SP)* 

25$ 



;G0 READ REGISTER(S) WITH GET SUBROUTINE 
;G0 TO 7$ IF NO ERROR 
.•RETURN HERE IF ERROR 
.-ERROR « DEFINED BY GET SUBROUTINE 
;G0 TO 25$ IF ERROR 



GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED Br DTASTS S'JBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 25$ IF ERROR 



022602 0'i2757 022654 001124 



.-MO.'E LOOP ADDRESSES TO NEXT OPERATION 
MOV #9$.$LPERR 



001412 
001414 
001416 
001 1 74 
001176 



.REGENERATE BUFFER 



MOV 4rUD,RMCS10 

MOV #-256.*2.RMWC0 

MOV «8UF0f^,RMBA0 

MOV *ONES,$TMP0 

MOV Ml .$TMP1 

JSR PC.GENBUF 

BR 10$ 



.-WRITE DATA 
.•CHANGE WORD COUNT 

.-CHANGE BUS ADDRSS 
.•PATTERN ADDRESS 
.•PATTERN RANGE 

.-SKIP TO WRITE OPERATION 



.-LOOP *2 
9$: 



WRITE, WRITE CHECK 



.•PREPARE DEVICE FOR WRITE OPERATION 



JSR 
.WOR 



PC.TSTPPP 
154130 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
SELECT DEVICE & VERIFY DEVICE AVAILABLE 



:zw]BO 
n5 



1559 

15o0 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 



RI><05/3/2 FCTNL TST ? 
WRITE, WRITE CHECK W/ 



MACRO VOA.OO 4-APR-81 01:15:59 
MID-TRANSFER SEEK 



C 

PAGE 



10 

13-48 



SEO ' 



1574 
1575 
1576 

-577 
1578 

1579 
1580 
1581 



1582 
1583 
1584 
1585 



^586 
1587 



02266? 
022664 
022666 
022670 
022674 



022674 
022674 
022702 
022706 
022712 
022716 
Z22722 
02272t 
022712 
022736 

022742 
022746 
022750 
022752 
022754 
022760 



022760 



022764 



022770 
022774 
022776 
023000 
023002 
023006 



023006 
023012 
023014 
023016 
023020 
023022 
023026 
023026 
023032 
023034 
023036 



000404 
000240 
104000 
0C0137 



012737 
012702 
112722 
112722 
112722 
112722 
112722 
112722 
112722 

004737 
000404 
000240 
104000 
000137 



004737 
004737 



004737 
000404 
000240 
104000 
000137 



004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 



02331 C 



000061 001412 

001553 

000006 

000034 

000032 

0C0004 

000002 

000000 

000200 

043330 



023310 

042774 
04367? 
043060 

023310 

044056 

023310 
056572 



lOt: 

;WRITF 
'1$: 



BR 
NOP 
EMT 
JMP 



10$ 

25i 



DATA TO THE DRIVE 



12t: 



MOV 

MOV 

M0V8 

M0V8 

M0V8 

M0V8 

M0V8 

M0V8 

MOVB 

JSR 

BR 

NOP 

EMT 

JMP 



#wd:go.rmcsio 

#PUTINX,R2 

<fRMDA,(R2)* 

#RMDC.(R2)* 

#RM0F.(R2)* 

#RMBA.(R2)* 

#RMWC.(R2)+ 

*RMCS1,(R2H 

#200. (R2)* 

PC.PUT 
12S 



25$ 



CLEAR CONTROLLER I SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF '"SKI" OR 'PIP" IS SET 

VERIFY RECALI8RATI0N 

GO TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY TSTpRp SUBROUTINE 

GO TO 25$ IF ERROR 



.•WRITE DATA COMMAND 

.-LOAD PUT REGISTER INDEX TABLE 



.•TERMINATE TABLE 

60 WRITE REGISTER (S) WITH PUT SUBROUTINE 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 25$ IF ERROR 



SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;60 TO GETSTS SUBROUTINE 



WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 



;G0 TO TIMOUT SUBROUTINE 



GO READ STATUS FOR WRITE COMMAND 



13$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC. GET 
13$ 



25$ 



GO READ REGISTER(S) WITH GET SUBROUTINE 
GO TO 13$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR » DEFINED BY GET SUBROUTINE 
60 TO 25$ IF ERROR 



.•CHECK FOR ERRORS DURING WRITE OPERATION 



14$: 



JSR 
BR 
NOP 
EMT 
JSR 
JMP 

JSR 
BR 
NOP 
EMT 



PC, PR I ERR 
14$ 



PC.a(SP)* 
25$ 

PC.DTASTS 
15$ 



60 CHECK FOR PRIMARY ERRORS 
60 TO 14$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR » DEFINED BY PRIERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 25$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

60 TO 15$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY DTASTS SUBROUTINE 



1588 
1S89 



1590 

1591 

1592 

1593 

1594 

1595 

1596 

1597 

1598 

1599 

1600 

1601 

1602 



1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
16U 
1615 
1616 
1617 



1618 
1619 
1620 



RM05/5/2 FCTNL TST 3 
»J«ITE. yRJTE CHECK W/ 



HACRO V04.00 4-APR-81 01:15:59 
IID-TRANSFER SEEK 



0 

PAGE 



10 

13-49 



SEO 0120 



023040 
023042 
023046 
023046 
023052 
023054 
023056 
023060 
023062 
023066 



023066 
023074 



023076 



023076 
023102 



023104 
023106 
023110 
023112 
023116 



023116 
023116 
023124 
023130 
023134 
023140 
023144 
023150 
023154 
023160 

023164 
023170 
023172 
023174 
023176 
023202 



004736 

000137 C23310 

004737 044710 

000405 

000240 

104000 

004736 

000137 023310 



012737 023076 001124 
000410 



004737 037316 
154130 



000404 
000240 
04000 
000137 



012737 
012702 
112722 
112722 
112722 
112722 
112722 
112722 
112712 

004737 
000404 
000240 
104000 
000137 



15$: 



16S: 



JSR PC.afSP)* 

JMP 25$ 

JSR PC.SECERR 

BR 16S 
NOP 
EMT 

JSR PC.a<SP)» 

JMP 25$ 



;CHAN6F LOOP ADDRESSES 

WOV #17$.$LPERR 
BR 18$ 



;60 BACK FOR MORE ERROR CHECKS 
;G0 TO 25$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 16$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 25$ IF ERROR 



.•SKIP TO NEXT OPERATION 



.•LOOP #3 
17$: 

.•PREPARE DEViCE 
JSR 
.WORD 



WRITE CHECK 



FOR READ OPERATION 



PC.TSTPRP 
154130 



023310 



000051 
001553 
000006 
000032 
000034 
000004 
000002 
000000 
000200 



043330 , 



023310 



18$: 



BR 
NOP 
EMT 
JMP 



18$ 



25$ 



.•READ DATA FROM DEVICE 



001412 



19$; 



20$: 



MOV 

MOV 

M0V8 

M0V8 

M0V8 

M0V8 

MOVB 

M0V8 

MOVB 

JSR 

BR 

NOP 

EMT 

JMP 



*WCD160.RMCS10 

#PUTINX,R2 

/rR«DA.(R2)* 

*Rf10F,(R2)* 

#R«)C,(R2)* 

#Rf«A.(R2)* 

*RrMC,(R2) + 

#RMCS1.<R2)+ 

#200. (R2) 

PC. PUT 
20$ 



25$ 



PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE I VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER I SELECT DEVICE 

VERIFY CONTROLLER- CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR "PIP" IS SET 

VERIFY RECALI8RATI0N 

GO TO 18$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY TSTPRP SUBROUTINE 

GO TO 25$ IF ERROR 



.-READ DATA COMMAND 

;LOAD PUT REGISTER INDEX TABLE 



GO WRITE REGISTER(S) WITH PUT S'JBROUTINE 

GO TO 20$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 25$ IF ERROR 



023202 004737 042774 



.•SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 



E 10 

CZRMOeO FCTNL TST 3 MACRO vOA.OO ^-APR-81 01:15:59 PAGE 13-50 

113 WRITE. WRITE CHECK W/ •lID-TRANSf ER SEEK 



^1.21 
^622 

023206 

1623 
1624 

1625 023212 
023216 
023220 
023222 
023224 

1626 023230 
1627 

1628 

1629 023230 
023234 
023236 
023240 
023242 
023244 

1630 C22250 
'631 023250 

023254 
023256 
023260 
023262 
023264 

1632 023270 

1633 023270 
023274 
023276 
023300 
023302 
023304 

1634 023310 
1635 

1636 023310 

1637 

1638 



004737 



004737 
000404 
000240 
104000 
.000137 



004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 



OA 3672 
043060 

023310 

044056 

023310 
056572 

023310 
044710 

023310 



.-WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 



;G0 TO TIMOUT SUBROUTINE 



;G0 READ STATUS FOR READ OPERATION 



21$: 



JSR 
BR 
NOP 
EMT 
JMP 



PC. GET 
21$ 



25$ 



.•CHECK FOR ERRORS DURING READ 



22$: 



25$: 



24$: 
25$: 



JSR 
BR 
WOP 
EMT 
JSR 
JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 



1639 
'640 
1641 
1642 
1643 
1644 
1645 
1646 
'647 
'648 



023310 

023310 000004 

023312 000240 

023314 012706 001100 

023320 013700 001276 

023324 013701 001466 

023330 012737 00001 4 001226 



•TEST 14 



TSn4; 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 



023336 012704 000000 
023342 012703 000001 
023346 



023346 004 737 037316 



.-LOOP f^^ 

MOV 

1$: MOV 
2$: 



PC, PR I ERR 
22% 



pc,a(SP)t 

25$ 

PC.DTASTS 
23$ 



pc.a(sp)* 

25$ 

PC.SECERR 
24$ 



PC.a(SP)* 
25$ 



GO READ REGISTERCS) WITH GET SUBROUTINE 
GO TO 21$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY GET SUBROUTINE 
GO TO 25$ IF ERROR 



OPERATION 

GO CHECK FOR PRIMARY ERRORS 
GO TO 22$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY PRIERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 25$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 
GO TO 23$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR ft DEFINED BY DTASTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 25$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 
GO TO 24$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY SECERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO ?•?$ IF ERROR 



WRITE. READ W/ HCE ERROR 



*STACK,SP 
SBASE.RO 
TSTQUE.R1 
#14.$TESTN 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNIBUS ADDRESS 

(R1) = DEVICE BEING TESTED 

.-SET TEST NUMBER IN APT MAIL BOX 



FORMAT, WRITE. READ 



#0.R4 
#1.R3 



;R4 = 1ST HEADER WORD 
;R3 = HCE BIT 



.•PREPARE THE DEVICE FOR FORMAT OPERATION 

JSR PC.TSTPRP ;PREPARE DEVICE FOR TEST 



C7RM0B0 W105/5/2 FCTNL TST 
*U WRITE. READ W/ mCE 

023352 154130 



ERROR 



HAZfiO i/OA.GO A-APR-81 01:15:59 



F 

PAGE 



• 0 

13-51 



SEO 0122 



.WORD 154130 





023354 


000404 








025356 


000240 








023560 


104000 








023362 


000137 


025156 




1649 










1650 










1651 


023366 








1652 


023366 


012737 


000000 


001446 


1653 


023574 


012737 


000000 


001420 


1654 


023402 


012737 


106436 


00141^ 


1655 


023410 


012737 


177376 


001414 


1656 


025416 


012757 


010000 


001444 


1657 


023424 


012737 


000063 


00U12 


1658 










1659 











BR 
NOP 
EMT 
JMP 



3$ 



46S 



TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE & VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER & SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR "PIP" IS SET 

VERIFY RECALIBRATION 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY ^STPRP SUBROUTINE 

GO TO 46$ IF ERROR 



•LOAD PARAMETERS AND GENERATE DATA BUFFER 
h: 



MOV 


#0,RMDCO 


.■CYLINDER = 0 


MOV 


*0.RMDAO 


.•TRACK = 0, SECTOR = 0 


MOV 


*8UF0NE.RMBA0 


;8US ADDRESS 


MOV 


*-258.,RMWCO 


;2 ♦ 256. WORDS (2'S COMP) 


MOV 


*FMTI6,RM0F0 


;16 BIT FORMAT 


MOV 


#WH!G0,RMCS10 


.•WRITE HEADER AND DATA COMMAND 



.•VERIFY THAT SECTOR IS NOT BAD 



1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 



1684 



023432 


004737 


040242 




JSR 


PC.8ADSCT 


■CALL BAD SECTOR MODULE 


023436 


000405 






BR 


4$ 


■GO TO 4$ IF NO ERROR 


023440 


104401 


070426 




TYPE 


.SCTMSG 


■TYPE BAD SECTOR MESSAGE 


023444 


104000 






EMT 




•ERROR # DEFINED BY BADSCT SUBROUTINE 


023446 


000137 


025004 




JMP 


42$ 


■GO TO 42$ IF ERROR 


023452 






4$: 








023452 


012737 


072060 


001 1 74 


MOV 


*ZEROS.$TMPO 


•STARTING ADDRESS OF PATTERN 


023460 


012737 


000001 


001176 


MOV 


*1.$TMP1 


•RANGE OF PATTERN 


025466 


004737 


042174 




JSR 


PC.GEN8UF 


•GO GENERATE BUFFER FOR FORMAT 



023472 
023476 
023500 
023504 
023506 



023512 
023512 
023516 
023522 
023526 
023532 
023536 
023542 
023546 
023552 
023552 
023556 
023560 
023562 
023564 
023570 



030364 
001403 
040364 
000402 
050364 



012702 
112722 
112722 
112722 
112722 
112722 
112722 
112712 

004737 
000404 
000240 
104000 
000157 



106436 
106436 
106436 



001553 
000034 
000006 
000004 
000002 
000032 
000000 
000200 

043330 



025004 



.•CHANGE HEADER WORD TO FORCE HCE DURING WRITE & READ 

BIT R3.eUrONE(R4) ;SET OR RESET FOR HCE?? 
BEQ 5$ 

BU R3.8UF0NE(R4) ;RESET BIT FOR HCE 
BR 6$ 

5$: BIS R3.8UF0NE(R4) ;SET FOR HCE 



;R2 - BYTE ENTRY POSITION 



;.OAP PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 
6$: 

MOV *PUTINX.R2 

M0V8 *RMDC.(R2)+ 

M0V8 *RMDA.(R2)* 

MOVB *RMBA,(R2)* 

MOVB *RMWC,(R2)* 

MOVB *RM0F.(R2)* 

MOVB 4rRMCSl ,(R2)* 

MOVB #200. (R2) 



7$: 



8$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC. PUT 
8$ 



42$ 



TERMINATE TABLE 

GO WRITE REGISTER(S) WITH PU^ SUBROUTINE 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY PUT SUBROUTINE 

GO TO 42$ IF ERROR 



"ZRMOBO RM05/3/? KTNL TST 3 MAC»lO i^CK.OO 
•U WRITE. READ W/ HCE ERROR 
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SEO 01?3 



^685 
''686 

1687 
1688 

•689 
1690 
1691 



1692 
1693 
169A 
^695 



1696 
'697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 



023570 004737 



023574 004737 



023600 
023604 
023606 
023610 
023612 
023616 



023616 
023622 
023624 
023626 
023630 
023632 
023636 



023636 
023644 



023646 



023646 
023652 



1709 
V10 
1711 
1712 
1713 
1714 
1715 
1716 

1/18 



023654 
023656 
023660 
023662 
023666 



023666 
023666 
023674 
023702 
02^710 
023/14 
025720 



004737 
000404 
000240 
104000 
000137 



004737 
000405 
000240 
104000 
004736 
000137 



042774 
043672 
043060 

025004 

056572 

025004 



;SETijP GET INDEX TABLE TO READ ALL REGISTERS 

jSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 



.-WAIT FOR ZOm/m TO COMPLETE 
JSR PCTIMOUT , 



;G0 TO TIMOUT SUBROUTINE 



;G0 READ STATUS FOR FORMAT OPERATION 



9$: 



JSR 
BR 
NOP 
EMT 
JMP 



PC. GET 
9S 



42$ 



.-VERIFY NO ERRORS DURING FORMAT 



10$: 



,SR 
BR 
NOP 
EMT 
JSR 

jmp 



PC.DTASTS 
10$ 



PC.a(SP)* 
42$ 



GO READ REGISTER(S) WfTH GET SlOROUTINE 
GO TO 9$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY GET SUBROUTINE 
GO TO 42$ IF ERROR 



60 VERIFY RESULTS OF DATA TRANSFER 

60 TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

60 TO 42$ IF ERROR 



012737 023646 
000410 



00' 124 



.•MOVE LOOP ADDRESSES TO NEXT OPERATION 
MOV *11$.$LPERR 

BR 12$ .-SKIP TO WRITE OPERATION 

••••■»•»»•«•»••••*•**•»•»»*••••••••**•»•***••*•*•*•••••»**••••*•• 



004737 037316 
154130 



.LOOP #2 
M$: 

;PREPARE DEVICE 
JSR 
.WORD 



WRITE. READ 



FOR WRITE OPERATION 



PC.TSTPRP 
154130 



000404 
000240 
104000 
000137 



012737 
012737 
012737 
012702 
112722 
U2722 



025004 



106442 
177400 
000061 
001553 
000006 
000034 







BR 


12$ ; 






NOP 








EMT 








JMP 


42$ ; 




12$: 








;WRITE 


DATA TO 


THE DRIVE 




13$: 






001416 




MOV 


*8UFONE*4.RMBA0 ; 


001414 




MOV 


#-256.,RMWC0 


001412 




MOV 


*WD.G0,RMCS10 ; 






MOV 


#PUTINX.R2 






•^OVB 


#RMDA.(R2)* 






M0V8 


i«rRMDC. (R2)* 



PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE & VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER i SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF •'SKI" OR "PIP" IS SET 

VERIFY RECALI8RATI0N 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY TSTPRP SUBROUTINE 

GO TO 42$ IF ERROR 



CHANGE BUS ADDRESS 

CHANGE WORD COUNT 

WRITE DATA COMMAND 

LOAD PUT REGISTER INDEX tablE 



7R«10eO RMOS/'?/? FCTNL TST 3 MAC«0 
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H 10 

<,-APR-81 01:15:59 PAGE 13-53 



SfO 01 ?A 



V19 
V20 
1721 
^722 
1723 
172A 
1725 



1726 

1728 

1729 
1730 

1751 
1732 
V33 



1734 
1735 
1736 
1737 



023724 
023730 
023734 
023740 
023744 

023750 
023754 
023756 
023760 
023762 
023766 



112722 
112722 
T2722 

\y2722 

004737 
000404 
000240 
104000 
0001 37 



023766 004737 



023772 004737 



023776 
024002 
024004 
024006 
024010 
024014 



024014 
024020 
024022 
024024 
024026 
024030 



00473/ 
000404 
000240 
104000 
0001 37 



004737 
000405 
000240 
104000 
004736 
0001 37 



00003? 
C00004 
000002 
000000 
000200 

043330 



025004 

042774 
043672 
043060 

025004 
044056 

025004 



1738 








1739 
1740 








024034 






1741 


024034 


005704 




1742 


024036 


001006 




1743 








1744 


024040 


032703 


010000 


1745 


024044 


001037 




1746 


024046 


032703 


140000 


1747 


024052 


001061 




1748 








1749 








1750 


024054 






1751 


024054 


032737 


000200 


1752 


024062 


001102 




V53 








1754 


024064 
024070 
024072 
024074 
024076 


004737 
000405 
000240 
104000 
004736 


056572 




024100 


000137 


025004 


V55 


024104 







14$: 



I>10V8 
MO ^8 
M0V8 
M0V8 
MO ^8 

-SR 

BR 

NOP 

EMT 

JMP 



#RM0F.(R2)* 
#RM8A.(R2)* 
#RMWC.(R2)* 
#RMCS1 .(R2)* 
*200.(R2)* 

PC. PUT 
14$ 



42$ 



TERMINATE TABLE 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 14$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 42$ IF ERROR 



.•SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 



;WAr FOR COMMAND TO COMPLETE 
.SR PC.TIMOUT 



;G0 TO TIMOUT SUBROUTINE 



;G0 READ STATUS FOR WRITE COMMAND 



'5$: 



JSR 
BR 
NOP 
EMT 
JMP 



PC. GET 
15$ 



42$ 



GO READ REGISTER(S) WITH GET SUBROUTINE 
GO TO 15$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY GET SUBROUTINE 
GO TO 42$ IF ERROR 



.•CHECK FOR ERRORS DURING WRITE OPERATION 



JSR 
BR 
NOP 
EMT 
JSR 
JMP 



PC.PRIERR 
16$ 



PC.8(SP)* 
42$ 



GO CHECK FOR PRIMARY ERRORS 
GO TO 16$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY PR I ERR SUBROUTINE 
60 BACK FOR MORE ERROR CHECKS 
GO TO 42$ IF ERROR 



.•DECODE THE TYPE OF ERROR PRODUCED BY THE BIT POSITION OF R3 
16$: 



^ST 
BNE 

BIT 
BNE 
BIT 
BNE 



R4 
17$ 

*FMT16.R3 
20$ 

*MSE.USE.R3 
22$ 



;IS THIS THE FIRST HEADER WORD ? 
;N0 !.' 

SHOULD FER BE SET ? 
YES !. 

SHOULD BSE BE SET ? 
YES : . 



.-VERIFY THAT A HEADER COMPARE ERROR WAS DETECTED 
17$: 

BIT *HCE.RMER1I 
BNE 24$ 



;WAS HCE DETECTED ?? 
;YFS :i 



18$: 



JSR 

BR 

NOP 

EMT 

JSR 

JMP 



PC.DTASTS 
18$ 



PC.a(SP)* 
42$ 



GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 18$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MOPE ERROR CHECKS 

GO TO 42$ IF ERROR 



VS6 

1758 
1759 
1760 
1761 
1762 
1763 
V64 
1765 
1766 
1767 
1768 
1769 
17"0 



1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
178*^ 



1783 
178A 
1785 
1786 
1787 
1788 
1789 
1790 
1791 



1792 
1795 
179A 
1795 
1796 
1797 



RM05/3/2 FCTNL 
WRITE, READ W/ 



TST 
HCE 



ERROR 



MACRO ;04.00 4-APR-81 01:15:59 



I 

PAGE 



10 

13-54 



SEQ 0125 



024104 
024112 
024120 
024124 
024126 
024132 
024136 
024U0 



0/:4144 
024144 
024152 

024154 
024160 
024162 
024164 
024166 
024170 
024174 
024174 
024202 
024210 
024212 



024216 
024216 
024224 

024226 
024232 
024234 
024236 
024240 
024242 
024246 
024246 
024254 
024262 
024264 



024270 
024270 
024274 
024276 
024300 
024302 
024304 
024310 



01 3737 
012/37 
010437 
001002 
005237 
010337 
104544 
0001 57 



052737 
001 046 

004737 
000405 
000240 
104000 
004736 
0001 37 

012737 
013737 
104343 
000137 



032737 
001021 

004737 
000405 
000240 
104000 
004736 
000137 

013737 
012737 
104345 
000137 



004737 
000405 
000240 
104000 
004736 
000137 



001352 
000200 
001174 

001174 
001176 

025004 



000020 
056572 

025004 

000020 
001352 

025004 

100000 
056572 

025004 

001400 
100000 

025004 
044710 

025004 



001142 
001140 



19J: 



f«IOV R«ER1I.$8DDAT 

MOV #HCE.$GDDAT 

MOV R4,$TMP0 

BNE 19$ 

INC STMPO 

MOV R5.$TMP1 

EMT 544 

JMP 42$ 



RECEIVED STATUS 

EXPECTED STATUS 

R4 = HEADER WORD NUMBER AND 

ADJUST NUMBER. 

;R3 = BIT POSH TON 



001552 



;VERIFy THAT A FOR'^T ERROR WAS DETECTED 
20$: 

BIT *FER.RMEH'I ;WAS FER DETECTED ?? 
BNE 24$ ;YES . ! 



001140 
001142 



001 400 



21$: 



JSft 

BR 

NOP 

EMT 

JSR 

JMP 

MOV 
MOV 
EMT 
JMP 



PC.DTASTS 
21$ 



PC.S(SP)* 
42$ 

*FER.$GDDAT 

RMER1I.$8DDAT 

343 

42$ 



GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 21$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 42$ IF ERROR 

.•EXPECTED STATUS 
.•RECEIVED STATUS 



.VERIFY THAT A BAD SECTOR ERROR WAS DETECTED 
22$: 

BIT #8SE.RMER2I 
BNE 24$ 



.-WAS BSE DETECTED ?? 
;YES !! 



001142 
001140 



23$. 



JSR 

BR 

NOP 

EMT 

JSR 

JMP 

MOV 
MOV 
EMT 
JMP 



PC. DTASTS 
23$ 



pcacspj* 

42$ 

RMFR2I.$80DAT 

*8S£.$GDDAT 

345 

42$ 



.•CHECK FOR OTHER ERRORS 



^4$: 



?5$: 



JSR 

BR 

NOP 

EMT 

JSR 

JMP 



PC.SECERR 
25$ 



"CaCSP)* 
42$ 



60 VERIFY RESULTS OF DATA TRANSFER 

60 TO 23$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY DTASTS SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

60 TO 42$ IF ERROR 

.-RECEIVED STATUS 
.•EXPECTED STAIUS 



GO CHECK FOR SECONDARY ERRORS 

GO TO 25$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 42$ IF ERROR 



024310 012757 024516 001124 



.CHANGE LOOP ADDRESSES 

MOV #26$,$LPERR 



CZRHOBO 

TK 

1798 
1799 
1800 
1801 
1302 
1803 



RM05/3/2 FCTNL 
wmTE, READ W/ 



TST 
HCE 



ERROR 



MACRO V04.00 4-APR-81 01:15:S9 



J 

PAGE 



10 

13-55 



SEO 0126 



024316 



024316 
024322 



1804 
1805 
1806 
1807 
1808 
1809 
^810 
1811 
1812 
1813 
1814 
1815 
1816 
1817 
1818 
1819 
1820 



1821 
1822 
1823 

1824 
1825 

1826 
1827 
1828 



1829 
1830 
1831 
1832 



024324 
024326 
024330 
024332 
024336 



024446 
024452 
024454 
024456 
024460 
024464 



004737 
154130 



037316 



000404 
000240 
104000 
0001 37 



025004 



004737 
000404 
000240 
104000 
000137 



043060 



025004 



.•LOOP #3 
26$: 



READ 



.-PREPARE DEVICE FOR READ OPERATION 



JSR 
.WORD 



PC.TSTPRP 
154130 



27$: 



BR 
NOP 
EWT 
JMP 



27$ 



42$ 



024336 








024336 


012737 


107446 


001416 


024344 


012737 


1 77400 


0014U 


024352 


012737 


000071 


001412 


024360 


012702 


001553 




024364 


112722 


000006 




024370 


112722 


000032 




024374 


112722 


000034 




024400 


112722 


000004 




024404 


112722 


000002 




024410 


112722 


000000 




024414 


112712 


000200 




024420 


004737 


043330 




024424 


000404 






024426 


000240 






024430 


104000 






024432 


000137 


025004 




024436 








024436 


004737 


042774 




024442 


004737 


043672 





;READ DATA FROM DEVICE 
28$: 

MOV 
MOV 
MOV 
MOV 
M0V8 
M0V8 
M0V8 
M0V8 
M0V8 
M0V8 
M0V8 



«8UFTW0*4.RM8A0 
*-256.,RMUC0 
*RD.'G0.RMCS10 
#PUTINX.R2 
*RMDA.(R2)+ 
xrR«0F.(R2)* 
*RMDC,(R2)* 
#RMBA,(R2)+ 
#R«WC.(R2)+ 
#RMCS1.(R2)* 
*200.(R2) 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
SELECT DEVICE S VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER & SEI ECT DEVICE 
VERIFV CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF "SKI" OR 'VIP" IS StT 
VERIFY Pt CALIBRATION 
GO TO ?7% IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY TSTPRP SUBROUTINE 
GO TO 42$ IF ERROR 



CHANGE BUS ADDRESS 

CHANGE WORD COUNT 

READ DATA COMMAND 

LOAD PUT REGISTER INDEX TABLE 



29$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC, PUT 
29$ 



42$ 



GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 29$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 42$ IF ERROR 



.'SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 



.•WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMCUT 



;G0 TO TIMOUT SUBROUTINE 



;G0 READ STATUS FOR READ OPERATION 



30$; 



JSR 

BR 

NOP 

EMT 

JMP 



PC, GET 
30$ 



42$ 



GO READ REGISTER(S) WITH GET SUBROUTINE 
GO TO 30$ IF NT ERROR 
RETURN HERE IF ERROR 
ERROR » DEFINED BY GET SUBROUTINE 
60 TO 42$ IF ERROR 



024464 004 737 044056 



; CHECK FOR ERRORS DURING READ OPERATION 

JSR PC.PRIERR ;G0 CHECK FOR PRIMARY ERRORS 



RM05/3/2 FCTNL TST 3 MACRO VOA.OO A-APR-81 01 
MA WRITE. READ W/ HCE ERROR 



K 10 

15:59 PAGE 13-56 



SEO 0'.27 



1833 
1834 
1835 
1836 
1837 
1838 
1839 
18A0 
1841 
1842 
1843 
1844 
1845 
1846 
184/ 



1848 
1849 
1850 
1851 
1852 
1853 
185<. 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 
1863 



1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
18^3 
1874 



024470 
024472 
024474 
024476 
024500 
024504 
024504 
024506 

024510 
024514 
024516 
024522 



024524 
024524 
02453? 

C24534 
024540 
024542 
024544 
024546 
024550 
024554 
024554 
024562 
024570 
024574 
024576 
024602 
024606 
024610 



024614 
024614 
024622 

024624 
C24630 
024632 
024634 
024636 
024640 
024644 
024644 
024652 
024660 
024662 



024666 
024666 
024674 



000405 
000240 
104000 
004736 
000137 

005704 
001006 

032703 
001037 
032703 
001061 



032737 
001102 

004757 
000405 
000240 
104000 
004736 
000137 

013737 
012737 
010437 
001002 
005237 
010337 
104344 
000137 



032737 
001046 

004737 
000405 
000240 
104000 
004736 
000137 

012737 
013737 
104343 
000137 



032737 
001021 



000020 
056572 

025004 

000020 
001352 

025004 









BR 


51$ 


;G0 TO 31$ IF NO ERROR 












•RFTIIRM MPRF If PRRHR 








EMT 




.•ERROR ft DEFINED BY PRIERR SUBROUTINE 








JSR 


pc.a(sp)* 


;60 BACK FOR MORE ERROR CHECKS 


025004 






JMP 


42$ 


;G0 TO 42$ IF ERROR 




31$: 
















R4 


•I'l THIS THE FIRST HEADER WORD 








BNE 


32$ 


;N0 !!. 


010000 






BIT 


*F>IT16.R3 


.'SHOULD FER BE SET ? 






BNE 


35$ 


;VES !! 








□i > 


IfMCp (ICC DX 


•SHOUID RSF RF SFT '> 






BNE 


37$ 


;YES !. 






;VERJFy 


THAT 


A HEADER COMPARE 


ERROR WAS DETECTED 






^2$: 








000200 


001352 




BIT 


*HCE.RMER1I 


.WAS HCE DETECTED ?? 






BNE 


39$ 


;YES !! 


056572 






JSR 


PC.DTASTS 


;60 VERIFY RESULTS OF DATA TRANSFER 






BR 


33$ 


;G0 TO 33$ JF NO ERROR 








NOP 




.•RETURN HERE IF ERROR 








EMT 




.•ERROR * DEFINED BY DTASTS SUBROUTINE 








JSR 


pc.a(SP)* 


;G0 BACK FOR MORE ERROR CHECKS 


025004 






JMP 


42$ 


;G0 TO 42$ IF ERROR 




33$: 








001352 


001142 




MOV 


RMER1J.$8DDAT 


.•RECEIVED STATUS 


AAA 1^ A A 

000200 


001 140 




MOV 


#HCE ,$GDDAT 


;EXPtCTcD STATUS 


001 1 74 






MOV 


R4.$TMP0 


;R4 = HEADER WORD NUMBER AND 






BNE 


34$ 


.■ADJUST NUMBER. 


001 1 74 






JNC 


$TAV>0 


;R3 = BIT POSITION 


001 1 76 




34$: 


MOV 


r:.$tmpi 








EMT 


344 




025004 






JMP 


42$ 





001352 



;VERIFV 
^5$: 



THAT A FORMAT ERROR WAS DETECTED 



00- 

00114^ 



100000 001400 



'6$: 



; VERIFY 



BIT 


<rFER,RMFRlI 


;WAS FER DETECTED ?? 


BNE 


39$ 


;YES !! 


JSR 


PC.DTASTS 


;G0 VERIFY RESULTS OF DATA TRANSFER 


BR 


36$ 


;60 TO 36$ IF NO ERROR 


NOP 




.•RETURN HERE IF ERROR 


EMT 




.•ERROR * DEFINED BY DTASTS SUBROUTINE 


JSR 


pc.a(SP)* 


;G0 BACK FOR MORE ERROR CHECKS 


JMP 


42$ 


;G0 TO 42$ IF ERROR 


MOV 


*FER.$GDDAT 


.•EXPECTED STATUS 


MOV 


RMER1I.$BDDAT 


.•RECEIVED STATUS 


EMT 


343 




JMP 


42$ 




THAT 


A BAD SECTOR ERROR 


WAS DETECTED 


BIT 


#8SE.RMFR2I 


.•WAS BSE DETECTED ?? 


BNE 


39$ 


;YES .. 



T876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 



1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
189A 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 



RM05/3/2 FCTNL 
WRITE. READ W/ 



TST 
MCE 



ERROR 



HACRO v04,00 



024676 
024702 
024704 
024706 
024710 
024712 
024716 
024716 
024724 
024732 
024734 



024740 
024740 
024744 
024746 
024750 
024752 
024754 
024760 
024760 
024762 

024764 
024766 
024770 
024774 
025000 
025000 
025004 
025004 



025006 
025006 
025014 
025022 
025030 
025036 

025042 
025046 



004737 
000405 
000240 
104000 
004736 
000137 

013737 
012737 
104345 
000137 



004737 
000405 
000240 
104000 
004736 
000137 

006303 
001006 

005704 
001006 
012704 
01«i703 

000137 

000464 



012737 
012737 
012737 
012737 
004737 

004737 
054130 



056572 



025004 

001400 
100000 

000350 



044710 



025004 



000002 
000001 

023346 



1 7777h 
010000 
106436 
000062 
0421 74 

037316 



025050 000404 

025052 000240 

025054 104000 

025056 000137 025062 

1908 025062 

1909 025062 012737 000063 

1910 025070 012702 001553 



001142 
001140 



38S: 



rCHECK 
^9$: 



40$: 



4i$: 
42$: 
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57 


jsr 


PC.DTASTS 


•60 VERIFY RESULTS Of DATA TRANSFER 


BR 


38$ 


■GO TO 38$ IF NO ERROR 


NOP 




.RETURN HERE IF ERROR 


EW 




.•ERROR * DEFINED BY DTASTS SUBROUTINE 


JSR 


PC a(SP)+ 


•GO BACK FOR MORE ERROR CHECKS 


JMP 


42$ 


•GO TO 42$ IF ERROR 


MOV 


RMER2],$8DDAT 


.•RECEIVED STATUS 


MOV 


*8SE.$GDDAT 


.•EXPECTED STAIUS 


EMT 


345 




JMP 


350 




OR OTHER ERRORS 




JSR 


PC.SECERR 


;G0 CHECK FOR SECONDARY ERRORS 


BR 


40$ 


•60 TO 40$ IF NO ERROR 


NOP 




.•RETURN HERE IF ERROR 


EMT 




.'ERROR * DEFINED BY SECERR SUBROUTINE 


JSR 


PC.a(SP)+ 


•GO BACK FOR MORE ERROR CHECKS 


JMP 


42$ 


.•60 TO 42$ IF ERROR 


ASL 


R3 


.•SHIFT TO NEXT BIT 


BNE 


41$ 


.•REPEAT IF NOT DONE 


TST 


R4 


.•SECOND HEADER WORD DONE?? 


BNE 


42$ 


; YES! ! 


MOV 


*2,R4 


.•SETUP FOR 2ND HEADER WORD 


MOV 


*1.R3 


.•SETUP FOR HCE 


JMP 


2$ 




BA 


46$ 


;EXIT IF ERROR 



SEO 0128 



'•REFORMAT SECTOR THAT WAS WRITTEN WITH BAD HEADER 



001414 
001444 
001416 
001412 



43$: 



MOV 
MOV 
MOV 
MOV 
JSR 

JSR 
.WORD 



#-2.ftMWC0 

*Fr1T16.RM0F0 

*8UF0NE,RMBA0 

*WH.RMCS10 

PC.GENBUF 

PCTSTPRP 
054130 



001412 



44$; 



BR 
NOP 
EMT 
JMP 

MOV 
MOV 



44$ 



44$ 



ONLY TWO HEAD WORDS 

ALWAYS IN 16 BITS MODE 

BUFFER ADDRESS. RE FORMAT THE SECTOR 

WRITE HEAD AND DATA COMMAND 

SET UP THE BUFFER 



PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER ft SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR "PIP" IS SET 

VERIFY RECALI8RATI0N 

GO TO 44$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR tt DEFINED BY TSTPRP SUBROUTINE 

GO TO 44$ IF ERROR 



*WH.'G0,RMCS10 
#PUTINX,R2 



.•FORMAT THE SECTOR 
;SET UP THE REGS 
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SEO 01 ?9 



1911 
1912 
1913 
19K 
1915 
1916 
1917 
1918 



1919 
1920 
1921 
1922 
1923 
1924 



1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 



025074 
025100 
025104 
025110 
025114 
025120 
025124 
025130 
025134 
025136 
025140 
025142 
025146 
025150 
025154 
025156 



025156 
025156 
025160 
025162 
025166 
025172 
025176 



025204 
025210 
0?5214 



025214 
025220 



112722 
112722 
112722 
112722 
112722 
112722 
112722 
004737 
000404 
000240 
104000 
000137 
000240 
004737 
000240 



000004 
000240 
012706 
013700 
013701 
012737 



012704 
012703 



004737 
154130 



000006 
000032 
000034 
000004 
000002 
000000 
000200 
043330 



025156 
043672 



oonoo 

001276 
00U66 
000015 



000000 
000001 



037316 



45$: 
46$: 



M0V8 
M0V8 
M0V8 
M0V8 
M0V8 
M0V8 

nova 

JSR 

BR 

NOP 

El*f 

JMP 

NOP 

JSR 

NOP 



#RMDA.(R2)* 

#RM0F.(R2)* 

#RMDC.(R2)* 

#RMBA.(R2)* 

#R^^WC.(R2)♦ 

#RMCS1,(R2)* 

#200.(R2)<- 

PC. PUT 

45$ 



46$ 

PC.TIMOUT 



GO WRITE REGISTrR(S) WITH PUT SUBROUTINE 

GO TO 45$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 46$ IF ERROR 

.•WAIT FOR FINISH 



***************************************************************** 

[•'•TEST 15 WRITE. READ W/ HCI 

•■*************************************************************** 

tST15: 



001226 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 



*STACK,SP 
$aASE.RO 
TSTOUE.Rl 
*15.$TESTN 



SCOPE CALL 
START OF TEST 
INITIALIZE STACK POINTER 
RO = UNI8US ADDRESS 
(R1) = DEVICE BEING TESTED 
;SET TEST NUMBER IN APT MAIL BOX 



;LOOP *1 
1$: 
2$: 



FORMAT .WRITE, READ 



MOV 
MOV 



#0.R4 
*1.R3 



.•HEADER WORD 
;HCE BIT 



.■PREPARE THE DEVICE FOR FORMAT OPERATION 



JSR 
.WORD 



PC.TSTPRP 
154130 





025222 


000404 








BR 


3$ 




025224 


000240 








NOP 






025226 


104000 








EMT 






025230 


000137 


026562 






JMP 


41$ 


1935 
















1936 










.•LOAD 


PARAMETERS AND GENERATE 


1937 


025234 








3$: 






1938 


025234 


012737 


000000 


001446 




MOV 


*0.RMDCO 


1939 


025242 


012737 


000000 


001420 




MOV 


#0.RMDA0 


1940 


025250 


012737 


106436 


001416 




MOV 


*8UF0NE.RMBA0 


1941 


025256 


012737 


177376 


001414 




MOV 


*-258.,RMWC0 


1942 


025264 


012737 


010000 


001444 




MOV 


*FMT16,RM0F0 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
SELECT DEVICE & VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER I SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF •"SKI" OR "PIP" IS SET 
VERIFY RECALIBRATION 
GO TO 3$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY TSTPRP SUBROUTINE 
GO TO 41$ IF ERROR 



CYLINDER = 0 

TRACK = 0. SECTOR " 0 

BUS ADDRESS 

2 ♦ 256. WORDS (2' COMP) 
16 BIT FORMAT 



N 10 



T15 



^943 
194.^ 
19^5 



19A6 
19^7 
19/,8 
19-9 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1960 
1961 
1962 
1963 
196A 
1965 
1966 
1967 
1968 
1969 
1970 
1971 



1972 
1973 
1974 

1975 
1976 

1977 
1978 
1979 



1980 
1981 
1982 
1983 



RM05/3/2 FCTNL 


1 3 1 3 


MAT DD 


WRITE, 


Re AD W/ 


HCI 




025272 


012737 




Tim A1 3 


025300 


AA/ 

004757 


n/ n 5/. 5 




025504 


AAA/ AC 

000405 






025506 


104401 


Uf UmcO 




Ucjj 1 c 








025314 


0001 37 






025320 








025320 


012737 


072016 


001 1 74 


025326 


012737 


000001 


001176 


025334 


004737 


042174 
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025340 
025344 
025346 
025352 
025354 



025360 
025360 
025364 
025370 
025374 
025400 
025404 
025410 
025414 
025420 



025420 
025424 
025426 
025430 
025432 
025436 



030364 
001403 
040364 
000402 
050364 



012702 
112722 
112722 
112722 
112722 
112722 
112722 
112712 



004737 
000404 
000240 
104000 
0001 37 



025436 004737 



025442 004737 



025446 
025452 
025454 
025456 
025460 
025464 



025464 
025470 



004737 
000404 
000240 
104000 
000137 



004737 
000405 



106436 
106436 
106436 



001553 
000034 
000006 
000004 
000002 
000032 
000000 
000200 



043330 

026410 

042774 
043672 
043060 

026410 

056572 



SEO 0130 



MOV 



#uh;go,rmcsio .-write header and data command 



.•VERIFY THAT SECTOR IS NOT BAD 



4S: 



.-CHANGE HEADER WORD TO FORCE ERROR DURING WRITE 

BIT R3.8UF0NE(R4) .-SET OR RESET BIT?? 
6E0 5S 

BIC '*3,8UF0NE(R4) .-RESET BIT 
BR 6S 
5$: BIS R3.8UF0NE(R4) ;SET BIT 



JSR 


PC.8ADSCT 


CALL BAD SECTOR MODULE 


BR 


4$ 


GO TO 4$ IF NO ERROR 


TrPE 


.SCTMSG 


TYPE BAD SECTOR MESSAGE 


EMT 




ERROR * DEFINED BY BADSCT SUBROUTINE 


^MP 


37$ 


■GO TO 37$ IF ERROR 


MOV 


*ONES,$TMP0 


-STARTING ADDRESS OF PATTERN 


MOV 


*1.$TMP1 


-RANGE OF PATTERN 


JSR 


PC.6ENBUF 


-GO GENERATE BUFFER FOR FORMAT 



7$: 



MOV 

M0V8 

M0V8 

M0V8 

M0V8 

M0V8 

M0V8 

M0V8 



;R2 = BYTE ENTRY POSITION 



.-LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 
6$: 

#PUTiNX.R2 
*RMDC.(R2)^ 
*RMDA.(R2)* 
*RM8A.(R2)+ 
/(TRMWCCR?)* 
*RM0F,(R2)+ 
*RMCS1 .(R2)+ 
*200,(R2) 



.-FORMAT THE DRIVE 

JSR PC. PUT 
BR 8$ 
NOP 
EMT 

JMP 37$ 

8$: 



: TERMINATE TABLE 



GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 37$ IF ERROR 



.-SETUP GET INDEX T/«LE TO READ ALL REGISTERS 

JSR PCGETSTS .-GO TO GETSTS SUBROUTINE 



.-WAIT POR COMMAND TO COMPLETE 
JSR PC.TIMOUT 



;G0 TO TIMOUT SUBROUTINE 



.-GO READ STATUS FOR FORMAT OPERATION 



9$: 



JSR 
BR 
NOP 
EMT 
JMP 



PC. GET 
9$ 



37$ 



;\/ERJFY NO ERRORS DURING FORMAT 
JSR PC.DTASTS 
BR 10$ 



GO READ REGISTER(S) WITH GET SUBROUTINE 
GO TO 9$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY GET SUBROUTINE 
GO TO 37$ IF ERROR 



;G0 VERIFY RESULTS OF DATA TRANSFER 
;G0 TO 10$ IF NO ERROR 



■;R»«B0 ft«05/?/2 FCTNL TST 3 
15 WRITE, READ W/ hCI 

025A72 000240 

025474 104000 

025476 004736 

025500 000137 026410 
025504 
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1984 
1985 
1986 
^987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 



1997 
'998 
1999 
2000 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 



2014 
2015 
2016 

2017 
2018 



025S22 
025524 
025526 
025530 
025534 



025534 
025534 
025542 
025550 
025556 
025562 
025566 
025572 
025576 
025602 
025606 
025612 

025616 
025622 
025624 
025626 
025630 
025654 



025634 
025640 



000404 
000240 
104000 

000137 026410 



012737 
012737 
012737 
012702 
112722 
112722 
112722 
112722 
112722 
112722 
112722 

004737 
0004 04 
000240 
104000 
000137 



004737 
004737 



012000 
000061 
106442 
001553 
000006 
000034 
000032 
000004 
000002 
000000 
000200 

043330 



026410 

042774 
043672 



SEO 0151 



025504 012737 025514 001124 
025512 000410 



025514 



025514 004737 037316 
025520 154130 



10$: 
.-MOVE 



NOP 
EMT 
JSR 
JMP 



pc.a(SP)* 

37$ 



RETURN HERE IF ERROR 

ERROR * DEFINED Bv DTA5TS SueROUTINE 

oO BACK FOR MORE ERROR CHECKS 

GO TO 37$ IF ERROR 



LOOP ADDRESSES TO NEXT OPERATION 
MOV #11$.$lPERR 
BR 12$ 



.•SKIP TO WRITE OPERATION 



.•LOOP #2 
11$: 



WRITE, READ 



.•PREPARE DEVICE 
JSR 
.WORD 



FOR WRITE 
PCTSTPRP 
154130 



OPERATION 

PREPARE 



001444 
001412 
001416 



12$: 

.•WRITE 
13$: 



BR 
NOP 
EMT 
JMP 



12$ 



57$ 



14$: 



DATA TO THE DRIVE 

MOV #f«ti6:hci.rmofo 

MOV #wd;go,r«csio 

MOV /l«UF0NE*4.RMBA0 

MOV jrPUTINX,R2 

M0V8 *RMDA,(R2)* 

M0V8 *RMDC,(R2J* 

M0V8 #Rn0F,(R2)* 

MOVB #RM3A,(R2}« 

M0V8 #RMWC,(R2>+ 

M0V8 #RMCS1.(R2)+ 

MOVB #200,(R2)+ 

JSR PC, PUT 

BR 14$ 
NOP 
EMT 

JMP 37$ 



DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
SELECT DEVICE t VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF "SKI" OR 'T»IP" IS SET 
VERIFY RECALIBRATION 
60 TO 12$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY TSTPRP SUBROUTINE 
GO TO 37$ IF ERROR 



.•INHIBIT HEADER COMPARE 
;WRITE DATA COMMAND 
.-LOAD STARTING BUFFER ADDRtSS 
.LOAD PUT REGISTER INDEX TABLE 



.•TERMINATE TABLE 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

60 TO 14$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

60 TO 37$ IF ERROR 



.-SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PCGETSTS ;G0 TO GETSTS SUBROUTINE 



;WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 



.GO TO TIMOUT SUBROUTINE 



CZRMOeO RM05/^/2 FCTNL TST 
TTi WRITE. READ W/ HCI 
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n 

15-6- 



SCO 015^ 



20*9 
2020 
2021 



2022 
2023 
202A 
2025 



2026 
2027 
2028 
2029 
2030 
2031 
2032 
2033 
203A 
2035 
2036 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 



2045 
2046 



2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 



02564^. 
025650 
025652 
025654 
025656 
025662 



025662 
025666 
025670 
025672 
025674 
025676 
025702 

025706 
025714 
025716 
025724 
025732 
025734 
025734 
025742 
025750 
025752 
025760 
025760 
025762 
025766 

025766 
025766 
025772 
025774 
025776 
026000 
026002 
026006 
026006 
026012 
026014 
026016 
026020 
026022 
026026 



026026 
026034 



026036 



004737 
000404 
000240 
104000 
000137 



004737 
000405 
000240 
104000 
004736 
000137 
005037 

032737 
001407 
013737 
042737 
000412 

013737 
032737 
001406 
042737 

104346 
000137 



004737 
000405 
000240 
104000 
004736 
0001 37 

004737 
000405 
0C0240 
104000 
004736 
000137 



012737 
000410 



0430oO 
026410 
044056 



026410 
001140 



;G0 READ STATUS FOR WRITE COMMAND 



15$: 



JSR 
BR 
NOP 
EMT 
JMP 



PC.GET 
15$ 



37$ 



GO READ REGISTER(S) WITH GET SUBROUTINE 
GO TO 15$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY GET SUBROUTINE 
GO TO 37$ IF ERROR 



.•CHECK FOR ERRORS DURING WRITE OPERATION 



16$: 



000220 001 352 



001352 
177557 



001400 
100000 



001142 
001142 



001142 
001400 



^77777 001142 
026410 

056572 

026410 
044710 

026410 

026036 001124 



17$: 

18$: 

19$: 
20$: 



JSR 


PC.PRIERR 


:G0 


CHECK FOR PRIMARY ERRORS 


BR 


16$ 


:G0 


TO 


16$ IF NO ERROR 


NOP 




.•RETURN HERE IF ERROR 


EMT 




.ERROR 


* DEFINED BY PRIERR SUBROUTINE 




pc.a(SP)* 


;G0 


BACK FOR MORE ERROR CHECKS 


JMP 


37$ 


;60 


TO 


37$ IF ERROR 


CLR 


$GDDAT 






.•EXPECTED STATUS 


BIT 


#hce;fer.rmerii 






;ANY ERROR"': 


BEO 


17$ 








MOV 


RMER1I.$BDDAT 






.•RECEIVED STATUS 


BIC 


#*C<HC£!FER>.$8DDAT 




.•CLEAR DONT CARES 


BR 


18$ 








MOV 


RMER2I.$BDDAT 






.•RECEIVED STATUS 


BIT 


«BSE.RMER2I 






;ANY BAD SECTOR ERROR ? 


BEQ 


19$ 






;N0 !! 


BIC 


#*C8SE.$8DDAT 






.•SAVE BSE FOR ERROR 


EMT 


346 








JMP 


37$ 









21$: 



22$: 



JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 



PC.DTASTS 
21$ 



PC.i(SP)* 
37$ 

PC.SECERR 
22$ 



pc.acsp)* 

37$ 



GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 21$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR n DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MOHE ERROR CHECKS 

60 TO 37$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 22$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 37$ IF ERROR 



.•CHANGE LOOP ADDRESSES 

MOV #23$.$LPERR 
BR 24$ 



;LOOP *3 
23$: 



READ 



CZRMOeO RM05/5/2 fZINL 
T1S WRITE. READ W/ 



TST 
HCI 



D 11 
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2057 
2058 

2059 026036 
0260^2 



2060 
2061 
2062 
2063 
206^ 
2065 
2066 
2067 
2068 
2069 
2070 
2071 
2072 
2073 
207A 
2075 



2076 
2077 
2078 

2079 
2080 

2081 
2082 
2083 



2084 
2085 
2086 
2087 



02604A 
0260A6 
026050 
026052 
026056 



026160 
0261 6A 
026166 
0261 70 
026172 
026176 



026176 
026202 
02620A 
0?6206 
0^6210 



00A737 
154130 



037316 



OOOAOA 
0002A0 
10A000 
000137 



026410 



004737 
000404 
000240 
104000 
000137 



004737 
000405 
000240 
104000 
004736 



043060 



026410 



044056 



SEO 01?^ 



.-PREPARE DEVICE FOR READ OPERATION 



JSR 
.WORD 



PC.TSTPRP 
154130 



24S: 



BR 
NOP 
EMT 
JMP 



026056 








026056 


012737 


0C0071 


001412 


026064 


jai2737 


107446 


001416 


026072 


0T2702 


001553 




026076 


112722 


000C06 




026102 


112722 


000032 




026106 


112722 


000034 




026112 


112722 


000004 




026116 


112722 


000002 




026122 


112722 


000000 




026126 


112712 


000200 




026132 


004737 


043330 




026136 


000404 






026140 


000240 






026142 


104000 






026144 


000137 


026410 




026150 








026150 


004737 


042774 




026154 


004737 


043672 





.-READ DATA FROM 
25$: 

MOV 

MOV 

MOV 

MOVB 

MOVB 

MOVB 

MOVB 

MOVB 

MOVB 

MOVB 

JSR 

BR 

NOP 

EMT 

JMP 

26$: 



24$ 



37$ 



DEVICE 

*RD!G0.RMCS10 

*8UFTW0+4,RM6A0 

*PUTINX,R2 

#RMDA,(R2)* 

*RM0F,(R2)+ 

#RMDC. (R2)+ 

#RMeA,(R2)+ 

#RMWC, (R2)+ 

*RMCS1,(R2)+ 

#200. (R2) 

PC, PUT 
26$ 



37$ 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
SELECT DEVICE I VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER I SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACJ^NOWLEDGE 
RECALIBRATE IF "SKI" OR 'VIP" IS SET 
VERIFY RECALI8RATI0N 
GO TO 24$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR » DEFINED BY TSTPRP SUBROUTINE 
GO TO 37$ IF ERROR 



;READ DATA COMMAND 

.•LOAD STARTING BUFFER ADDRESS 

.•LOAD PUT REGISTER INDEX TABLE 



GO WRITE REGISTER (S) WITH PUT SUBROUTINE 

GO TO 26$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR ft DEFINED BY PUT SUBROUTINE 

GO TO 37$ IF ERROR 



.•SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 



.•WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 



;G0 TO TIM0U1 SUBROUTINE 



;G0 READ STATUS FOR READ OPERATION 



:7$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC. GET 
27$ 



37$ 



GO READ REGISTER(S) WITH GET SUBROUTINE 
GO TO 27$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR M DEFINED BY GET SUBROUTINE 
GO TO 37$ IF ERROR 



.•CHECK FOR ERRORS DURING READ OPERATION 



JSR 
BR 
NOP 
EMT 
JSR 



PC.PRIERR 
28$ 



pc.a(SP)* 



GO CHECK FOR PRIMARY ERRORS 
GO TO 28$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR » DEFINED BY PRIERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 



Z«10eJ Rfi05/?/2 FCTM TST 3 
■15 WRITE. READ W/ HLj 
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SEO 01 



2088 
2089 
2090 

?091 
2092 
2093 
?09A 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2-'02 
2103 
21 OA 
2105 
2106 



2107 
2108 



2109 
2110 



2111 
2112 
2113 
21U 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 



: 262 12 
026216 

026222 
026230 
026232 
026240 
026246 
026250 
026250 
026256 
026264 
026266 
026274 



026412 
026412 
026420 



000137 
005037 

032737 
001407 
013737 
042737 
000412 

013737 
032737 
001406 
042737 



026410 
001140 

000220 001352 



28$: 



001352 
177557 



001400 
100000 



001142 
001142 



001142 
001400 



^77777 001142 



29$: 



30$: 



jMP 
CLR 

BIT 
BEQ 
MCV 
BIC 
BR 

MOV 
BIT 
BEQ 
BIC 



37$ 

$GDDAT 



;G0 TO 37$ If ERROR 

.•EXPECTED STATUS 



*HCE!FER.RMER1I 
29$ 

RMER1 I .$BDDAT 

**C<HCE.FER>.$8DDAT 

30$ 

rm:r2i.$bddat 

*8SE.RMER2I 
31$ 

**C8SE.$BDDAT 



026274 


104346 






EMT 


346 


026276 


000137 


026410 




JMP 


37$ 


026302 






31$: 






026302 






32$: 






C26302 


004737 


056572 




JSR 


PC.DTASTS 


026306 


000405 






BR 


33$ 


026310 


000240 






NOP 




026312 


104000 






EMT 




026314 


004736 






JSR 


pc.a(SP)+ 


026316 


000137 


026410 




JMP 


37$ 


026322 






33$: 






026322 


004737 


044710 




JSR 


PC.SECERR 


026326 


000405 






BR 


34$ 


026330 


000240 






NOP 




026332 


104000 






EMT 




026334 


004736 






JSR 


pc.a(SP)+ 


026336 


000137 


026410 




JMP 


37$ 


026342 






34$: 






026342 


004737 


042432 




JSR 


PCCMPBUF 


026346 


106442 






.WORD 


BUFONE+4 


026350 


107446 






.WORD 


BUFTWO+4 


026352 


000404 






BR 


35$ 


026354 


000240 






NOP 




026356 


104000 






EMT 




026360 


0001 37 


026410 




JMP 


37$ 


026364 






35$: 






026364 


006303 






ASL 


R3 


026366 


001006 






BNE 


36$ 


026370 


005704 






TST 


R4 


026372 


001006 






BNE 


37$ 


026374 


012703 


000001 




MOV 


*1.R3 


026400 


012704 


000002 




MOV 


*2.P4 


026404 






36$: 






026404 


000137 


025214 




JMP 


2$ 


026410 






37$: 






026410 


000464 






BR 


41$ 



any error ? 

no: ! 

RECEIVED STATUS 
CLEAR DONT CARES 



RECEIVED STATUS 

ANY BAD SECTOR ERROR ? 

NO :. 

CLEAR DONT CARES 



012737 177776 0014^4 
012737 010000 001444 



• »»* 

iREf 

• • 

^8$: 



************************* 

ORMAT SECTOR THAT WAS WRI 

a************************ 



GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 33$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 37$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 34$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR n DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 37$ IF ERROR 

GO COMPARE WRITE. READ DATA BUFFERS 

.•STARTING ADDRESS OF WRITE BUFFER 
•STARTING ADDRESS OF READ BUFFER 

GO TO 35$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR DEFINED BY CMPBUF SUBROUTINE 

60 TO 37$ IF ERROR 



SHIFT HCE BIT 
CONTINUE IF NOT DONE 
SECOND HEADER DONE?'' 
YES. ! 

START WITH BIT 0 

DO SECOND HEADER WORD 



.•EXIT IF ERROR 

TTEN WITH BAD HEADER 
»»»»*♦♦♦♦*»»»»•»»••**•••*•••»♦»•«•» 



MOV *-2.RMWC0 
MOV *FMT16,RMOF0 



.•WORD COUNT 
;IN 16 BIT MODE 



rZRMOeO KM05/3/2 FCTNL TST 
nS WRITE. READ W/ HCJ 



?1?8 
2^29 
2150 
2^31 
2132 



2133 
21 5^ 
2135 
2136 
2137 
2138 
2139 
2U0 
2U1 
2U2 
2U3 



2U^ 
2K5 
2K6 
2U7 
2148 
2149 



026426 
026434 
0264^2 

026446 
026452 



026454 
026456 
026460 
026462 
026466 
026466 
026474 
026500 
026504 
026510 
026514 
026520 
026524 
026530 
026534 
026540 
026542 
026544 
026546 
026552 
026554 
026560 
026562 



026562 
026562 
026564 
026566 
026572 
026576 
026602 
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012737 
012737 
004737 

004737 
054130 



000404 
000240 
104CC0 
000137 

012737 
012702 
112722 
112722 
112722 
r2722 
112722 
112722 
112722 
004737 
000404 
000240 
104000 
000137 
000240 
004737 
000240 



000004 
000240 
012706 
013700 
013701 
012737 



106436 
G00062 
042174 

037316 



026466 

000063 
001553 
000006 
000032 
000034 
000004 
000002 
000000 
000200 
043330 



026562 
043672 



001100 
001276 
001466 
000016 



SEO 0135 



001416 
001412 



MOV 
MOV 

JSR 

JSR 
.WORD 



«eUF0NE,RMBA0 
♦WH.RMCSIO 

PC.GENBUF 

PC.TSTPRP 
054130 



001412 



39$; 



40$: 
41$: 



BR 

NOP 

EMT 

JMP 

MOV 
MOV 

Move 

M0V8 

M0V8 

M0V8 

M0V8 

M0V8 

M0V8 

JSR 

BR 

NOP 

EMT 

JMP 

NOP 

JSR 

NOP 



39$ 



39$ 

#WH.'G0,RMCS10 

#PUTINX.R2 

*RMDA,(R2)+ 

*RM0F,(R2)* 

*RMDC,(R2)+ 

*RMBA.(R2)+ 

#RMWC.(R2)+ 

*RMCS1 .(R2)+ 

*200.(R2)* 

PC. PUT 

40$ 



41$ 

PC.TJMOUT 



BUFFER ADDRESS 
FORMAT COMMAND 
SET UP BUFFER 



PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FQiLOWS: 

CLEAR CONTROLLER ft SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR "PIP" IS SET 

VERIFY RECALI8RATI0N 

GO TO 39$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR ft DEFINED BY TSTPRP SUBROUTINE 

GO TO 39$ IF ERROR 



.•TABLE ADDRESS 



GO WRITE RE&ISTER(S) WITH PUT SUBROUTINE 

GO TO 40$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR ft DEFINED BY PUT SUBROUTINE 

GO TO 41$ IF ERROR 



**************************************************************** 

'•TEST 16 WRITE. READ W/ IVC ERROR 

**************************************************************** 

TST16: 



001226 



2150 










2151 










2152 










21S3 










2154 










2155 


026610 








2156 


026610 


012737 


000000 


001446 


2157 


026616 


012737 


000000 


001420 


2158 


026624 


012737 


106436 


001416 


2159 


026632 


012737 


1 77400 


001414 


2160 


026640 


012737 


010000 


001444 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 



*STACK,SP 
$8ASE.R0 
TSTQUE.R1 
*16.$TESTN 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNI8US ADDRESS 

(R1) = DEVICE BEING TESTED 

.-SET TEST NUMBER IN APT MAIL BOX 



»»*»♦♦»»»»»♦♦♦»♦*«*«*»*»*»»**********»****»»»**•***»»»*»»»*»*»» 



.■LOOP ttl 



WRITE. RE AD 



.•LOAD PARAMETERS AND GENERATE DATA BUFFER 
1$: 



MOV 


tfO.RMDCO 


.•CYLINDER = 0 


MOV 


tfO.RMDAO 


.-TRACK = 0. SECTOR = 0 


MOV 


*8UF0NE.RMBA0 


.-BUS ADDRESS 


MOV 


#-256. .RMWCO 


;256. WORDS (2'S COMP) 


MOV 


#FMT16.RMOF0 


;16 BIT FORMAT 



7«l>1CeO R«105/3/2 FCTNL TST 3 (lACRO VW.OO 
■^6 WRITE. READ W/ IVC ERROR 



4-APR-81 01 



G 11 
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SEO .'I' 



?161 
2^62 
2163 



216A 
2165 
2166 
21o7 
2168 
2169 
2170 



2171 
2172 
2173 
21 7A 



2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
21 8A 
2185 
2186 
2187 
2188 
2189 
2190 
2191 



026646 012737 000060 00U12 



02665A 
026660 
026662 
026666 
026670 
02667A 
02667A 
026702 
026710 



02671A 
026720 



026722 
02672A 
026726 
026730 
02673A 



02673A 
0267A2 
026750 
026756 
026762 
02676A 
026766 
026770 
02677A 



C2677A 
02677A 
027002 
027010 
02701 A 
027020 
02702A 
027030 
02703A 
0270A0 
02704A 
027050 

02705A 
027060 
027062 



00A737 
000A05 
10AA01 
10A000 
000137 

012737 
012737 
00A737 



00A737 
15A130 



OOOAOA 
0002AO 
lOAOOO 
000137 



112737 
112737 
012737 
00A737 
OOOAOA 
0002A0 
lOAOOO 
000137 



012737 
012737 
012702 
112722 
112722 
112722 
112722 
112722 
112722 
112722 
112722 

00A737 
OOOAOA 
0002A0 



0A02A2 

070A26 

027602 

001 A20 
000001 
0A217A 

037316 



027602 



00002A 
000200 
000001 
0A3330 



027602 



000061 
000000 
001553 
00002A 
000006 
00003A 
000032 
000002 
OGOOOA 
000000 
000200 

OA3330 



MOV 



/trUD.RMCSIO 



001 1 7A 
001176 



.•VERIFY THAT SECTOR IS NOT BAD 

JSR PC.8ADSCT 

BR 2$ 

TYPE .SCTMSG 
EMT 

J.NP 22$ 

MOV WriDAO.STMPO 

MOV *1,$TMP1 

JSR PC.GENBUf 



2$: 



.-WRITE HEADER AND DATA COMMAND 

CALL BAD SECTOR MODULE 

GO TO 2$ IF NO ERROR 

TYPE BAD SECTOR MESSAGE 

ERROR a DEFINED BY BADSCT SUBROUTINE 

GO TO 22$ IF ERROR 

;USE SECTOR FOR DATA PATTERN 

;G0 GENERATE DATA BUFFER 



; PREPARE DEVICE 
JSR 
.WORD 



FOR WRITE OPERATION 



PC.TSTPRP 
15A130 



3$: 



BR 
NOP 
EMT 
JMP 



3$ 



22$ 



001553 
001 55A 
001 A36 



;RESET VOLUME VALID 



A$: 



M0V6 

M0V6 

MOV 

JSR 

BR 

NOP 

EMT 

JMP 



*RMMR1.PUT1NX 

*200.PUTINX+1 

*DMD,RMMR10 

PC. PUT 

A$ 



22$ 



PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE I VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER I SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR "PIP" IS SET 

VERIFY RE CALIBRATION 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 22$ IF ERROR 



SETUP PUT INDEX TABLE 

SET TERMINATOR BYTE 

SET RMMRl OUTPUT BUFFER - DMD 

GO WRITE RMMRl VIA PUT SUBROUTINE 

GO TO A$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR DEFINED BY PUT SlBROUTINE 

GO TO 22$ IF ERROR 



; SETUP PARAMETERS AND EXCUTE WRITE DATA COMMAND 



001A12 
001 A36 



5$: 



MOV AWDiGO.RMCSIO 

MOV #0, RMMRl 0 

MOV <fPUTINX,R2 

M0V8 *RMMR1.(R2)+ 

M0V8 #RMDA.(R2)+ 

M0V8 #RMDC,(R2)+ 

M0V8 #RM0F,(R2)+ 

MOVB #RMWC.(R2)* 

M0V8 XfRMBA,{R2) + 

MOVB *RMCS1.(R2)+ 

MOVB ft200.(R2)* 

JSR PC. PUT 

BR 6$ 
NOP 



WRITE DATA COMMAND 

RESET DIAGNOSTIC MODE 

LOAD PUT REGISTER INDEX TABlE 



.•TERMINATE TABLE 



GO WRITE REGISTER(S) 
GO TO 6$ IF NO ERROR 
RETURN HERE IF ERROR 



WITH PUT SUBROUTINE 



Tie 



2192 
?193 
?19A 



t<M05/?/2 FCTM 
WRITE, READ U/ 



02706A 
027066 
02707? 



2195 
21% 

2'97 
2198 
2199 



?200 
2201 
2202 
2205 



2204 
2205 
2206 
2207 
2208 



2209 
2210 
2211 
2212 
2213 
22U 
2215 
2216 



2217 
2218 
2219 
2220 
2221 
7722 
2221 
222t. 
222S 



027072 



027076 



027102 
027106 
027110 
027M2 
0271 U 
027120 



027120 
027124 
027126 
0271 30 
027132 
027134 
027U0 
027U0 
027U6 

027150 
027154 
027156 
027160 
027162 
027164 
027170 
0271 70 
0271 76 
027204 
027212 
027214 
027220 
027220 
027224 
027226 
027230 
027232 
027234 
027240 



027240 
027246 



TST 
IVC 



ERROR 
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SEO OH 



104000 
000137 



004737 
004737 



004737 
000404 
000240 
104000 
000137 



004737 
000405 
000240 
104000 
004736 
000137 

032737 
001024 

004737 
000405 
000240 
104000 
004736 
0001 37 

013737 
013737 
052737 
104342 
000137 

004757 
000405 
000240 
104000 
004736 
000137 



012737 
000410 



C27602 

042774 
045672 
043060 

027602 

044056 

027602 
010000 

056572 

027602 

001400 
001400 
010000 

027602 

044710 

027602 

027250 001124 



6$: 



EMT 
JMP 



22$ 



.•ERROR * DEFINED BY PUT SUBROUTINE 
;G0 TO 22$ IF ERROR 



.•SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 



;UAIT FOR COMMAND TO COMPLETE 
JSR PC.TJMOUT 



;G0 TO TJMOUT SUBROUTINE 



;G0 READ STATUS FOR WRITE COMMAND 



7$: 



JSR 
BR 
NOP 
EMT 
JMP 



PC. GET 
7$ 



22$ 



001400 



8$: 



001142 
001140 
001140 



9$: 



10$: 



11$; 



JSR 


PC.PRIERR 


BR 


8$ 


NOP 




EMT 




JSR 


pc.acsp) + 


JMP 


22$ 


BIT 


*IVC,RMER2I 


BNE 


10$ 


JSR 


PC.DTASTS 


BR 


9$ 


NOP 




EMT 




JSR 


PC.aCSP)* 


JMP 


22$ 


MOV 


RMER2I,$8DDAT 


MOV 


RMER2I.$GDDAT 


BIS 


*IVC,$GDDAT 


EMT 


342 


JMP 


22$ 


JSR 


PC.SECERR 


BR 


11$ 


NOP 




EMT 




JSR 


pc.afSP)+ 


JMP 


22$ 


LOOP 


ADDRESSES 


MOV 


#12$.$LPERR 


BR 


15$ 


•••»»•»*•*•»«•«««»«»» 



.•CHECK FOR ERRORS DURING WRITE 



GO READ REGISTER(S) WITH GET SUBROUTINE 
60 TO 7$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY GET SUBROUTINE 
GO TO 22$ IF ERROR 



OPERATION 

GO CHECK FOR PRIMARY ERRORS 
GO TO 8$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY PRJERR SUBROUTINE 
60 BACK FOR MORE ERROR CHECKS 
GO TO 22$ IF ERROR 



;WAS "IVC" DETECTED?? 
;YESI . 

60 VERIFY RESULTS OF DATA TRANSFER 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 22$ IF ERROR 

.•RECEIVED STATUS 
.•EXPECTED STATUS 



GO CHECK FOR SECONDARY ERRORS 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 22$ IF ERROR 



)*•*••*••*••••*** 



;LOOP *2 READ 



^6 



RM05/3/2 FCTNL TSr 3 
WRITE. READ W/ IVC ERROR 
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??2b 027?50 

2227 

222S 

?229 027?50 004737 037316 
027254 154130 



2230 
2231 
2232 
2233 



2234 
2235 
2236 
2237 
223a 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2248 
2249 
2250 
2251 



2252 
2253 
2254 

2255 
2256 

2257 



027256 
027260 
027262 
027264 
027270 



C27270 
027276 
027304 
027312 
027316 
027320 
027322 
027324 
027330 



000404 
000240 
104000 
000137 



112737 
112737 
012737 
004737 
000404 
000240 
104000 
000137 



027602 



0C0024 
000200 
000001 
043330 



027602 



12$: 

.•PREPARE DEVICE 
JSR 
.WORD 



FOR READ OPERATION 



PC.TSTPRP 
154130 



13$: 



BR 

NOP 

tm 

JMP 



13$ 



22$ 



PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE £ VERIFr DEVICE AVAILABLE 

CLEAR CONTROLLER £ SELECT DEVICE 

VERJFy CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE iF VOLUME NOT VALID 

VERIFr PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR 'PIP" IS SET 

VERIFY RECALI8RATI0N 

GO TO 13$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY TSTPRP SUBROUTINE 

GO TO 22$ IF ERROR 



001553 
001554 
00U36 



.•RESET VOLUME VALID 



M0V8 


#RMMR1 .PUTINX 


SETUP PUT INDEX TABLE 


MOVB 


A200,PUTINX*1 


SET TERMINATOR BYTE 


MOV 


tfDMD.RMMRIO 


SET RMMR1 OUTPUT BUFFER - DMD 


JSR 


PC. PUT 


GO WRITE RMMR1 VIA PUT SUBROUTINE 


BR 


14$ 


GO TO 14$ IF NO ERROR 


NOP 




RETURN HERE IF ERROR 


EMT 




■ERROR DEFINED BY PUT SLBROUTINE 


JMP 


22$ 


■GO TO 22$ IF ERROR 



027330 








027330 


012737 


000071 


001412 


027336 


012737 


107442 


001416 


027344 


012737 


000000 


00U36 


027352 


012702 


001553 




027356 


112722 


000024 




027362 


112722 


000006 




027366 


112722 


000032 




027372 


112722 


000034 




027376 


112722 


000004 




027402 


112722 


000002 




027406 


112722 


000000 




027412 


112712 


000200 




027416 


004737 


043330 




027422 


000404 






027424 


000240 






027426 


104000 






027430 


0001 37 


027602 




027434 








027434 


004737 


042774 




027440 


00^737 


043672 





14$: 

;READ DATA FROM DEVICE 
15$: 

MOV 
MOV 
MOV 
MOV 
M0V8 
M0V8 
M0V8 
MOVB 
MOVB 
MOVB 
MOVB 
MOVB 



tfRDIGO.RMCSlO 
*8UFTW0,RMBA0 
i)fO,RMMR10 
#PUTINX,R2 
*RAWR1 .(R2)* 
tfRMDA, (R2)* 
<fRM0F,(R2)* 
*RMDC.(R2)* 
*RMBA.(R2)* 
*RMWC,(R2)* 
#RMCS1,(R2)+ 
#200. (R2) 



READ DATA COMMAND 

LOAD STARTING BUFFER ADDRESS 

RESET DIANOSTIC MODE 

LOAD PUT REGISTER INDEX TABLE 



16$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC .PUT 
16$ 



22$ 



GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 16$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 22$ IF ERROR 



.■SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 



.•WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 



;G0 ro TIMOjT SUBROUl INE 



ZRMOBO 
22S9 



2260 
2261 
2262 
2263 



2264 
2265 
2266 
2267 
2268 



2269 
2270 
2271 
2272 
2271 
2271. 
227'i 
227 1 



2277 
2278 
2279 
2280 
2281 



RM05/5/2 FCTNL 
WRITE, READ U/ 



2282 
2283 
2284 
2285 
2286 



027^^^ 
027A50 
027452 
027454 
027456 
027462 



027462 

027466 

027470 

027i.72 

027 1,7 

02 7476 

027502 

027502 

027510 

027512 
027516 
027520 
027522 
027524 
027526 
027532 
027532 
027540 
027546 
027554 
027556 
027562 
027562 
027566 
027570 
027572 
027574 
027576 
027602 

027602 



027602 
027602 
027604 
027606 
027612 
027616 
027622 



TST 
IVC 



ERROR 
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004737 
000404 
000240 
104000 
000137 



004737 
000405 
000240 
104000 
004736 
0001 37 

032737 
001024 

004737 
000405 
000240 
104000 
004736 
0001 37 

013737 
052737 
013737 
104342 
0001 37 

004737 
000405 
000240 
104000 
004736 
0001 37 



000004 
000240 
012706 
013700 
013701 
012737 



C43060 
027602 
044056 

027602 * 
010000 001400 

056572 



027602 

001400 
010000 
001400 

027602 

044710 



027602 



;G0 READ STATUS FOR READ OPERATION 



17$: 



JSR 
BR 
NOP 
EMT 
JMP 



PC, GET 
17$ 



22$ 



GO READ REGISTER(S) WITH GET SUBROUTINE 
GO TO 17$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY GET SUBROUTINE 
GO TO 22$ IF ERROR 



.•CHECK FOR ERRORS DURING READ OPERATION 



8$: 



001140 
001140 
00114? 



19$: 



20$: 



1 c n 

JSR 


PC.PnlrRR , 


GO CHfcCK FOR PRjnARY ERRORS 


BR 


18$ 


GO TO 18$ IF NO ERROR 


NOP 




RETURN HERE IF ERROR 


EMT 




ERROR * DEFINED BY PRIERR SUBROUTINE 


JSR 


PC.a(SP)* ; 


GO BACK FOR MORE ERROR CHECKS 


JMP 


22$ 


GO TO 22$ IF ERROR 


BIT 


#JVC.RMER2I 


;WAS "IVC" DETECTED?? 


BNE 


20$ 


;YESI ! 


JSR 


PC.DTASTS 


GO VERIFY RESULTS OF DATA TRANSFER 


BR 


19$ 


■GO TO 19$ IF NO ERROR 


NOP 




■RETURN HERE IF ERROR 


EMT 




■ERROR ft DEFINED BY DTASTS SUBROUTINE 


JSR 


PC.a(SP)+ 


•GO BACK FOR MORE ERROR CHECKS 


JMP 


22$ 


;G0 TO 22$ IF ERROR 


MOV 


RMER2I.$GDDAT 


.•EXPECTED STATUS 


BIS 


*IVC.$GDDAT 




MOV 


RMER2I,$BDDAT 


.•RECEIVED STATUS 


EMT 


342 




JMP 


22$ 




JSR 


PC.SECERR 


:60 CHECK FOR SECONDARY ERRORS 


BR 


21$ 


:G0 TO 21$ IF NO ERROR 


NOP 




r RE TURN HERE IF ERROR 


EMT 




; ERROR ft DEFINED BY SECERR SUBRO'JTINE 


JSR 


PC.a(SP)+ 


;G0 BACK FOR MORE ERROR CHECKS 


JMP 


22$ 


;60 TO 22$ IF ERROR 





001100 
001276 
001466 

000017 001226 



21$: 
22$: 



;*TEST 17 WRITE. READ W/ ABORT 

••*************************************************************** 

tsT17: 

SCOPE .-SCOPE CALL 

NOP ; START OF TEST 

MOV tfSTACK.SP .-INITIALIZE STACK POINTER 

MOV $8ASE.R0 ;R0 = UN I BUS ADDRESS 

MOV TSTQUE.R1 ; (R1) = DEVICE BEING TESTED 

MOV *17.$TESTN ;;SET TEST NUMBER IN APT MAIL BOX 

•■♦»♦♦••»••♦•»♦♦••♦•♦♦♦•»•••»**•*****•*•**•**»»***•*•»«»»»»»»»*»» 



.-LOOP #1 WRITE. READ 

.•LOAD PARAMETERS AND GENERATE DATA BUFFER 



CZRMCBO 



RM05/3/2 FCTNL 
WRITE. READ W/ 



2?87 027630 

2288 027636 

2289 027644 

2290 027652 

2291 027660 

2292 027666 

2293 027674 
2294 

2295 

2296 027674 
027700 



2297 
2298 
2299 
2300 



2301 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 



2316 
?317 
;>318 

2319 



027702 
C27704 
027706 
027710 
027714 



027714 
027722 
027730 
027736 
027742 
0277^^ 
027746 
027750 
027754 



027754 
027754 
027762 
027766 
027772 
027776 
030002 
030006 
030012 
030016 

030022 
030026 
030030 
030032 
030034 
030040 



012737 
012737 
012737 
012737 
012737 
012737 



TST 3 
ABORT 

000000 
000000 
106436 
177400 
010000 
000061 



004737 
154130 



037316 



000404 
000240 
104000 

000137 030520 



112737 
112737 
012737 
004737 
000404 
000240 
104000 
000137 



012737 
012702 
112722 
112722 
112722 
112722 
112722 
112722 
112722 

004737 
000404 
000240 
104000 
000137 



000014 
000200 
040000 
043330 



030520 



000061 
001553 
000006 
000034 
000032 
000004 
000002 
000000 
000200 

043530 



030520 



030040 004737 042774 
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SEO OKO 



001446 
001420 
001416 
001414 
001444 
001412 



1$: 



MOV #O.RMDCO 

MOV #0,RMDAO 

MOV M3UF0NE.RMBA0 

MOV ff-256.,RMWC0 

MOV fffMT16.RM0f0 

MOV #WD1G0,RMCS10 



.•CyiJNDER = 0 

.•TRACK = 0. SECTOR = 0 

;8US ^DDRESS 

;256. WORDS (2'S COMP) 

;16 BJT FORMAT 

.•WRITE DATA COMMAND 



.•PREPARE DEVICE FOR WRITE OPERATION 



JSR 
.WORD 



PC.TSTPRP 
154130 



2$: 



BR 
NOP 
EMT 
JMP 



2$ 



21$ 



001553 
001554 
001426 



.-SET UNSAFE ERROR 

M0V8 #RMER1 .PUTINX 



3$: 



M0V8 

MOV 

JSR 

BR 

NOP 

EMT 

JMP 



/ir200.PUTINX+1 
#LWS.RMER10 
PC. PUT 
3S 



21$ 



001412 



; WRITE DATA TO THE DRIVE 
4$: 

MOV 
MOV 
M0V8 
M0V8 
M0V8 
M0V8 
M0V8 
M0V8 
M0V8 



#WD.'G0,RMCS10 
<fPUTINX.R2 
#RMDA.(R2)* 
*ftMDC,(R2)* 
<fRM0F,(R2)* 
*RM8A,(R2)+ 
*RMWC.(R2)* 
<fRMCS1.(R2) + 
*200.(R2)* 



5$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC. PUT 
5$ 



21$ 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
SELECT DEVICE & VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER I SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF "SKI" OR 'PIP" IS SET 
VERIFY RECALIBRATION 
GO TO 2$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR » DEFINED BY TSTPRP SUBROUTINE 
GO TO 21$ IF ERROR 



SETUP PUT INDEX TABLE 

SET TERMINATOR BYTE 

SET RMEfil OUTPUT BUFFER = UNS 

GO WRITE RMERl VIA PUT SUBROUTINE 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR DEFINED BY PUT SUBROUTINE 

GO TO 21$ IF ERROR 



.•WRITE DATA COMMAND 

.•LOAD PUT REGISTER INDEX TABLE 



.•TERMINATE TABLE 

60 WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR ft DEFINED BY PUT SUBROUTINE 

GO TO 21$ IF ERROR 



;SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 



r7R»iOBO RM05/3/2 FCTNL TST 3 
n7 WRITE, READ W/ ABORT 



2520 
2321 
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SEO OKI 



2322 
2323 
232A 
2325 
2326 
2327 
2328 
2329 
2330 
2331 

2532 
2333 
2354 



2335 
2536 



2337 
2338 



2339 
2540 
2341 
2342 
2343 
2344 
2345 
2346 
2347 
2348 
2349 
2350 
2351 



030044 


004737 


C43060 




030050 


000404 






030052 


000240 






030054 


104000 






030056 


000137 


030520 




030062 








030062 


032737 
001412 
013737 


020000 


001350 


030070 






030072 


001350 


001140 


030100 


042737 


020000 


001140 


030106 


013737 


001350 


001142 


030114 


104347 






050116 









;G0 GET REGISTER STATUS 



C301 22 
030126 
030130 
0301 52 
030134 
0^)0140 
030140 
050144 
050146 
050150 
050152 
050154 
050160 
030160 
050164 
050166 
0301 70 
0301 72 
0501 74 
050200 



050200 
030206 



030210 



050210 
050214 



6S: 



7%: 



JSR 
BR 
NOP 
EMT 
JMP 

BIT 
BEQ 

nov 

BIC 
MOV 
EMT 



PC. GET 
6$ 



21$ 

*PIP.RMDSI 
7$ 

RMDSI.SGDDAT 
ffPIP.SGDDAT 
RMDSI.SBDDAT 
547 



030116 004737 



004737 
000404 
000240 
104000 
000137 

004757 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 



012757 
000410 



045672 
043060 

050520 
044056 

030520 
044710 

030520 

030210 001124 



.-WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 

;G0 GET REGISTER STATUS 



8$: 



9$: 



10$: 



JSR 
BR 
NOP 
EMT 
JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 



PC. GET 
8$ 



21$ 

PC.PRIERR 
9$ 



pc.a(sp)«- 

21$ 

PC.SECERR 
10$ 



PC,ia(SP)* 
21$ 



.-CHANGE LOOP ADDRESSES 

MOV *11$.$LPERR 
BR 12$ 



GO READ REGISTER(b> WITH GET SUBROUTINE 

GO TO 6$ IF NO ERROK 

RETURN HERE IF ERROR 

ERROR H DEFINED BY GET SUBROUTINE 

60 TO 21$ IF ERROR 

;U/AS COMMAND EXECUTED? 
;N0. GO WAIT 
.•PXPECTED STATUS 

.RECEIVED STATUS 



;G0 TO TIMOUT SUBROUTINE 



GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR tt DEFINED BY GET SUBROUTINE 

GO TO 21$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 21$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

60 TO 21$ IF ERROR 



.•LOOP *2 
11$: 



READ' 



004737 037516 
154130 



.•PREPARE DEVICE FOR READ OPERATION 



JSR 
.WORD 



PC.TSTPRP 
154150 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
SELECT DEVICE I VERin DEVICE AVAILABLE 
CLEAR CONTROLLER t SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 



rZRMOBO RM05/3/2 FCTNL TST 3 
WRITE. READ U/ ABORT 
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SEQ 



235? 
2353 
235« 
2555 



2356 
2357 
2358 
2359 
2360 
2361 
2362 
2363 
236A 
2365 
2366 
2367 
2368 
2369 
2370 



2371 
2372 
2373 

237« 
2375 
2376 



030216 
030220 
030222 
05C224 
030230 



030230 
030236 
0302A4 
030252 
030256 
030260 
030262 
03026A 
030270 



030270 
030270 
030276 
030302 
030306 
030312 
030316 
030322 
030326 
030332 

030336 
0303A2 
03034A 
0303A6 
030350 
03035A 



2377 
2378 
2379 
2380 
2581 
2382 
2583 
2384 
2385 
2586 



000A04 
000240 
104000 
000137 



112737 
112737 
012737 
004737 
000404 
000240 
104000 
0001 37 



012737 
012702 
112722 
112722 
112722 
112722 
112722 
112722 
112712 

004737 
000404 
000240 
104000 
0001 37 



030354 004737 



030360 
030364 
030366 
030370 
030372 
030376 
030376 
030404 
030406 
0304U 
030422 
030430 
030432 
030436 



004737 
000404 
000240 
104000 
000137 

032737 
001414 
013737 
042737 
013737 
104347 
000137 



001553 
001554 
001426 



001412 



030520 



000014 
000200 
040000 
043330 



030520 



000071 
001553 
000006 
000032 
000034 
000004 
000002 
000000 
000200 

043330 



030520 

042774 
043060 

030520 

020000 001350 



12$: 



BR 
NOP 
EMT 
JMP 



12$ 



21$ 



RECALIBRATE IF "SKI" OR "T'lP" IS SET 

VERIFY RECALISRATION 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROa 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 21$ IF ERROR 



.-SET UNSAFE ERROR 



13$: 

.-READ 
14$: 



M0V8 


*R,*^ER1 .PUTINX 


SETUP PUT INDEX TABLE 


M0V8 


*200.PUTINX+1 


SET TERMINATOR BYTE 


MOV 


*UNS.RMER10 


•SET RMER1 OUTPUT BUFFER = UNS 


JSR 


PC.PUT 


;60 WRITE RMER1 VIA PUT SUBROUTINE 


BR 


13$ 


;G0 TO 13$ IF NO ERROR 


NOP 




; RE TURN HERE IF ERROR 


EMT 




•ERROR DEFINED BY PUT SUBROUTINE 


JMP 


21$ 


;60 TO 21$ IF ERROR 



DATA FROM DEVICE 



15$: 



MOV 

MOV 

M0V8 

M0V8 

M0V8 

M0V8 

M0V8 

MOVB 

MOVB 

JSR 

BR 

NOP 

EMT 

JMP 



#RD1GO.RMCS10 

*PUTINX,R2 

*RMDA,(R2)+ 

*RM0F.(R2)+ 

*RMDC.(R2)+ 

*R^BA.(R2)+ 

*RMWC,(R2)+ 

*RMCS1,(R2)+ 

*200.(R2) 

PC.PUT 
15$ 



21$ 



;READ DATA COMMAfJD 

.-LOAD PUT REGISTER INDEX TABLE 



GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 15$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 21$ IF ERROR 



.•SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;60 TO GETSTS SlBROUTINE 



;SEE IF 



16$: 



001350 
020000 
001350 

030520 



001140 
001140 
001142 



17$: 



DEVICE 

JSR 

BR 

NOP 

EMT 

JMP 

BIT 
BEO 
MOV 
BIC 
MOV 
EMT 
JMP 



STARTED 
PC. GET 
16$ 



COMMAND 



21$ 

*PIP,RMDSI 
17$ 

RMDSI.$GDDAT 

*PIP,$GDDAT 

RMDSI ,$BDDAT 

347 

21$ 



GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 16$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY GET SUBROUTINE 

GO TO 21$ IF ERROR 

;WAS COMMAND EXECUTED?? 
;N0! : 

.•EXPECTED STATUS 
.•RECEIVED STATUS 



rZRMOBO RM05/3/2 FCTNL TST 3 
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SEO 0U3 



2587 

2388 
2389 
2390 



030456 004737 



2391 
2392 



2393 
2394 



2395 
2396 
2397 
2398 
2399 



2400 
2401 
2402 
2403 
2404 
2405 
2406 



030442 
030446 
030450 
050452 
050454 
050460 
050460 
r 30464 
030466 
030470 
030472 
030474 
050500 
050500 
050504 
C50506 
050510 
030512 
050514 
030520 

030520 



030520 
030520 
030522 
050524 
050550 
030554 
030540 
050546 



050546 
050552 



004757 
000404 
000240 
104000 
000137 

004757 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 



C43672 
043060 

030520 
044056 

030520 
044710 

030520 



;WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 



;G0 TO TJMOUT SUBROUTINE 



;G0 READ STATUS FOR READ OPERATION 



18$: 



19$: 



20$: 
21$: 



)SR 
BR 
NOP 
EMT 
JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 



PC. GET 
18$ 



21$ 

PC.PRIERR 
19$ 



pc.a(SP)* 

21$ 

PC.SECERR 
20$ 



PC.a(SP)+ 
21$ 



GO READ REGISTER(S) WITH GET SUBROUTINE 
GO TO 18$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY GET SUBROUTINE 
GO TO 21$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 19$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 21$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 20$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 21$ IF ERROR 



•♦*♦♦♦»*************♦♦♦♦♦♦♦****♦♦****•**♦♦♦«♦**********••****•** 
iTEST 20 WRITE, READ EACH CURRENT LEVEL 

**************************************************************** 



000004 
000240 

012706 001100 

013700 001276 

013701 001466 
012737 000020 001226 



TST20: 



1$: 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 



#STACK.SF 
$8ASE,R0 
TSTOUE.Rl 
<r20.$TESTN 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNI8US ADDRESS 

(R1) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 



■*»*«»*••*»**•***************«********♦*•************»****••*•*» 



.-LOOP /^^ 



FORMAT, WRITE, RE AD 



004737 037316 
054130 



.■PREPARE THE DEVICE FOR FORMAT OPERATION 



JSR 
.WORD 



.PC.TSTPRP 
054130 



050554 000404 

050556 000240 

030560 104000 

030562 000137 031556 



2407 0305O6 
2408 



2$: 



BR 
NOP 
EMT 
JMP 



2$ 



28$ 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF "SKI'" OR "PIP" IS SET 
VERIFY RECALIBKATION 
GO TO 2$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY TSTPRP SUBROUTINE 
GO TO 28$ IF ERROR 



:ZRMOB0 ftM05/?/2 FCTNL TST 3 ^WCRO V04.00 
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SEO 0U4 



2^09 
2^10 
2411 
2412 
2413 
2414 
2415 
2416 
2417 



2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
?431 
2452 
2433 



2434 
2435 
2436 

2437 
2438 

2439 
2440 
2441 



2442 
2443 
2444 
2445 



030566 
030574 
030602 
030610 
030616 
050624 



030672 
030676 
030702 
030706 
030712 
030716 
030722 
030726 
030732 
030732 
030736 
030740 
030742 
030744 
030750 



030750 
030754 



030760 
030764 
030766 
030770 
030772 
030776 



030776 
031002 
031004 
031006 
031010 
031012 



012737 
012737 
012737 
012737 
012737 
012737 



COOOCO 
000000 
106436 
177376 
010000 
000063 



001446 
001420 
001416 
001414 
001444 
001412 



;L0AD PARAMETERS AND GENERATE DATA BUFFER 



MOV #0.RMDC0 

3$: MOV #0.RMDAO 

MOV 4f8UF0NE.RMBA0 

MOV ir-258.,RMWCO 

MOV #fMTl6.RM0F0 

MOV #UH!G0,RMCS10 

; VERIFY THAT SECTOR IS NOT BAD 



030632 


004737 


040242 




JSR 


PC.8ADSCT 


030636 


000405 






BR 


4$ 


030640 


104401 


070426 




TYPE 


.SCTMS6 


030644 


104000 






EMT 


28$ 


030646 


000137 


031556 




JMP 


030652 








4S: 


*ZEROS,$TMP0 


030652 


012737 


072060 


001 1 74 


MOV 


030660 


012737 


000001 


001176 


MOV 


#1 ,$TMP1 


030666 


004737 


0421 74 




.SR 


PCCENBUF 



CYLINDER 0 
TRACK = 0. SECTOR = 0 
BUS ADDRESS 

2 ♦ 256. WORDS (2'S COMP) 
16 BIT FORMAT 

WRITE HEADER AND DATA COMMAND 



CALL BAD SECTOR MODULE 

GO TO 4$ IF NO ERROR 

TYPE BAD SECTOR MESSAGE 

ERROR » DEFINED BY BADSCT SUBROUTINE 

GO TO 28$ IF ERROR 

.•STARTING ADDRESS OF PATTERN 

; RANGE OF PATTERN 

;G0 GENERATE BUFFER FOR FORMAT 



012702 
112722 
112722 
112722 
112722 
112722 
112722 
112712 

004737 
000404 
000240 
104000 
000137 



001553 
000034 
000006 
000004 
000002 
000032 
000000 
000200 

043330 



031556 



004737 0427^4 
004737 043672 



004737 043060 
000404 
000240 
104000 

000137 031556 



004737 
000405 
000240 
104000 
004756 
000137 



056572 



031556 



.•LOAD PUT REGISTER INDEX TABLE FOR 



5$: 



6$: 



MOV 
M0V8 
M0V8 
M0V8 
M0V8 
M0V8 
M0V8 
M0V8 

JSR 

BR 

NOP 

EMT 

JMP 



*PUTINX,R2 
*RriDC,(R2) + 
*RMDA,lR2)* 
4rRnBA,(R2)^ 
*RI>1WC,(R2)* 
<rRM0F,(R2) + 
XfRMCSl.(R2)* 
»2Q0. (R2) 

PC .PUT 
6$ 



28$ 



FORMAT OPERATIION 

;R2 = BYTE ENTRY POSITION 



.•TERMINATE TA8LE 

GO WRITE REGISTER (S) WITH PUT SUBROUTINE 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 28$ IF ERROR 



: SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PCGETSTS ;60 TO GETSTS SUBROUTINE 



;WAIT FOR COMMAND TO C0W»LETE 
JSR PC.TIMOUT 



;G0 TO TIMOUT SUBROUTINE 



;G0 READ STATUS FOR FORMAT OPE RAT I 



7$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC. GET 
7$ 



28$ 



.-VERIFY NO ERRORS DURING FORMAT 

JSR PC.DTASTS 

BR 8$ 
NOP 
EMT 

JSR PC.a(SP)* 

JMP 28$ 



GO READ REGISTER(S) WITH GET SUBROUTINE 
GO TO 7$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY GET SUBROUTINE 
GO TO 28$ IF ERROR 



60 VERIFY RESULTS OF DATA TRANSFER 

GO TO 8$ ir NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 28$ IF ERROR 
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5E0 0U5 



2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 



031016 



031016 012737 031026 001124 
031024 000410 



031026 



031026 00473/ 037316 
031032 054130 



8$: 



.•MOVE LOOP ADDRESSES TO NEXT OPERATION 
MOV *9$.$LPERR 
BR lOS 



;SKJP TO WRJTE OPERATION 



;L00P #2 
9$: 



.-PREPARE DEVICE 
JSR 
.WORD 



WR HE, READ 



FOR WRITE OPERATION 



PC.TSTPRP 
054130 





051054 


000404 








BR 






051056 


000240 








NOP 






051040 


^ r\ 1 r\r\r\ 

104000 








EMT 






ATP i Ay "5 

051042 


AAAi 

00015/ 


AT 1 C CZ. 

051 D->o 






JMP 


28$ 


?460 


0510h6 








10S: 






2461 
















2462 


031046 








I 1 c - 

II > : 






2463 


























.•WRITE 


DATA TO 


THE DRIVE 


2465 


031046 


012737 


1 77400 


001414 




MOV 


*-256..RMWC0 


2466 


031054 


012737 


106442 


001416 




MOV 


*8UFONE+4.RMeA0 


2467 


031062 


012737 


000061 


001412 




MOV 


#W0.'G0,RMCS10 


2468 


031070 


012702 


001553 






MOV 


*PUTINX.R2 


2469 


031074 


112722 


000006 






M0V8 


*RMDA,(R2)* 


2470 


031100 


112722 


000034 






M0V8 


*RMDC.(R2)* 


2471 


031104 


112722 


000032 






MOVB 


*R«0F.(R2)* 
»RM8A,(R2)* 


2472 


031110 


112722 


000004 






M0V8 


2473 


031114 


112722 


000002 






M0V8 


#RMWC,(R2)* 


2474 


031120 


112722 


000000 






MOVB 


*RMCS1.(R2)* 
*200.{R2)* 


2475 


031124 


112722 


000200 






MOVB 


2476 
















2477 


031130 
031134 
031136 
031140 


004737 
000404 
000240 
104000 


043330 






JSR 
BR 
NOP 
EMT 


PC. PUT 
12$ 




031142 


000137 


031556 






JMP 


28$ 


2478 


031146 








12$: 






2479 
















2480 










.■SETUP 


GET INDEX TABLE TO READ 




031146 


004737 


042774 






JSR 


PC.GETSTS 


2481 
















2482 










.•WAIT 


FOR COMMAND TO COMPLETE 




031152 


004737 


043672 




JSR 


PC.TIMOUT 


2483 














2484 










;G0 READ STATUS 


FOR WRITE COMMAI 


2485 


03n56 


004737 


043060 






JSR 


PC. GET 



PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER £ SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFy PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR "PIP" IS SET 

VERIFY RECALIBRATION 

GO TO 10$ I r NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED B^ TSTPRP SUBROUTINE 

GO TO 28$ IF ERROR 



256. WORDS (2'S COMP) 

CHANGE ADDRESS 

WRITE DATA COMMAND 

LOAD PUT REGISTER INDEX TABlE 



.•TERMINATE TABLE 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BV PUT SUBROUTINE 

GO TO 28$ IF ERROR 



;G0 TO GETSTS SUBROUTINE 



.■GO TO TIMOUT SUBROUTINE 



;G0 READ REGISTER(S) WITH GET SUBROUTINE 
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S£Q 0U6 



2486 
2487 
2488 
2489 



2490 
2491 



2492 
2493 
2494 
2495 



2496 
2497 
2498 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 



031162 
031164 
031166 
031170 
031174 



031 1 74 
031200 
031202 
031204 
031206 
031210 
031214 
031214 
031220 
031222 
031224 
031226 
031230 
031234 

031234 
031234 
031240 
031242 
031244 
031246 
031250 
031254 



031254 
031262 



031264 



031264 
031270 



2509 
2510 
2511 
2512 



031272 
031274 
031276 
031300 
031304 

031304 



000404 
000240 
104000 
000137 



004737 
000405 
000240 
104000 
004736 
0001 37 



031556 



044056 



031556 



13$: 



BR 
NOP 
EMT 
JMP 



13S 
28$ 



.•CHECK FOR ERRORS DURING WRITE 



004737 056572 

000405 

000240 

104000 

004736 

000137 031556 



14$: 



004737 
000405 
000240 
104000 
004736 
000137 



012737 
000410 



044710 



031556 



15$; 
16$: 



17$: 



JSR 
BR 
NOP 

EMT 
JSR 
JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 



JSR 

BR 

NOP 

EMT 

JSR 

JMP 



PC.PRIERR 
14$ 



Pc.a(SP)* 

28$ 

PC.DTASTS 
15$ 



PC.a(SP)+ 
28$ 



PC.SECERR 
17$ 



pc.a(SP)+ 
28$ 



031264 001124 



CHANGE LOOP ADDRESSES 

MOV *18$,$LPERR 
BR 19$ 



GO TO 13$ IF NO EhROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BV GET SUBROUTINE 

GO TO 28$ IF ERROR 



OPERATION 
;G0 CHECK FOR PRIMARY ERRORS 
;G0 TO 14$ IF NO ERROR 
; RE TURN HERE IF ERROR 
; ERROR * DEFINED BY PRIERR SUBROUTINE 
;G0 BACK FOR MORE ERROR CHECKS 
;G0 TO 28$ IF ERROR 



GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 15$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 28$ IF ERROR 



GO CHECK FOR SECONDARY ERRORS 

GO TO 17$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 28$ IF ERROR 



.•SKIP TO NEXT OPERATION 



■**•»**♦***♦******♦♦***♦•»»»••*♦***♦**•**•****•♦»**••*****•***** 



.-LOOP *3 
18$: 



READ 



004737 
054130 



037316 



.-PREPARE DEVICE FOR READ OPERATION 



JSR 
.WORD 



PC.TSTPRP 
054130 



000404 
000240 
104000 
000137 



031556 



19$: 
20$: 



BR 
NOP 
EMT 
JMP 



19$ 



28$ 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF "SKI" OR "PIP" IS SET 
VERIFY RECALIBRATION 
GO TO 19$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY TSTPRP SUBROUTINE 
GO TO 28$ IF ERROR 
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T20 WRITE, READ EACH CURRENT LEVEL SEQ 0U7 



2513 










.-READ DATA FROM 


DEVICE 




25K 


031 304 


012737 


107446 


001416 


MOV 


#8UFTW0^4.RMBA0 


.•CHANGE ADDRESS 

;256. WORDS (2'S COMP) 


2515 


031312 


012737 


1 77400 


001414 


MOV 


*-256. .RMWCO 


2516 


031320 


012737 


000071 


001412 


MOV 


#RD!G0,RMCS10 


.•READ DATA COMMAND 


251 7 


031 326 


012702 


001553 




MOV 


#PUTJNX,R2 


.'LOAD PUT REGISTER INDEX TA8Lf 


2518 


031332 


112722 


000006 




Move 


#RMDA. (R2)-^ 


2519 


031336 


112722 


000032 




M0V8 


*RM0F.(R2)* 




2520 


031342 


112722 


000034 




M0V8 


*RMDC.(R2)* 




2521 


031 346 


112722 
112722 


000004 




M0V8 


*RM8A.(R2)* 




2522 


031352 


000002 




M0V8 


*R,'viWC,(R2)* 




2523 


031356 


112722 


000000 




M0V8 


#RMCS1,(R2)* 
*200.(R2) 




2524 


031362 


112712 


000200 




M0V8 




2525 
















2526 


031366 


004737 


043330 




JSR 


PC. PUT ;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 




031372 


000404 






BR 


21$ ;G0 TO 21$ IF NO ERROR 




031374 


000240 






NOP 


.•RETURN HERE IF ERROR 




031376 


104000 






EMT 




ERROR » DEFINED BY PUT SUBROUTINE 




031400 


0001 37 


031556 




JMP 


28$ ;G0 TO 28$ IF ERROR 


2527 


031404 








21$: 






2528 
















2529 










.•SETUP GET INDEX TABLE TO READ ALL REGISTERS 




031404 


004737 






JSR 


PC.GETSTS ;G0 TO GETSTS SUBROUTINE 


2530 
















2531 










.•WAIT FOR COMMAND TO COMPLETE 






031410 


004737 


0^1672 




JSR 


PC.TIMOUT ;G0 TO TIMOUT SUBROUTINE 


2532 
















2533 










;G0 READ STATUS 


FOR READ OPERATION 


25 5A 


031414 


004737 


043060 




JSR 


PC. GET 


•GO READ REGISTER(S) WITH GET SUBROUTINE 




031420 


000404 






8R 


22$ 


•GO TO 22$ IF NO ERROR 




031422 


000240 






NOP 




•RETURN HERE IF ERROR 




031424 


104000 






EMT 




•ERROR » DEFINED BY GET SUBROUTINE 




031426 


0001 37 


031556 




JMP 


28$ 


■GO TO 28$ IF ERROR 


2535 


031432 








22$: 






2536 
















2537 










;CHErtc FOR ERRORS DURING READ OPERATION 


2538 


031432 


004737 


044056 




JSR 


PC.PRIERR 


•GO CHECK FOR PRIMARY ERRORS 




031436 


000405 






BR 


23$ 


•GO TO 23$ IF NO ERROR 




031440 


000240 






NOP 




•RETURN HERE IF ERROR 




031442 


104000 






EMT 




■ERROR » DEFINED BY PRIERR SUBROUTINE 




031444 


004736 






JSR 


pc.a(SP)* 


•60 BACK FOR MORE ERROR CHECKS 




031446 


000137 


031556 




JMP 


28$ 


;G0 TO 28$ IF ERROR 


2539 


031452 








23$: 






25A0 


031452 


004737 


056572 




JSR 


PC.DTASTS 


■GO VERIFY RESULTS OF DATA TRANSFER 




031456 


000405 






BR 


24$ 


■GO TO 24$ IF NO ERROR 




031460 


000240 






NOP 




•RETURN HERE IF ERROR 




031462 


104000 






EMT 




•ERROR * DEFINED BY DTASTS SUBROUTINE 




031464 


004736 






JSR 


pc.a(SP)* 


•GO BACK FOR MORE ERROR CHECKS 




031466 


0001 37 


031556 




JMP 


28$ 


•GO TO 28$ IF ERROR 


2541 


031472 








24$: 






2542 
















2543 


031472 








25$: 






25AA 


031472 


004737 


044710 




JSR 


PC.SECERR 


•GO CHECK FOR SECONDARY ERRORS 




031476 


000405 






BR 


26$ 


•GO TO 26$ IF NO ERROR 




031500 


000240 






NOP 




•RETURN HERE IF ERROR 




031502 


104000 






EMT 




•ERROR » DEFINED BY SEC ERR SUBROUTINE 




03 i 504 


004736 






JSR 


PC.5D(SP) + 


•GO BACK FOR MORE ERROR CHECKS 




031506 


000137 


031556 




JMP 


28$ 


GO TO 28$ IF ERROR 
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SEO 0U8 



?545 
2546 



2547 
2548 
2549 
2550 
2551 
2552 
^553 
2554 



2556 
2557 
2558 
2559 
2560 



031512 
031512 
031516 
031520 
031522 
031524 
031526 
031530 
031534 
031 534 
031542 
031550 
031552 
031556 



031556 
C31556 
031560 
031562 
031 566 
031572 
031576 
031604 



031604 
031610 



004737 
106442 
107446 
000404 
000240 
104000 
000137 

062737 
023727 
101002 
000137 



C42432 



031556 

000200 
001446 

030574 



000004 
000240 
012706 
01 3700 
013701 
012737 



004737 
U54130 



001100 
001276 
001466 
000021 



037316 



26$: 



001446 
001400 



27$: 



28$: 



JSR 

.WORD 

.WORD 

BR 

NOP 

EMT 

JMP 

ADD 
CMP 
BHI 
JMP 



PC.CMPBUF 
BUf0NE*4 
BUF TWO+4 
27$ 



28$ 

*128..RMDC0 

RMDC0,*768. 

28$ 

3$ 



GO COMPARE WRITE. READ DATA BUFFERS 

.•STARTING ADDRESS OF WRITE BUFFER 
■STARTING ADDRESS OF READ BUFFFR 

GO TO 27$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY CMP8UF SUBROUTINE 

GO TO 28$ IF ERROR 



ADVANCE TO NEXT THRESHOLD 

DONE?? 

rES! ! 

DO NEXT CURRENT LEVEL 



■ -*•*******»***********************************************«***** 

•'•TEST 21 WRITE. WRITE CHECK W/ CURRENT LEVEL SWITCHING 

• -ft************************************************************** 

TST21 



001226 



1$: 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 



*STACIC.SP 
$8ASE.R0 
TST0UE.R1 
*21.$TESTN 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNI8US ADDRESS 

(R1) = DEVICE BEING TESTED 

.-SET TEST NUMBER IN APT MAIL BOX 



ft************************************************************** 



;LOOP *1 



FORMAT, WRITE. READ 



JSR PC.TSTPRP 
.WORD 054130 





031612 


000404 








031614 


000240 








031616 


104000 








031620 
031624 


000137 


032562 




2561 








2562 










2563 










2564 


031624 


012737 


000577 


001446 


2565 


031632 


013737 


001334 
000037 


001420 


2566 


031640 


112737 


001420 


2567 
2568 


031646 


012737 


106436 


001416 


031654 


012737 


176774 


001414 


2569 


031662 


012737 


010000 


001444 


2570 


031670 


012737 


000063 


001412 


2571 










257? 












031676 


004737 


040242 






031702 


000405 








031704 


104401 


070426 





2$: 



BR 
NOP 
EMT 
JMP 



2$ 



26$ 



PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER & SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR 'PIP" IS SET 

VERIFY RECALI8RATI0N 

GO TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY TS^PRP SU6R0(JTINE 

GO TO 26$ IF ERROR 



;LOAD PARAMETERS AND GENERATE DATA BUFFER 



.•VERIFY 



MOV 

MOV 

M0V8 

MOV 

MOV 

MOV 

MOV 

THAT 

JSR 

BR 

TYPE 



*383..RMDC0 
LSTRK.RMOAO 
*31..RMDA0 
*8UF0NE.RMBA0 
#-258.*2.RMWC0 
*FMT16.RM0F0 
*WH.'G0.RMCS10 



CYLINDER - 383. 
SET LAST TRACK AND 
LAST SECTOR 
BUS ADDRESS 
2 SECTORS (2'S COMP) 
16 BIT FORMAT 

WRITE HEADER AND DATA COMMAND 



SECTOR IS NOT 
PC.BADSCT 
3$ 

.SCTMSG 



BAD 



CALL BAD SECTOR MODULE 
GO TO 3$ IF NO ERROR 
^YPf BAD SECTOR MESSAGE 



z«"ioeo 

2* 



?575 
2574 
2S75 
2S76 
?577 
?578 
2579 
2580 
2581 
2532 
2583 
2584 
2585 
2586 
2587 
2588 



2589 
2590 
2591 

2592 
2593 

2594 
2595 
2596 



2597 
2598 
2599 
2600 



2601 
2602 
2603 
2604 
2605 
2606 
2607 
2608 
2609 
2610 
2611 
2612 



hMOS/3/2 fCINL TST 3 MACRO 
WRITE. .JRITE Crt£CK W/ CURRENT 



V04.00 4-APR-81 
LEVEL SWITCHING 



031710 
051712 
031716 
C31716 
031724 
031732 



031 736 
031742 
031 746 
031752 
031756 
031762 
031 766 
031772 
031776 
031776 
032002 
C32004 
032006 
032010 
032014 



032014 
032020 



032024 
032030 
032032 
032034 
032036 
032042 



032042 
032046 
C32050 
032052 
032054 
032056 
032062 



032062 
032070 



032072 



104000 
000137 

012737 
012737 
004737 



012702 
112722 
112722 
112722 
112722 
112722 
112722 
112712 

004737 
000404 
000240 
104000 
0001 37 



03256? 

072016 
000001 
042174 



001553 
000034 
000006 
000004 
000002 
000032 
000000 
000200 

043330 



032562 



001 1 7.4 
001176 



3$: 



EMT 
JMP 

MOV 
MOV 
JSR 



01:15:59 



26$ 



G 

PAGE 



12 

13-78 



.•ERROR 
;G0 TO 



# DEHNED BY BAD«;CT 
26S IF ERROR 



SueROuTINfc 



#ONES.$TMP0 

#1.$TMP1 

PC.GENBUF 



.-STARTING ADDRESS OF PATTERN 

; RANGE OF PATTERN 

;G0 GENERATE BUFFER FOR FORMAT 



.-LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 



4$: 



5$: 



MOV 
M0V8 

Move 

M0V8 
M0V8 
M0V8 
M0V8 
M0V8 

JSR 

BR 

NOP 

EMT 

JMP 



*PUTINX,R2 
#R'*IDC,<R2)* 
*RMDA.(R2)+ 
*R«BA,(R2)+ 
#RMWC, (R2)* 
#ftM0F.(R2)* 
*RMCS1.(R2)+ 
#200. (R2) 

PL. PUT 
5$ 



26$ 



;R2 = BYTE tNTRY POSITION 



.•TERMINATE TABLE 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR n DEFINED BY PUT SUBROUTINE 

GO TO 26$ IF ERROR 



004737 042774 



004737 043672 



004737 043060 
000404 
000240 
104000 

000137 032562 



004737 056572 

000405 

000240 

104000 

004736 

000137 032562 



012737 032072 001124 
000410 



; SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 



.-WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 



;G0 TO TIMOUT SUBROUTINE 



;G0 READ STATUS FOR FORMAT OPERATION 

JSR PC, GET ;G0 READ REGISTER (S) WITH GET SUBROUTINE 

BR 6$ ;G0 TO 6$ IF NO ERROR 

NOP .-RETURN HERE IF ERROR 

EMT .-ERROR * DEFINED BY GET SUBROUTINF 

JMP 26$ ;G0 TO 26$ IF ERROR 

6$: 



.-VERIFY NO ERRORS DURING FORMAT 



7$: 



JSR 
BR 
NOP 
EMT 
JSR 
JMP 



PC.DTASTS 
7$ 



pc.a(SP)* 

26$ 



GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 26$ IF ERROR 



.-MOVE LOOP ADDRESSES TO NEXT OPERATION 
MOV m.$LPERR 
BR 9$ 



;SKIP TO WRITE OPERATION 



;LOOP #2 
8$: 



WRITE. RE AD 



CZR'iOBC RM05/5/if rCTM TST 3 MACRO 
T21 WRITE, WRITE CHECK W/ CURRENT 



V04.00 4-APR-81 
LEVEL SUITCHJMG 



01 :15:59 



H 

PAGE 



12 

13-79 



2613 

?614 032072 
032076 



2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2625 
2624 
2625 
2626 
2627 
2628 
2629 
2630 
2651 
2632 
2633 
2634 
2635 



2636 
2637 
2638 

2639 
2640 

2641 
2642 
2643 



032100 
032102 
032104 
032106 
032112 

032112 



032112 
032120 
032126 
032154 
032142 
0321 SO 
032154 
032160 
032164 
032170 
0321 74 
032200 
032204 
032210 

032214 
032220 
032222 
032224 
032226 
032232 



2644 
2645 
2646 
2647 



032242 
032246 
032250 
032252 
032254 
032260 



032260 
032264 



004737 
054130 



000404 
000240 
104000 
000137 



012737 
012737 
012737 
012737 
012737 
004737 
012702 
112722 
112722 
112722 
112722 
112722 
112722 
112722 

004737 
000404 
000240 
104000 
0001 37 



032232 004737 



032236 004737 



004737 
000404 
000240 
104000 
000137 



004737 
000405 



C37316 



032562 



1 77000 
1 06436 
000061 
072016 
000001 
042174 
001553 
000006 
000034 
000032 
000004 
000002 
000000 
000200 

043330 



032562 

042774 
043672 
043060 

032562 

044056 



.•PREPARE DEVICE FOR WRITE OPERATION 



JSR 
.WORD 



PCTSTPRP 
054130 



001414 
001416 
001412 
001 1 74 
001176 



9$: 

10$: 

.•WRITE 



BR 
NOP 
EMT 
JMP 



DATA 
MOV 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
M0V8 
M0V8 
M0V8 
M0V3 
M0V8 
M0V8 
M0V8 

JSR 

BR 

NOP 

EMT 

JMP 



TO 



9$ 



26$ 



THE DRIVE 
*-256.»2,RMWC0 

*8uf0ne,rmba0 
#wd;go,rmcsio 

*0NES.$TMP0 
*1,$TMP1 

PC.GENBUF 

*PUTINX.R2 

*RMDA,(R2)+ 

*RMDC.(R2)+ 

*RM0F,(R2)+ 

*RM8A.(R2)+ 

*RMWC,(R2)* 

*RMCS1.(R2)+ 

*200,(R2)* 

PC.PUT 
11$ 



26$ 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
CLEAR CONTROLLER ft SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF "SKI" OR 'T>IP" IS SET 
VERIFY RECALI8RATI0N 
GO TO 9$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY TSTPRP SUBROUTINE 
GO TO 26$ IF ERROR 



2 SECTORS (2'S COMP) 

CHANGE ADDRESS 

WRITE DATA COMMAND 

STARTING ADDRESS OF PATTERN 

RANGE OF PATTERN 

60 GENERATE BUFFER FOR FORMAT 

LOAD PUT REGISTER INDEX TABLE 



.•TERMINATE TABLE 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 26$ IF ERROR 



.•SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 

.•WAIT FOR COMMAND TO COMPLETE 

JSR PC.TIMOUT .•GO TO TIMOUT SUBROUTINE 

;G0 READ STATUS FOR WRITE COMMAND 



12$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC. GET 
12$ 



26$ 



GO READ REGISTER(S) WITH GET SUBROUTINE 
GO TO 12$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY GET SUBROUTINE 
GO TO 26$ IF ERROR 



.•CHECK FOR ERRORS DURING WRITE OPERATION 

JSR PC.PRIERR ;G0 CHECK FOR PRIMARY ERRORS 

BR 13$ ;G0 TO 13$ IF NO ERROR 



I 12 

CZR'iOeO RM05/3/2 FCTtW. TST 3 MACRO VOA.OO 4-APR-81 0^:^5:b9 PAGE 13-80 
W' WRITE, WRITE CHECK W/ CURRENT LEVEL SWITCHING 



S£Q 0151 



032266 
032270 
032272 
03227A 

26^8 032300 

26^9 032300 
03230^ 
032306 
032310 
032312 
032314 

26'yO 032320 

2651 

2652 032320 

2653 032320 
03232A 
032326 
032330 
032332 
032334 

2654 032340 
2655 

2656 

2657 032340 

2658 032346 
2659 

2660 
2661 
2662 

2663 032350 

2664 

2665 

2666 032350 
032354 



000240 
104000 
004736 
000:37 

004737 
000405 
000240 
104000 
004736 
000137 



004757 
000405 
000240 
104000 
004736 
000137 



032562 
056572 

032562 
044710 

032562 



13$: 



14S: 
15$: 



16$: 



NOP 
EMT 
JSR 
JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 



JSR 

BR 

NOP 

EMT 

JSR 

JMP 



pc.a(sp)» 

26$ 

PC.DTASTS 
14$ 



PC.a(SP)* 
26$ 



PC.SECERR 
16$ 



pc,a(SP)* 

26$ 



012737 032350 001124 

000410 



.•CHANGE LOOP ADDRESSES 

MOV *17$,$LPERR 
BR 18$ 



RETURN HERE IF ERROR 

ERROR M DEFINED BV PRKRR SlfiROUTlNC 

GO BACK FOR MORE ERROR CHECKS 

GO TO 26$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 14$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 26$ IF ERROR 



GO CHECK FOR SECONDARY ERRORS 

GO TO 16$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 26$ IF ERROR 



;SKIP TO NEXT OPERATION 



.•LOOP *3 
17$: 



READ 



004737 037316 
054130 



.•PREPARE DEVICE FOR READ OPERATION 



JSR 
.WORD 



PC.TSTPRP 
054130 





032356 


000404 




BR 


18$ 




C32360 


000240 




NOP 






032362 


104000 




EMT 






032364 


000137 


052562 


JMP 


26$ 


2667 


032370 




18$: 






2668 












2669 


032370 




19$: 






2670 












2671 






.•READ 


DATA FROM 


DEVICE 


2672 


032370 


012737 


000051 001412 


MOV 


*WCD!G0,RMCS10 


2673 


032376 


012702 


001553 


MOV 


*PUTINX,R2 


2674 


032402 


112722 


000006 


M0V8 


*RMDA,(R2)+ 


2675 


032406 


U2722 


000032 


M0V8 


*RM0F.(R2)* 


2676 


032412 




000054 


M0V8 


*RMDC,(R2)+ 


2677 


032416 


\\2722 


000004 


M0V8 


*RMBA.(R2)+ 


26^8 


032422 


\\2722 


000002 


M0V8 


*RMWC.(R2)* 


2679 


032426 


112722 


000000 


M0V8 


*RMCS1 . (R2)* 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
CLEAR CONTROLLER ft SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF "SKI" OR "TPIP" IS SET 
VERIFY RECALIBRATION 
GO TO 18$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY TSTPRP SUBROUTINE 
GO TO 26$ IF ERROR 



.-READ DATA COMMAND 

.•LOAD PUT REGISTER INDEX TABLE 



J 12 

-"ZfiMOeO RM05/3/2 FCTNL TST 3 MACRO VOA.OO A-APR-81 01::5:59 PAGE 13-8' 

T21 WRITE. WRITE CHECK W/ CURRENT LEVEL SWITCHING S£0 r^'>. 



?iS80 


032432 


11 27'' 2 

lib' C 


000200 

Wwk W 




M0V8 


#200. 'R2) 






















032436 


004737 


043330 




JSR 


PC. PUT 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 




032442 


000404 






BR 


20$ 


GO TO 20$ IF NO ERROR 




032444 


000240 






NOP 




RETURN HERE IF ERROR 




032446 


1 04000 






EMT 




ERROR * DEFINED BY PUT SUBROUTINE 




032450 


0001 37 


032562 




JMP 


26$ '. 


GO TO 26$ IF ERROR 


?683 


032454 

V -Jim " 






20$: 








2684 
















2685 








; SE TUP 


GET INDEX TmE TO READ ALL REGISTERS 




032454 


004737 


042774 


JSR 


PC.GETSTS 


CO TO GETSTS SUBROUHNE 


2686 
















2687 








.•WAIT 1 


■OR COMMAND TO COMPLETE 






032460 


004737 


043672 


JSR 


PC.TIMOUT ;G0 TO TIMOUT SUBROUTINE 


2688 
















2689 








;G0 READ STATUS 


FOR READ OPERATION 


2690 


032464 


004737 


043060 




JSR 


PC, GET 


GO READ REGISTERCS) WITH GET SUBROUTINE 




032470 


000404 






BR 


21$ 


GO TO 21$ IF NO ERROR 




032472 


000240 






NOP 




RETURN HERE IF ERROR 






1 04000 






EMT 




ERROR * DEFINED BY GET SUBROUTINE 




032476 


OOt ' 37 


032562 




JMP 


26$ ; 


■GO TO 26$ IF ERROR 


2691 


032502 






21$: 








2692 
















2693 








.•CHECK 


FOR ERRORS DURING READ OPERATION 


2694 


032502 


004737 


044056 




JSR 


PC.PRIERR 


•GO CHECK FOR PRIMARY ERRORS 




032506 


000405 






BR 


22$ 


•GO TO 22$ IF NO ERROR 




032510 


000240 






NOP 




•RETURN HERE IF ERROR 




032512 


104000 






EMT 




;ERROR * DEFINED BY PRIERR SUBROUTINE 




032514 


004736 






JSR 


pc,a(SP)+ 


;G0 BACK FOR MORE ERROR CHECKS 




032516 


000137 


032562 




JMP 


26$ 


;G0 TO 26$ IF ERROR 


2695 


032522 






22$: 








2696 


032522 


004737 


056572 




JSR 


PC.DTASTS 


;G0 VERIFY RESULTS OF DATA TRANSFER 




032526 


000405 






BR 


23$ 


;G0 TO 23$ IF NO ERROR 




032530 


000240 






NOP 




.•RETURN HERE IF ERROR 




032532 


1 04000 






EMT 




; ERROR * DEFINED BY DTASTS SUBROUTINE 




032534 


004736 






jSR 


PC.a(SP)* 


;G0 BACK FOR MORE ERROR CHECKS 




032536 


0001 37 


032562 




JMP 


26$ 


;G0 TO 26$ IF ERROR 


2697 


032542 






23$: 








2698 
















2699 


032542 






24$: 








2700 


032542 


004737 


044710 




JSR 


PC.SECERR 


;G0 CHECK FOR SECONDARY ERRORS 




C32546 


000405 






BR 


25$ 


;G0 TO 25$ IF NO ERROR 




032550 


000240 






NOP 




; RE TURN HERE IF ERROR 




032552 


1 04000 






EMT 




;ERROR * DEFINED BY SECERR SUBROUTINE 




032554 


004736 






JSR 


pc.a(SP)* 


;G0 BACK FOR MORE ERROR CHECKS 




032556 


0001 37 


032562 




JMP 


26$ 


;G0 TO 26$ IF ERROR 


2701 


032562 






25$: 








2702 
















2703 


032562 






26$: 








2704 
















2705 








***************************************************************** 








.•♦TEST 


22 


WRITE. READ EARLY PEAK SHIFT 










••»*•»*»»»*•**»*»••»»»♦»»••••*•»••••»••••*»••••••*•******••»»»*»» 




032562 






TST22: 










032562 


000004 






SCOPE 




.•SCOPE CALL 




032564 


000240 






NOP 




;START OF TEST 




032566 


012706 


001100 




MOV 


*STAC<,SP 


.•INITIALIZE STACK POINTER 



CZRMOeO 
T22 



RM05/3/2 FCTNL TST 3 MAC«0 
WRITE. RFA-^ tAf- • " ^ SHIFT 



VOA.OO A-APR-81 01:15:59 



K 

PAGE 



12 

13-82 



S£0 



2706 
2707 
2708 
2709 
2710 
2711 
2712 
2713 



03257? - 5, uO 
0325 01 3701 
032602 012737 



001276 
00U66 

000022 001226 



MOV 
MOV 



SBASE.RO 
TSTQUE.R1 
#22. STESTN 



RO = UN J BUS ADDRESS 

(R1) = DEVICE BEING TESTED 

.-SET TEST NUMBER IN APT MAIL BOX 



032610 



032610 00A737 037316 
0326K ISA 130 



;L00P #1 
1$: 



FORMAT. WRITE. READ 



.-PREPARE THE DEVICE FOR FORMAT OPERATION 



JSR 
.WORD 



PC^TSTPRP 
154130 





032616 


000404 








032620 


000240 








032622 


104000 








032624 


000137 


033570 




27K 


032630 








2715 










2716 










2717 


032630 


012737 


000000 


001446 


2718 


032636 


012737 


000000 


001420 


2719 


032644 


012737 


106436 


001416 


2720 


032652 


012737 


177376 


001414 


2721 


032660 


012737 


010000 


001444 


2722 


032666 


012737 


000063 


001412 


2723 










2724 











2$: 



BR 
NOP 
EMT 
JMP 



2$ 



25$ 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
SELECT DEVICE I VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF "SKI" OR "PIP" IS SET 
VERIFY RECALIBRATION 
GO TO 2$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR » DEFINED BY TSTPRP SUBROUTINE 
60 TO 25$ IF ERROR 



;LOAD PARAMETERS AND GENERATE DATA BUFFER 



MOV tfO.RMDCO 

MOV *0,RMDAO 

MOV #8UF0NE,RM8A0 

MOV #-258..RMWC0 

MOV #FMT16.RM0F0 

MOV <fWH!G0.RMCS10 

.•VERIFY THAT SECTOR IS NOT BAD 



2725 
2726 
2727 
2728 
2729 
2730 
2731 
2732 
2733 
2734 
2735 
2736 
2737 
2738 
2739 
2740 



032674 


004737 


040242 




JSR 


PC.8ADSCT 


032700 


000405 






BR 


3$ 


032702 


104401 


070426 




TYPE 


.SCTMSG 


032706 


104000 






EMT 


25$ 


032710 


000137 


033570 




JMP 


032714 






3$: 






032714 


012737 


072272 


001 1 7i 


MOV 


#EARLY,$TMPO 


032722 


012737 


000001 


001 1 76 


MOV 


/)f1.$TMP1 


0327^0 


004737 


0421 74 




JSR 


PC.GENBUF 



CYLINDER = 0 
TRACK - 0, SECTOR - 0 
BUS ADDRESS 

2 + 256. WORDS (2'S COMP) 
16 BIT FORMAT 

WRITE HEADER AND DATA COMMAND 



CALL BAD SECTOR MODULE 

GO TO 3$ IF NO ERROR 

TYPE BAD SECTOR MESSAGE 

ERROR # DEFINED BY BADSCT SUBROUTINE 

GO TO 25$ IF ERROR 



STARTING ADDRESS OF PATTERN 

RANGE OF PATTERN 

GO GENERATE BUFFER FOR FORMAT 



032734 
032740 
032744 
032750 
032754 
032760 
032764 
032770 
032774 
032774 
033000 
033002 



012702 
112722 
V2722 
y\2722 
^\2722 
m722 
U2722 
112712 

004737 
000404 
000240 



001553 
000034 
000006 
000004 
000002 
000032 
000000 
000200 

043330 



;L0AD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 



4$: 



MOV *PUTINX,R2 

M0V8 #RMDC.(R2)+ 

M0V8 /irRMDA.(R2) + 

M0V8 /lfRM8A.(R2) + 

M0V8 #RMWC,(R2)+ 

M0V8 #RM0F.(R2)+ 

M0V8 #RMCS1,(R2)* 

M0V8 #200. (R2) 

JSR PC. PUT 

BR 5$ 
NOP 



.•R2 = BYTE ENTRY POSITION 



.•TERMINATE TABLE 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
GO TO 5$ IF NO ERROR 
RETURN HERE IF ERROR 



':ZRMQ80 W105/3/2 fCTNL TST 3 MACRO VW.OO 
WRITE, READ EARLV PEAK SHIFT 



L 12 

4-APR-81 01:15:59 PAGE 13-83 



SEO 0154 



033004 
033006 

27A1 033012 

^742 

2743 

035012 

^744 
2745 

033016 

2/46 
2747 

27h8 033022 
033026 
033030 
033032 
033034 

2749 033040 

2750 

2751 

2752 C33040 
033044 
033046 
033050 
033052 
033054 

2753 033060 
2754 

2755 

2756 033060 

2757 033066 
2758 

2759 
2760 
2761 

2762 033070 

2763 

2764 

2765 033070 
033074 



104000 
000137 



004737 
004737 



004737 
000404 
000240 
104000 
0001 37 



004737 
000405 
000240 
104000 
004736 
000137 



012737 
000410 



004757 
154130 



C35570 

042774 
043672 
043060 

035570 

056572 

055570 

055070 001124 



5$: 



CUT 



25S 



.•ERROR » DEFJNED BY PUT SUBROUTINE 
;G0 TO 25$ IF ERROR 



.•SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.6ETSTS ;G0 TO GETSTS SUBROUTINE 



.-WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 



;G0 ro TIMOUT SUBROUTINE 



;G0 READ STATUS FOR FORMAT OPERATION 



6S: 



JSR 

BR 

NOP 

EMT 

JMP 



PC. GET 
6S 



25$ 



; VERIFY NO ERRORS DURING FORMAT 



7$: 



JSR 

BR 

NOP 

EMT 

JSR 

JMP 



PC.DTASTS 
7$ 



PC.a(SP)+ 
25$ 



GO READ REGISTER(S) WITH GET SUBROUI 
GO TO 6$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY GET SUBROUTINE 
GO TO 25$ IF ERROR 



GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 25$ IF ERROR 



.•MOVE LOOP ADDRESSES TO NEXT OPERATION 
MOV m.$LPERR 
BR 9$ 



*************************************************************** 



037516 



;LOOP »2 
8$: 

.•PREPARE DEVICE 
JSR 
.WORD 



WRITE. READ 



FOR WRITE OPERATION 



PC.TSTPRP 
154130 



055076 000404 

053100 000240 

033102 104000 

035104 000137 033570 
2766 033110 
2767 
2768 

2769 055110 

2770 055110 012737 177400 

2771 055116 012757 106442 

2772 055124 012757 000061 



9$: 



BR 
NOP 
EMT 
JMP 



9$ 



25$ 



; WRITE DATA TO THE DRIVE 
10$: 

001414 MOV J>-256.,RMWCO 

001416 MOV *8UF0NE+4.RMBA0 

001412 MOV ffWD.GO.RMCSIO 



PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE & VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER & SELEC^ DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR "PIP" IS SET 

VERIFY RECALIBRATION 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY TSTPRP SUBROUTINE 

60 TO 25$ IF ERROR 



.•CHANGE WORD COUNT 

.•CHANGE ADDRESS 
.-WRITE DATA COMMAND 



cZRMOeO RM05/3/2 FCTNL TST 3 MACRO V04.00 
WRITE. READ EARLY PEAK SHIFT 



n 12 

4-APR-81 01:15:59 PAGE 13-84 



SEO 0155 



2/73 033132 

2774 033136 

2775 033K2 

2776 033K6 

2777 033152 

2778 033156 

2779 033162 

2780 033166 
2781 

2782 033172 
033176 
033200 
033202 
03320A 

2783 033210 
2784 
2785 



012702 
112722 
112722 
112722 
112722 
112722 
112722 
112722 

004737 
000404 
000240 
104000 
000137 



033210 004737 



2786 
2787 

033214 

2788 
2789 

2790 033220 
033224 
033226 
033230 
033232 

2791 03323(3 
2792 

2793 

2794 033236 
033242 
033244 
033246 
033250 
033252 

2795 033256 

2796 033256 
033262 
033264 
C33266 
033270 
033272 

2797 033276 

2798 033276 
033302 
033304 
033306 
033310 
033312 

2799 033316 
2800 

2801 

2802 033316 

2803 033324 
2804 



004737 



004737 
000404 
000240 
104000 
000137 



004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 



012737 
000410 



001553 
000006 
000034 
000032 
000004 
000002 
000000 
000200 

043330 



033570 

042774 
043672 
043060 

033570 

044056 

033570 
056572 

033570 
044710 

033570 

033326 001124 



11$: 



MOV 

Move 

M0V8 
M0V8 

Move 

M0V8 
M0V8 
M0V8 

JSR 

BR 

NOP 

EMT 

JMP 



#PUTINX.R2 

#RMDA,(R2)* 

#RMDC.(R2)* 

#RM0F,(R2)+ 

#RMBA.(R2)* 

#RMWC.(R2)* 

*RMCS1 . (R2>* 

*200.(R2)* 

PC. PUT 
11$ 



25$ 



.-LOAD PUT REGISTER INDEX TABLE 



.•TERMINATE TABLE 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR n DEFINED BY PUT SUBROUTINE 

GO TO 25$ IF ERROR 



.-SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 



;WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 



;G0 TO TIMOUT SUBROUTINE 



;G0 READ STATUS FOR WRITE COMMAND 



12$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC. GET 
12$ 



25$ 



.•CHECK FOR ERRORS DURING WRITE 
JSR PC.PRIERR 



13$- 



14$: 



15$: 



BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

jMP 



13$ 



PC.a(SP)* 

25$ 

PC.DTASTS 
14$ 



PC.a(SP)* . 
25$ 

PC.SECERR 
15$ 



PC.a(SP)+ 
25$ 



GO READ REGISTER(S) WITH GET SUBROUTINE 
GO TO 12$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY GET SUBROUTINE 
GO TO 25$ IF ERROR 



OPERAT I ON 

GO CHECK FOR PRIMARY ERRORS 
GO TO 13$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY PRIERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 25$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 
GO TO 14$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR n DEFINED BY DTASTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 25$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 
GO TO 15$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY SECERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 25$ IF ERROR 



.•CHANGE LOOP ADDRESSES 

MOV *16$.$LPERR 
BR 17$ 



CZRMOOO HM05/3/2 FCTNL TST 3 MACRO VOA.OO 
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N 12 

A-APR-81 01:15:59 PAGE 13-85 



SEO 0156 



2805 
2806 
2807 

2808 033326 

2809 

2810 

2811 033326 
033332 



2812 
2813 
28K 
2815 
2816 
2817 
2818 
2819 
2820 
2821 
2822 
2823 
282<. 
2825 
2826 
2827 



2828 
2829 
2830 

2831 
285? 

2833 
283A 
2835 



2856 
2857 
2858 
2839 



03333A 
033336 
0355A0 
0553A2 
G333A6 



033A50 
033A5A 
053A56 
053A60 
055A62 
053466 



00A757 
154130 



037316 



.•LOOP #3 
16$: 

.-PREPARE DEVICE 
JSR 
.WORD 



READ 



FOR READ OPERATION 



PC.TSTPRP 
154150 



000404 
000240 
104000 
000157 



055570 



17$: 



BR 
NOP 
EMT 
JMP 



17$ 



25$ 



;READ DATA FROM DEVICE 



055546 








18$: 




055546 


012757 


000071 


001412 


MOV 


#RDIG0,RMCS10 


055554 


012757 


107446 


001416 


MOV 


#8UFTW0*4,RMeA0 


053562 


012702 


001555 




MOV 


#PUTINX.R2 


053566 


112722 


000006 




M0V8 


#RMDA,(R2)+ 


055572 


112722 


000052 




M0V8 


*RM0F,(R2)+ 


055576 


112722 


000054 




M0V8 


#RMDC,(R2)+ 


055402 


112722 


000004 




M0V8 


#RMBA,(R2)*- 


055406 


112722 


000002 




M0V8 


*RMWC.(R2)+ 


055412 


112722 


000000 




M0V8 


/(TRMCSI ,(R2) + 


055416 


112712 


000200 




M0V8 


xr200, (R2) 


055422 


004757 


045550 




JSR 


PC, PUT 


055426 


000404 






BR 


19$ 


055450 


000240 






NOP 




055452 


104000 






EMT 


25$ 


055454 


000137 


055570 




JMP 


055440 








19$: 












.•SETUP GET INDEX TA8LE TO READ 


055440 


004757 


042774 




JSR 


PCGETSTS 










.'WAIT FOR COMMAND TO COMPLETE 


055444 


004737 


045672 




JSR 


PCTIMOUT 



PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE £ VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER I SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR "PIP" IS SET 

VERIFY RECALI8RATI0N 

GO TO 17$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY TSTPRP SUBROUTINE 

GO TO 25$ IF ERROR 



.-READ DATA COMMAND 
.•CHANGE BUFFER 

.-LOAD PUT REGISTER INDEX TABLE 



;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 

;G0 TO 19$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.•ERROR » DEFINED BY PUT SUBROUTINE 

;G0 TO 25$ IF ERROR 



;G0 TO GETSTS SUBROUTINE 



;G0 TO TIMOUT SUBROUTINE 



004757 
000404 
000240 
104000 
000137 



043060 



;G0 READ STATUS FOR READ OPERATION 



053570 
053466 004737 044056 



20$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC, GET 
20$ 



25$ 



GO READ REGISTER(S) WITH GET SUBROUTINE 
GO TO 20$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR » DEFINED BY GET SUBROUTINE 
GO TO 25$ IF ERROR 



.•CHECK FOR ERRORS DURING READ OPERATION 

JSR PCPRIERR ;G0 CHECK FOR PRIMARY ERRORS 



czRwneo ftwos/?/? fctnl tst 3 >iacro vOa.oo 4-apr-8i oi 

T2? WRITE. READ EARLV PEAK SHIFT 

033472 
033474 
033476 
033500 
033502 
^840 033506 

2841 033506 
033512 
033514 
033516 
033520 
033522 

2842 033526 

2843 033526 
033532 
033534 
033536 
033540 
033342 

2344 033546 

2845 033546 
033552 
033554 
033556 
033560 
033562 
033564 

2846 033570 
2847 

2848 033570 
2849 
2850 



B 13 
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000405 






BR 


21$ 


000240 






NOP 




104000 






EMT 




004736 






JSR 


PC,a(SP)» 


000137 


033570 


21$: 


JMP 


25$ 


004737 


056572 




JSR 


PC.DTASTS 


000405 






BR 


22$ 


000240 






NOP 




104000 






EMT 




004736 






JSR 


pc,a(SP)» 


000137 


033570 


22$: 


JMP 


25$ 


004737 


044710 




JSR 


PC.SECERR 


000405 






BR 


23$ 


000240 






NOP 




104000 






EMT 




004736 






JSR 


PC.a(SP)* 


000137 


033570 


23$: 


JMP 


25$ 


004737 


042432 




JSR 


PCCMPBUf 


106442 






.WORD 


BUF0NE*4 


107446 






.WORD 


BUF TW0«^4 


000404 






BR 


24$ 


000240 






NOP 




104000 






EMT 




000137 


033570 




JMP 


25$ 



60 10 21$ IF NO ERROR 

RETURN HERE 1^ ERROR 

ERROR # DEFINED BY PRIERP SUBROUTINE 

60 BACK FOR MORE ERROR CHECK* 

60 TO 25$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 22$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY DTASTS S*8R0UTINE 

GO BACK FOR MORE ERROh CHECKS 

GO TO 25$ IF ERROR 

60 CHECK FOR SECONDARY ERROR > 

60 TO 23$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY SECERR SL8R0UTINE 

60 BACK FOR MORE ERROR CHECKS 

60 TO 25$ IF ERROR 

;60 COMPARE WRITE, READ DATA BUFFERS 

;STARTIN6 ADDRESS OF 'iJRITE BUFFER 
;STARTIN6 ADDRESS OF READ BUFFER 
60 TO 24$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY CMPBUF SUBROUTINE 
60 TO 25$ IF ERROR 



033570 

033570 000004 SCOPE 
033572 000240 NOP 
033574 012706 001100 MOV #STACK,SP 

033600 013700 001276 MOV $8ASE,R0 

033604 013701 001466 MOV TSTQUE.R1 

033610 012737 000023 001226 MOV #23,$TESTN 

2851 
2852 

2853 .-LOOP #1 

2854 

2855 033616 1$: 
28S6 
2857 

2858 033616 004737 037316 JSR PC,TSTPRP 

033622 154150 .WORD 154130 



24$: 
25$: 

•TEST 23 WRITE. READ MIXED PEAK SHIFT 

TST23: 



SCOPE CALL 
START OF TEST 
INITIALIZE STACK POINTER 
RO - UNIBUS ADDRESS 
<R1) - DEVICE BEING TESTfD 
;SET TEST NUTBER IN APT MAIL BOX 

A************************************************************** 



FORMAT, WRITE. READ 



.•PREPARE THE DEVICE FOR FORMAT OPERATION 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOVVS: 
SELECT DEVICE & VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER 8 SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF "SKI" OR 'T>IP" IS SET 
VERIFY RECALI8RATI0N 



CZRMOeO RM05/?i/2 FCTNL TST 3 MACRO »^04.C3 
T23 WRITE, READ MIXED PEAK SHJFT 
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C 33624 


000404 






BR 


2$ 


:60 TO 2S IF NO ERROR 




033626 


000240 






NOP 




.-RETURN HERE IF ERROR * 




033630 


104000 






EMT 




;ERR0R 9 DEFINED BY TSTPRP SUBROUTINE 




033632 


000137 


034576 




JMP 


25S 


;Cn TO 25S IF ERROR 


2859 


033636 








2$: 






2860 
















2861 










.-LOAD PARAMETERS AND GENERATE 


DATA BUFFER 


2862 


033636 


012737 


000000 


001446 


MOV 


#0.RMDCO 


.-CYLINDER = 0 


2863 


033644 


012737 


000000 


001420 


MOV 


#O.RMDAO 


.•TRACK = 0. SETTOR = 0 


286A 


033652 


012737 


106436 


001416 


MOV 


*8JF0NE,RMBA0 


;8US ADDRtSS 


2865 


033660 


012737 


1 77376 


001414 


MOV 


*-258..RMWCO 


;2 + 256. WORDS (2'S COMP) 


28o6 


033666 


012737 


010000 


001444 


MOV 


*FMT16.RM0F0 


;16 BIT FORMAT 


2867 


033674 


012737 


000063 


001412 


MOV 


/irwH'GO.Rncsio 


.-WRITE HEADER AND DATA COMMAND 


2868 
















2869 










.-VERIFY THAT 


SECTOR IS NOT BAD 





033702 
033706 
033710 
033714 
033716 

2870 033722 

2871 033722 

2872 033730 

2873 033736 
2874 

2875 

2876 033742 

2877 033746 

2878 033752 

2879 033756 

2880 033762 

2881 033766 

2882 033772 

2883 033776 

2884 034002 

2885 034002 
034006 
034010 
034012 
034014 

2886 034020 
2887 

2888 

034020 

2889 

2890 

034024 

2891 
2892 

2893 034030 
034034 
034036 
034040 
034042 

2894 034046 
2895 

2896 



004737 
000405 
104401 
104000 
000137 

012737 
012737 
004^37 



012702 
112722 
112722 
112722 
112722 
112722 
112722 
112712 

004737 
000404 
000240 
104000 
0001 37 



004737 



004737 



004737 
000404 
000240 
104000 
000137 



040242 

070426 

034576 

071756 
000200 
0421 74 



001553 
000034 
000006 
000004 
000002 
000032 
000000 
000200 

043330 



034576 

042774 
043672 
043060 

034576 



001 1 74 
001 1 76 



3$: 



JSR PC.8ADSCT 

BR 3$ 

TYPE .SCTMSG 
EMT 

JMF 25$ 

MOV *MJXED.$TMP0 

MOV *128..$TMP1 

JSR PC.GENBUF 



CALL BAD SECTOR MODULE 
GO TO 3$ IF NO ERROR 
TYPE BAD SECTOR MESSAGE 
ERROR * DEFINED BY BADSCT SUBROUTINE 
GO TO 25$ IF ERROR 



STARTING ADDRESS OF PATTERN 

RANGE OF PATTERN 

GO GENERATE BUFFER FOR FORMAT 



:LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 



4$: 



5$: 



MOV 
M0V8 
M0V8 
M0V8 

Move 

MOVB 
M0V8 
MOVB 

JSR 

BR 

NOP 

EMT 

JMP 



*PUTINX,R2 
*RMDC,(R2)+ 
*RMDA.(R2)* 
*RMBA.(R2)* 
#RMWC.(R2)-^ 
*RM0F.(R2)-^ 
*RMCS1.(R2)* 
*200,{R2> 

PC, PUT 
5$ 



25$ 



;R2 = BYTE ENTRY POSITION 



.-TERMINATE TABLE 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 25$ IF ERROR 



.-SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.6ETSTS ;G0 TO GETSTS SUBROUTINE 



.-WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 



;GD TO TIMOUT SUBROUTINE 



;G0 READ STATUS FOR FORMAT OPERATION 



6$: 



JSR 
BR 
NOP 
EMT 
JMP 



PC, GET 
6$ 



25$ 



GO READ REGISTER(S) WITH GET SUBROUTINE 
GO TO 6$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY GET SUBROUTINE 
GO TO 25$ Ir ERROR 



VERIFY NO ERRORS DURING FORMAT 



czp»ioeo 

?897 



2898 
2899 
?90C 
2901 
2902 
2903 
290A 
2905 
2906 
2907 
2908 
2909 
2910 



RM05/3/2 FCTNL TST 3 MACRO 
WRITE. READ MIXED PEAK SHIFT 

03A046 004737 056572 

034052 000405 

034054 000240 

034056 104000 

034060 004736 

034062 00C137 034576 
034066 



034066 012737 034076 001124 
034074 000410 



V04.00 4-APR-81 01:15:59 
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13-88 



SEO 0159 



7$: 



JSR 

BR 

NOP 

EMT 

JSR 

JMP 



PC.DTASTS 
7$ 



PC.a(SP)* 
25t 



GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 25S IF ERROR 



.-MOVE LOOP 3DRESSES TO NEXT OPERATION 
MOV #8S.$LPERR 
BR 9$ 



.■SKIP TO WRITE OPERATION 



034076 



034076 004737 037316 
034102 154130 



.•LOOP #2 
8$: 



URITE.READ 



.•PREPARE DEVICE FOR WRITE OPERATION 



JSR 
.WORD 



PC.TSTPRP 
154130 





034104 


000404 








BR 


9$ 




034106 


000240 








NOP 






034110 


104000 








EMT 






034112 


000137 


034576 






JMP 


25$ 


291 1 


034116 








9$: 






2912 
















2913 










.•WRITE 


DATA TO 


THE DRIVE 


2914 


034116 








10$: 






2915 


034116 


012737 


1 77400 


001414 




MOV 


*-256..RMWC0 


2916 


034124 


012737 


106442 


001416 




MOV 


«'8UF0NE+4.RMeA0 


2917 


034132 


012757 


000061 


001412 




MOV 


#wd;go.rmcsio 


2918 


034140 


012702 


001553 






MOV 


*PUTINX,R2 


2919 


034144 


112722 


000006 






M0V8 


*RMDA.(R2)+ 


2920 


034150 


112722 


000034 






MOVE 


4rRMDC,(R2) + 


2921 


034154 


112722 


000032 






M0V8 


<fRM0F,(R2) + 


2922 


0. 160 


112722 


000004 






MOVfl 


*RMBA,(R2)+ 


2923 


034164 


112722 


000002 






M0V8 


/!rRMWC,(R2) + 


2924 


034170 


112722 


000000 






M0V8 


#RMCS1 . (R2)+ 
*200.(R2)+ 


2925 


034174 


112722 


000200 






M0V8 


2926 
















2927 


034200 
034204 
034206 
034210 


004737 
000404 
000240 
104000 


043330 






JSR 
BR 
NOP 
EMT 


PC, PUT 
11$ 




034212 


000137 


034576 






JMP 


25$ 


2928 


034216 








11$: 






2929 
















2930 










.•SETUP 


GET INDEX TABLE TO READ 


034216 


004737 


042774 






JSR 


PCGETSTS 


2931 

















PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
SELECT DEVICE I VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER I SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF "SKI" OR 'T>IP" IS SET 
VERIFY RECALI8RATI0N 
GO TO 9$**IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY TSTPRP SUBROUTINE 
GO TO 25$ IF ERROR 



.•CHANGE WORD COUNT 

CHANGE ADDRESS 
;WRITE DATA COMMAND 
;LOAD PUT REGISTER INDEX TABLE 



.-TERMINATE TABLE 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 25$ IF ERROR 



;G0 TO GETSTS SUBROUTINE 



C2RMOB0 
T23 

?932 

2933 
293A 
2955 



2936 
2937 
2938 
2939 



29A0 
2<'41 



29A2 
2943 



:9AA 
29A5 
29A6 
2947 
29A8 
29A9 
2950 
2951 
2952 
2953 
2954 
2955 
2956 



RM05/3/2 FCTNL TST 3 MACRO V04.00 
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034222 004737 C43672 



;yAIT FOR COMMAND TO COMPLETE 
JSR PC.TiMOUT 



.■GO TO TIMOUT SUBROUTINE 



034226 
034232 
034234 
034236 
034240 
034244 



034244 
034250 
034252 
034254 
034256 
034260 
034264 
C34264 
034270 
034272 
034274 
034276 
034300 
034304 
034304 
034310 
034312 
034314 
034316 
034320 
034324 



034324 
034332 



034334 



004737 
000404 
000240 
104000 
000137 



004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
0( 736 
0001 37 

004737 
000405 
000240 
104000 
004736 
0001 37 



012737 
000410 



043060 
034576 
044056 

034576 
056572 

034576 
044710 

034576 

054334 001124 



;G0 READ STATUS FOR WRITE COMMAND 



12$: 



JSR 
BR 
NOP 
EMT 
JMP 



PC, GET 
12$ 



25$ 



.•CHECK FOR ERRORS DURING WRITE 
JSR PC.PRIERR 



13$: 



14$: 



15$: 



BR 

NOP 
EMT 
-SR 
JMP 

JSR 
BR 
NOP 
EMT 

JSR 
JW 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 



13$ 



PC.aCSP)* 
25$ 

PC.DTASTS 
14$ 



PC,a(SP)* 
25$ 

PCSECERR 
15$ 



PC,a(SP)* 
25$ 



; CHANGE LOOP ADDRESSES 

MOV *16$.$LPERR 
BR 17$ 



GO READ REGISTER(S) WITH GET SUBROUTINE 
GO TO 12$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY GET SUBROUTINE 
GO TO 25$ IF ERROR 



OPEf?ATION 

GO CHECK FOR PRIMARY ERRORS 
GO TO 13$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY PRIERP SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 25$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 
GO TO 14$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY DTASTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 25$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 
GO TO 15$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY SECERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 25$ IF ERROR 



;SKIP TO NEXT OPERATION 



•■»•»»«»*»*»•«»»**»****•**•••»•****••***••••«••••••***•*•*•*••*•' 

!-LOOP »5 READ 



034334 004737 037316 
034340 154130 



16$: 

.•PREPARE DEVICE 
JSR 
.WORD 



FOR READ OPERATION 



PCTSTPRP 
154130 



034342 000404 

034344 000240 

034346 104000 

034350 000137 034576 



BR 
NOP 
EMT 
JMP 



7$ 



?5$ 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
SELECT DEVICE & VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER I SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF '•SKI" OR "PIP" IS SE^ 
VERIFY RECALIBRATION 
GO TO 17$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY TSTPRP SUBROUTINE 
GO TO 25$ IF ERROR 
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T23 WRITE. fiE^D fllxED PEAK SHIFT 
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17$: 




















DEVICE 












■READ 


DATA FROM 












18$: 




AreUFTU0^4.RM8A0 


C TV 1 


V J** J J** 


012737 


107446 


001416 




MOV 






0127^7 


000071 


001412 




MOV 


#rd;go.rmcsio 


?9fi3 


034370 


012702 


001553 






MOV 


#PUTINX.R2 




034374 


112722 


000006 

W W s/w 






M0V8 


#RMDA, (R2)* 


2965 


034400 


112722 


000032 






M0V8 


#R«0F.(R2)* 


2966 


034404 


112722 


000034 






M0V8 


#RMDC.(R2)* 


2967 


034410 


112722 


000004 






M0V8 


#RM8A,(R2)* 




034414 


1 12722 


000002 






M0V8 


*RMWC, (R2)* 


2969 


034420 


112722 


000000 






MGV8 


*RMCS1 . (R2)* 
#200. (R2) 


2970 


034424 


1 12712 


000200 






M0V8 


2971 
















2972 


034430 
034434 
034436 
034440 


004737 
000404 
000240 
104000 


043350 






JSR 
BR 
NOP 
EMT 


PC. PUT ; 
19$ 

; 




C34442 


0001 37 


034576 






JMP 


25$ ; 


2973 


034446 








19$: 






2974 
















2975 










.•SETUP GET INDEX TABLE TO READ AL 


034446 


004737 


042774 






JSR 


PC.GETSTS 


2976 
















2977 










;WAIT 


FOR COMMAND TO COMPLETE 


034452 


004737 


045672 






JSR 


PC.TIMOUT 



.•CHANGE BUFFER 

;READ DATA COMMAND 

.-LOAD PUT REGISTER INDEX TABLE 



2978 
2979 
2980 



2981 
2982 
.-'983 
2984 



2985 
2986 



2987 
2988 



034456 
034462 
034464 
034466 
034470 
034474 



034474 
034500 
034502 
034504 
C34506 
034510 
034514 
034514 
034520 
034522 
034524 
034526 
034 5 30 
034 5 34 
034534 
034540 
034542 
034544 
034546 
034550 



004757 
000404 
000240 

104000 
000137 



004757 
000405 
000240 
104000 
004736 
000137 

004757 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
004736 
000137 



043060 
034576 
044056 

034576 
056572 

034576 
044710 

034576 



GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
GO TO 19$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY PUT SUBROUTINE 
GO TO 25$ IF ERROR 



;G0 TO TIMOUT SUBROUTINE 



;G0 READ STATUS FOR READ OPERATION 



20$: 



JSR 
BR 
NOP 
EMT 
JMP 



PC. GET 
20$ 



25$ 



.•CHECK FOR ERRORS DURING READ 



21$: 



22$: 



JSR 
BR 
NOP 
EMT 
JSR 
JMP 

JSR 
BR 
NOP 
EMT 
JSR 
JMP 

JSR 

BR 

NOP 

EMT 

.SR 

JMP 



PC.PRIERR 
21$ 



PC,a(SP)* 
25$ 

PC.DTASTS 
22$ 



pc.a(SP)* 

25$ 

PC.SECERR 
23$ 



PC.a(SP)* 

25$ 



GO READ REGISTER(S) WITH GET SLBROUTINE 
GO TO 20$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY GET SLBROUTINE 
GO TO 25$ IF ERROR 



OPERATION 

GO CHECK FOR PRIMARY ERRORS 
GO TO 21$ IF NO ERROR 
; RE TURN HERE IF ERROR 
ERROR * DEFINED BY PRIERR SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 25$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 
60 TO 22$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR M DEFINED BY DTASTS SU8R0UTI\E 
GO BACK FOR MORE ERROR CHECKS 
GO TO 25$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 
GO TO 23$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY SECERR SU9R0JM\t 
GO BACK FOR MORE ERROR CHECKS 
GO TO 25$ IF ERRO.? 



23 



FCTfOL TST 3 
WPTE. READ MIXED PEAK 



MACRO 
SHIFT 



V04.00 4-APR-81 0^:15:^9 



G 

PARE 



13 

13-9' 



?989 03A554 

2^70 03^554 
03A560 
054562 
03A564 
034566 
034570 
034572 

2991 034576 

2992 

2993 034576 

2994 

2995 



034576 
034576 
034600 
034602 
C34606 
034612 
034616 

2996 
2997 
2998 
2999 
3000 
3001 
3002 
3003 



004737 C42432 

106442 

107446 

000404 

000240 

104000 

000137 034576 



23S: 



24$: 
25$: 



JSR 

.WORD 

.WORD 

BR 

NOP 

EMT 

JMP 



PC . CMPBUF 
BUF ONE *4 
BUF TW0*4 
24$ 



25$ 



;G0 COMPARE WRITE. READ DATA BUFFERS 

.-STARTING ADDRESS OF WRITE BUFFER 
.-STARTING ADDRESS OF READ BUFFfR 

GO TO 24$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY CMPBUF SUBROUTINE 

60 TO 25$ IF ERROR 



000004 
000240 

012706 001100 

013700 001276 

013701 001466 
012737 000024 



•TEST 24 
tST24: 



WRITE. READ EACH TRACK 



001226 



SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 



*STACK.SP 
$BASE,RO 
TSTQUE.R1 
*24.$TESTN 



SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO - UNIBUS ADDRESS 

(R1) = DEVICE BEING TES'ED 

;SET TEST NUMBER IN APT MAIL BOX 



034624 



.-LOOP *1 
1$: 



FORMAT. WRITE. READ 



034624 
034630 



004737 037316 
154130 



.-PREPARE THE DEVICE FOR FORMAT OPERATION 



;SR 
.WORD 



PC.TSTPRP 
154130 





054632 


000404 








034654 


000240 








034636 


104000 








C34640 


000137 


055624 




3004 


034644 








3005 










5006 










5007 


034644 


012737 


000000 


001446 


3008 


034652 


012737 


000000 


001420 


3009 


034660 








3010 


034660 


012737 


106436 


001416 


3011 


034666 


012737 


1 77376 


001414 


5012 


0346 74 


012737 


010000 


00(444 


5013 


034702 


012737 


000063 


001412 


5014 










5015 












034710 


004757 


040242 






034714 


000405 








034716 


104401 


070426 





2$: 



BR 
NOP 
EMT 
JMP 



2$ 



26$ 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
SELECT DEVICE & VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF "SKI" OR 'VIP" IS SET 
VERIFY RECALI8RATI0N 
GO TO 2$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY TSTPRP SUBROUTINE 
GO TO 26$ IF ERROR 



;LOAD PARAMETERS AND GENERATE DATA BUFFER 



5$: 



: VERIFY 



MOV 
MOV 

MOV 
MOV 
MOV 
MOV 

THAT 
JSR 
BR 
TYPE 



#O.RMDCO 
«0,RMDAO 

«8UF0NE.RMBA0 
#-258..R«WCO 
#FMT16,RM0F0 
#WH!60,RnCS10 



SECTOR IS NOT 
PC.BADSCT 
4$ 

.SCTMSG 



BAD 



.•CYLINDER = 0 
.-TRACK = 0. SECTOR 0 

;9US ADDRESS 

.-2 ♦ 256. WORDS (2'S COMP) 
.-16 BIT FORMAT 

.-WRITE HEADER AND DATA COMMAND 



CALL BAD SECTOR MODULE 
GO TO 4$ IF NO ERROR 
TYPE BAD SECTOR MESSAGE 



R*tnbO KTML TST 3 

WRITE. READ EACH TRACK 



H 13 

4-APR-81 C!:15:!>9 PAGE ^3-9? 



3016 

3018 

3019 

3020 

3021 

3022 

3023 

3024 

3025 

3026 

3027 

3028 

3029 

3030 

3051 

3032 

3033 



3034 
5035 
3036 

3037 
3038 

3039 
3040 
3041 



5042 
3043 
5044 
5045 



3046 
3047 
3048 
3049 
3050 
3051 
3052 
305 5 
5054 
3055 



054722 
054724 
034730 
034 750 
034736 
034744 



054750 
034754 
034760 
034764 
034770 
034774 
035000 
035004 
035010 



C35010 
035014 
035016 
035020 
035022 
035026 



104000 
000137 

012757 
01 275/' 
004737 



312702 
112722 
112722 
112722 
112722 
112722 
112722 
112712 



004737 
000404 
000240 
104000 
000137 



035026 004737 



035032 004737 



035036 
035042 
035044 
035046 
035050 
035054 



035054 
035060 
035062 
035064 
035066 
035070 
035074 



035074 
035102 



05?^ '04 



004737 
000404 
000240 
104000 
000157 



004737 
000405 
000240 
104000 
004736 
000137 



012737 
000410 



bfQ 0163 



001 ' 71, 

001 : 76 



C 35624 
071756 
04r'74 



oc";';3 

0CC'"54 
000' G6 
000004 
000002 
000032 
000000 
000200 



043330 

035624 

042774 
045672 
043060 

035624 

056572 

035624 

035104 001124 



4S: 



EWT 

KOV 
MOV 

JSR 



26S 

•MIXED. $TW»0 

#128..$TMP1 

PC.GENBUF 



;£RROR # DEF.'NED BV BADSCT SUBROUTINE 
;G0 TO ?6$ ]F ERROR 

.•STARTING ADDRESS OF PAT»ERN 

.•RANGE OF PATTERN 

;G0 GENERATE BUFFER ^QR FORMAT 



;lOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATIION 



5$: 



MOV #PUTINX.R2 

M0V8 #R'^C.<R2)* 

MOVQ #RMDA.<R2)* 

M0V8 #R^BA.(R2)♦ 

M0V8 #RMUC.(R2)* 

M0V8 #RM0F.(R2)» 

M0V8 *RMCS1.(R2)* 

M0V8 *200.(R2) 



;R2 = BYTE ENTRY POSITION 



.•FORMAT -HE DRIVE 

JSR PC. PUT 
BR 6S 
NOP 
EMT 

JMP 26$ 

6$: 



.•TERMINATE TABLE 



GO WRITE REGISTERIS) WITH PUT SUBROUTINE 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 26$ IF ERROR 



.•SETJP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS .•GO TO GETSTS SUBROUTINE 



;WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 



;G0 TO TIMOUT SLBROUTINE 



;G0 READ STATUS FOR FORMAT OPERATION 



7$: 



JSR 

BR 

NOP 

EMT 

JMP 



PC. GET 
7$ 



26$ 



.•VERIFY NO ERRORS DURING FORMAT 



8$: 



JSR 

BR 

NOP 

EMT 

JSR 

JMP 



PC.DTASTS 
8$ 



pc,a(SP)+ 

26$ 



GO READ REGISTER(S) WITH GET SUBROUTINE 
GO TO 7$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY GET SUBROUTINE 
GO TO 26$ IF ERROR 



GO VERIFY RESULTS OF DATA TRANbFER 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUMNE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 26$ IF ERROR 



.■MOVE LOOP ADDRESSES TO NEXT OPERATION 
MOV #9$.$LPERR 
BR 10$ 



.•SKIP TO WRITE OPERATION 



;L00P *2 
9$: 



WRITE. READ 



"Z«»*1GeO fill«l05/5/2 FCTNL TST 3 
r2<> WRITE, READ EACH TRACK 
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^56 
3057 

3058 0351 OA 
035110 



3059 
3060 
3061 
3062 
3063 
3064 
3065 
5066 
5067 
3068 
3069 
3070 
3071 
3072 
3073 
3074 
3075 



5076 
3077 

3078 

3079 
3080 

3081 
3082 
3083 



5084 
3085 
3086 
3087 



035112 
0351U 
035116 
035120 
035124 



035124 
035124 
035132 
035140 
035146 
035152 
035156 
035162 
035166 
035172 
035176 
035202 

035206 
035212 
035214 
035216 
035220 
035224 



035234 
035240 
035242 
035244 
035246 
035252 



035252 
035256 
035260 
C35262 



004737 
154130 



000404 
000240 
104000 
000137 



012737 
012737 
012737 
012702 
112722 
112722 
112722 
112722 
112722 
1^/22 
112722 

004737 
000404 
000240 
104000 
000137 



035224 004737 



035230 004737 



004 737 
000404 
000240 
104000 
000137 



004737 
000405 
000240 
104000 



0375^6 



035624 



1 06442 
1 77400 
000061 
001555 
000006 
000034 
000032 
000004 
000002 
000000 
000200 

043330 



055624 

042774 
043672 
043060 

035624 

044056 



SEO 016/- 



.•PREPARE DEVICE 
.WORD 



FOR WRITE 
PC.TSTpRP 
^ 541 50 



OPERATION 

PREPARE 



'0$: 



BR 
NOP 
EMT 
JW> 



10$ 



26$ 



.-WRITE DATA TO THE DRIVE 



00U16 
00'414 
001412 



11$: 



12$: 



MOV *8UF0NE+4,RI«13A0 

MOV *-256..RMWCO 

MOV #WD.G0.RMCS10 

MOV *PUTINX,R2 

M0V8 #R«DA.(R2)* 

M0V8 #RMDC.(R2)* 

M0V8 *RM0F.(R2)* 

M0V8 #R«BA.(R2)» 

M0V8 *RMWC.(R2)* 

M0V8 #RMCS1.(R2)* 

M0V8 *200.(R2)* 

JSR PC, PUT 

BR 12$ 
NOP 
EMT 

JMP 26$ 



DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
SELECT DEVICE ft VERIFY DEVICE AVAlLA8..f 
CLEAR CONTROLLER ft SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF "SKI" OR "PIP" IS SET 
VERIFY RECALI8RATI0N 
60 TO 10$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY TSTPRP SLGROUTINE 
GO TO 26$ IF ERROR 



.CHANGE BUS ADDRESS 
.•CHANGE WORD COUNT 

.-WRITE DATA COMMAND 

.-LOAD PUT REGISTER INDEX TA8LE 



.•TERMINATE TA8LE 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 26$ IF ERROR 



.-SETUP GE: INDEX TA8LE TO READ ALL REGISTERS 

JSR PCGETSTS ;G0 TO GETSTS SUBROUTINE 

.-WAIT FOR COMMAND TO COMPLETE 

JSR PCTIMOUT ;G0 TO TIMOUT SUBROUTINE 

;G0 READ STATUS FOR WRITE COMMAND 



13$: 



JSR 
BR 
NOP 
EMT 
JMP 



PC, GET 
13$ 



26$ 



; CHECK FOR ERRORS DURING WRITE 
JSR PCPRIERR 
BR 14$ 
NOP 
EMT 



GO READ REGISTER(S) WITH GET SUBROUTINE 
GO TO 13$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY GET SUBROUTINE 
60 TO 26$ IF ERROR 



OPERATION 

GO CHECK FOR PRIMARY ERRORS 
GO TO 14$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR » DEFINED BY PRIERR SUBROUTINE 



CZRMOeO RMOS/3/2 FCTNL TST 5 
"21* WRITE, READ EACH TRACK 



MACRO V04.00 4-APR-81 01:15:59 



J 

PAGE 



13 

13-9A 



035P64 
035266 

3088 035272 

3089 035272 
035276 
035300 
035302 
03530A 
035306 

3090 035312 
5091 035312 

035316 
035320 
035322 
035324 
035326 

3092 03533? 

3093 

309A 

3095 C35332 

3096 035340 
3097 

3098 
3099 
3100 

3101 035342 

3102 

3103 

3104 035342 
035346 



3105 
3106 
3107 
3108 
3109 
3110 
3111 
3112 
3113 
3114 
3115 
3116 
3117 
3118 
3119 
V20 



035350 
035352 
035354 
035356 
035362 



035362 
035362 
035370 
035376 
035402 
035406 
035412 
035416 
035422 
035426 
035432 



004736 

000137 C35624 

004737 056572 

000405 

000240 

104000 

004736 

000137 035624 

004737 044710 

000405 

000240 

104000 

004736 

0001 37 035624 



012737 035342 
000410 



004737 037316 
154130 



000404 
000240 
104000 
0001 37 



012737 
012737 
012702 
112722 
112722 
112722 
112722 
112722 
112722 
112712 



035624 



107446 
000071 
001553 
000006 
000032 
000034 
000004 
000002 
000000 
000200 



SEO 0165 



14S: 



15t: 



16$: 



jSR 
JliP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 



PC.a(SP)* 
26$ 

PC.OTASTS 
15$ 



PC.a(SP)* 
26$ 

PCSECERR 
16$ 



PC.a(SP)* 
26$ 



001124 



.•CHANGE LOOP ADDRESSES 

MOV *17$.$LPERR 
BR 18$ 



;G0 BACK FOR MORE ERROR CHECKS 
;G0 TO 26$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

60 TO 15$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 26$ IF ERROR 



60 CHECK FOR SECONDARY ERRORS 

60 TO 16$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR tt DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 26$ IF ERROR 



.-SKIP TO NEXT OPERATION 



.•LOOP #3 
17$: 



READ 



.-PREPARE DEVICE FOR READ OPERATION 



JSR 
.WORD 



PCTSTPRP 
154130 



001416 
001412 



18$: 

.-READ 
19$: 



BR 
NOP 
EMT 
JMP 



18$ 



26$ 



035436 004737 043330 



DATA FROM DEVICE 

MOV *8UFTW0U,RM8A0 

MOV #RD.G0.RMCS10 

MOV *PUTINX.«2 

Move #RMDA.(R2)+ 

M0V8 *RM0F,(R2)+ 

M0V8 *RMDC,(R2)* 

M0V8 #RM8A,(R2)+ 

M0V8 *RMWC,(R2)* 

M0V8 #RMCS1.(R2)+ 

M0V8 *200.(R?; 

JSR PC, PUT 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
SELECT DEVICE I VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER I SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF "SKI"' OR "PIP" IS SET 
VERIFY RECALI8RATI0N 
GO TO 18$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY TSTPRP SUBROUTINE 
GO TO 26$ IF ERROR 



.•CHANGE BUS ADDRESS 

;READ DATA COMMAND 

.•LOAD PUT RE6ISTER INDEX TABLE 



;G0 WRITE REGIS^ERCS^ WITH PUT SUBROUTINE 



■ZRMOfaO RM05/3/2 FCTNL TST 3 
'2^ WRITE, READ EACH TRACK 



3121 
3122 
3123 

3124 
3125 

3126 
3127 
3128 



i-IACRO V04.00 
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SEO 0166 



3129 
3130 
3131 
3132 



3133 
31 3A 



3135 
3136 



3137 
3138 



3139 
3K0 
3U1 
3U2 
3K3 
3UA 
3K5 
3U6 



035442 


000404 






BP 


*^0$ 


GO TO 20$ IF NO ERROR 


035444 


000240 






NOP 




RETURN HERE IF ERROR 










EMT 




ERROR # DEFINED BY PUT SUBROUTINE 


035450 


0001 37 


035624 




JMP 


26$ '. 


GO TO 26$ IF ERROR 


035454 






20$: 














.•SETUP 


GET INDEX TABLE TO READ ALL REGISTERS 




0047^7 


04? 774 




JSR 


PC.GETSTS ;G0 TO GETSTS SUBROUTINE 








.-WAIT 


FOR COMMAND *0 COMPLETE 






004737 


04367? 




JSR 


PC.TIMOUT ;G0 TO TIMOUT SUBROUTINE 








;G0 READ STATUS 


FOR READ OPERATION 




004737 


043060 

W** JWWW 




JSR 


PC, GET 


GO READ REGISTER(S) WITH GET SUBROUTINE 


035470 


000404 






BR 


21$ 


GO TO 21$ IF NO ERROR 


03547? 


000240 
wwwc~w 






NOP 




RETURN HERE IF ERROR 


035474 


1 04000 

1 W"f WWW 






EMT 




ERROR # DEFINED BY GET SUBROUTINE 


035476 


0001 37 

WWW 1 J f 


0356?4 

W WC ~ 




JMP 


26$ '. 


GO TO 26$ IF ERROR 


035502 






21$: 














.'CHECK 


FOR ERRORS DURING READ OPERATION 


035502 


004737 


C44056 




JSR 


PC.PRIERR 


■GO CHECK FOR PRIMARY ERRORS 


035506 


000405 






BR 


22$ 


"GO TO 22$ IF NO ERROR 


035510 


000240 

W WW t ~ W 






NOP 




•RETURN HERE IF ERROR 


035512 


104000 

1 w~ w w w 






EMT 




•ERROR ft DEFINED BY PRIERR SUBROUTINE 


035514 


004736 

W W~ 1 J\J 






JSR 


PC,a(SP)* 


•GO BACK FOR MORE ERROR CHECKS 


035516 


0001 37 

WWW 1 ~J I 


035624 




JMP 


26$ 


•GO TO 26$ IF ERROR 


035522 






22$: 








035522 


004737 


056572 




JSR 


or fNTACTC 


uu VcRJrT RtSULii) Or DATA TRANbrfcK 


035526 


00040S 

www~w 






BR 


23$ 


•GO TO 23$ IF NO ERROR 


035530 


000240 

WW wc ~ w 






NOP 




•RETURN HERE IF ERROR 


035532 


104000 

1 w~ www 






EMT 




■ERROR * DEFINED BY DTASTS SUBROUTINE 


035534 


004736 

WW~ r *^W 






JSR 


pc,a(SP)* 


•GO BACK FOR MORE ERROR CHECKS 


035536 


000137 

WWW 1 1 


035624 




JMP 


26$ 


:G0 TO 26$ IF ERROR 


035542 






23$: 








035542 


004737 


044710 




JSR 


PC.SECERR 


•GO CHECK FOR SECONDARY ERRORS 


035546 


000405 

WWW" w 






BR 


24$ 


;G0 TO 24$ IF NO ERROR 


035550 


000240 

wwwc w 






NOP 




; RE TURN HERE IF ERROR 


035552 


104000 

1 W^WWW 






EMT 




; ERROR ft DEFINED BY SECERR SUBROUTINE 


035554 


004736 

WW"* ' w 






JSR 


pc,a(SP)+ 


;G0 BACK FOR MORE ERROR CHECKS 


035556 


000137 

WWW 1 — ' » 


035624 




JMP 


26$ 


;G0 TO 26$ IF ERROR 


035562 






24$: 








035562 


004737 


042432 




JSR 


PC.CMPBUF 


■GO COMPARE WRITE, READ DATA BUFFERS 


035566 


10644? 






.WORD 


BUF0NE*4 


.•STARTING ADDRESS OF WRITE BUFFER 


035570 


107446 






.WORD 


BUF rwo+4 


.•STARTING ADDRESS OF READ BUFFER 


035572 


000404 

w w w ~ w~ 






BR 


25$ 


;G0 TO 25$ IF NO ERROR 


035574 


000240 

w w wt ~ w 






NOP 




; RE TURN HERE IF ERROR 


035576 


104000 






EMT 




; ERROR » DEFINED BY CMPBUF SUBROUTINE 


035600 


000137 


035624 




JMP 


26$ 


■GO TO 26$ IF ERROR 


035604 






25$: 








035604 


105237 


001421 




INC8 


RMDAO+1 


.•ADVANCE TO NEXT TRACK 


035610 


123737 


001421 


001335 


CMP8 


RMDAO+1 .LSTRlC+1 


;DONE ? 


035616 


101002 






BHI 


26$ 


;YES! I 


035620 


000137 


034660 




JMP 


3$ 


.•TEST NEXT TRACK 


035624 






26$: 









CZRMOeO 



aM05/3/2 FCTNL TST 3 NACRO VOA.OO 4-APR-81 01 
READ, WRITE CHECK MULTIPLE SECTORS IH OFFSET MODE 



15:59 



L 

PAGE 



13 

13-96 



SEO 0167 



3U7 
3K8 
3149 
3150 
3151 
3152 
3153 



035624 

035624 000004 

035626 000240 

035630 012706 001100 

035634 013700 001276 

035640 013701 001466 

035644 012737 000025 001226 



035652 



035652 004737 037316 
035656 154130 



.••TEST 25 READ. WRITE CHECK MULTIPLE SECTORS IN OFFSET MODE 

• -A************************************************************** 

tST25: 

SCOPE .-SCOPE CALL 

NOP .-START OF TEST 

MOV #STACK.SP .-INITIALIZE STACK POINTER 

MOV SSASE.RO ;R0 = UNI8US ADDRESS 

MOV TSTOUE.Rl ;(R1) = DEVICE BEING TESTED 

MOV *25.$TESTN ;;SET TEST NUMBER IN APT MAR BOX 

• •••«*•*•••***••***********•*********************••***•***•*••••* 

■LOOP *1 FORMAT. READ OFFSET, WRITE CHECK OFFSET IN BOTH DIRECTIONS 
1$: 

.-PREPARE DEVICE FOR FORMAT OPERATION 



JSR 
.WORD 



PC.TSTPRP 
154130 





035660 


000404 








035662 


000240 








035664 


104000 








035666 


000137 


037006 




3154 










3155 










3156 


035672 








315/ 


035672 


012737 


000000 


001446 


3158 


035700 


012737 


000000 


001420 


3159 


035706 


012737 


106436 


001416 


3160 


035714 


012737 


1 76774 


001414 


3161 


035722 


012737 


010000 


001444 


3162 


035730 


012737 


000063 


001412 


3163 










3164 











BR 
NOP 
EMT 
JMP 



2$ 



28$ 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
SELECT DEVICE & VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF "SKI" OR "PIP" IS SET 
VERIFY RECALIBRATION 
GO TO 2$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY TSTPRP SUBROUTINE 
GO TO 28$ IF ERROR 



.-LOAD PARAMETERS AND GENERATE DATA BUFFER 
2$: 

MOV *O.RMDCO 

MOV tfO.RMDAO 

MOV /MBUFONE.RMBAO 

MOV #-258.»2.RMWC0 

MOV *FMT16,RM0F0 

MOV *WH'G0,RMCS10 

.•VERIFY THAT SECTOR IS NOT BAD 



CYLINDER = 0 
TRACK = 0. SECTOR 0 
BUFFER ADDRESS 

WORD COUNT FOR 2 SECTORS (2'S COMP) 
16 BIT MODE 
WRITE HEADER 



3165 
3166 
3167 
3168 
3169 
3170 
3171 
3172 
3173 
3174 
3175 
3176 
3177 



035736 


004737 


040242 




JSR 


PCBADSCT 


:CALL BAD SECTOR MODULE 


035742 


000405 






BR 


3$ 


;G0 TO 3$ IF NO ERROR 


035744 


104401 


070426 




TYPE 


.SCTMSG 


;TYPE BAD SECTOR MESSAGE 


035750 


104000 






EMT 




.•ERROR * DEFINED BY BADSCT SUBROUTINE 


035752 


000137 


037006 




JMP 


28$ 


;G0 TO 28$ IF ERROR 


035756 






3$: 








035756 


012737 


072060 


001 1 74 


MOV 


*2EROS.$TMP0 


;DATA PATTERN 


035764 


012737 


000001 


001 1 76 


MOV 


*1,$TMP1 




035772 


004737 


0421 74 




JSR 


PC.GENBUF 


;T0 GENERATE BUFFER FOR FORMAT 



035776 
036002 
036006 
036012 
036016 
036022 
056026 



012702 
112722 
112722 
112722 
112722 
112722 
112722 



001553 
000034 
000006 
000004 
000002 
000032 
000000 



.•LOAD PUT REGISTER INDEX TABLE FOR FORMAT OPERATION 



MOV *PUTINX,R2 

M0V8 *r;^dc.(R2) + 

M0V8 *RMDA,(R2)+ 

M0V8 *RMBA.(R2)+ 

M0V8 *RMWC.(R2>+ 

M0V8 *RM0F.(R2)* 

M0V8 *RMCS1.(R2)* 



;BYTE ENTRY TABLE 
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T2S READ. WRITE CHECK MULTIPLE SECTORS IN OFFSET MODE 



SEQ 0168 



31 78 


036032 


1127^2 


000200 




MOVB 


*200, (R2) 


.■TABLE TERMINATOR 


V79 


036036 






4$: 








3180 


036036 


004737 


043330 




JSR 


PC. PUT 


;G0 WRITE REGISTER(S) WITH PjT SUBROUTINE 




036042 


000404 






BR 


5$ 


;G0 TO 5$ IF NO ERROR 




036044 


000240 






NOP 




.•RETURN HERE IF ERROR 




036046 


104000 






EMT 




.•ERROR (t DEFINED BY PUT SUBROUTINE 




036050 


000137 


037006 




JMP 


28$ 


;G0 TO 28$ IF ERROR 


;i8i 


036054 






5$: 









5182 
3183 

3134 
3185 

3186 
3187 
3188 



3189 
3190 
3191 
3192 



3193 
31 9<. 
3195 
3196 
3197 
3198 
3199 
3200 
3201 
3202 
3203 
3204 
3205 



036054 004737 



036060 004737 



036064 
036070 
036072 
036074 
036076 
036102 



036102 
036106 
036110 
036112 
036114 
036116 



036122 
036122 



036130 
036136 



036144 

036144 
036150 



036152 
036154 
036156 
036160 
320^ 036164 
3207 036164 



004737 
000404 
000240 
104000 
000137 



004737 
000405 
000240 
104000 
004736 
000137 



012737 
012737 



004737 
154130 



000404 
000240 
104000 
000137 



042774 
043672 
043060 

037006 

056572 

037006 



.•SETUP GET INDEX T^LE TO READ ALL REGISTERS 

JSR PC.GETSTS ;G0 TO GETSTS SUBROUTINE 



;WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 



;G0 TO TIMOUT SUBROUTINE 



;G0 READ STATUS FOR FORMAT OPERATION 



6$: 



JSR 
BR 
NOP 
EMT 
JMP 



PC. GET 
6S 



28S 



.-VfRIPY NO ERROR DURING FORMAT 



JSR 
BR 
NOP 
EMT 

JSR 
JMP 



PC.DTASTS 
7$ 



PC.a(SP)+ 
28S 



GO READ REGISTER(S) WITH GET SUBROUTINE 
GO TO 6$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR » DEFINED BY GET SUBROUTINE 
GO TO 28$ IF ERROR 



;G0 VERIFY RESULTS OF DAT;^ TRANSFER 
TO TO 7$ IF NO ERROR 
; u- 'URN HERE IF ERROR 
..P<OR * DEFINED BY DTASTS SUBROUTINE 
;Ij0 BACK FOR MORE ERROR CHECKS 
;G0 TO 28$ IF ERROR 



012737 036144 



1 77000 
106436 



037316 



.•MOV LOOP ADDRESSES TO NEXT OPERATION 
7$: 

001124 MOV m,$LPERR ;ERROR LOOP ADDRESS 

.•LOCATE BUFFER ADDRESS AND WORD COUNT 
001414 MOV #-256.*2,RMWC0 ; TWO SECTORS 

001416 MOV #8UF0NE,RMBA0 ;BUFFER ADDRESS 

■•*♦♦»»»♦*♦♦♦♦♦****♦»♦♦**♦**♦*****♦»*»»*******♦*»»*♦♦*♦*♦»»♦»»»»» 

•LOOP 2 READ AND WRITE CHECK IN OFFSET MODE 
8$: 

OPEATION 

;PREPARE DEVICE FOR TEST 



.•PREPARE DEVICE 
JSR 
.WORD 



FOR READ OFFSET 
PC.TSTPRP 
154130 



037006 



9$: 

10$: 



BR 
NOP 
EMT 
JMP 



9$ 



28$ 



TASK DESCRIPTOR AS FOLLOWS: 

SELECT DEVICE & VERIFY DEVICE AVAILABLE 

CLEAR CONTROLLER & SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" Of< 'T>IP" IS SET 

VERIFY RECALIBRATION 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY TSTPRP SUBROUTINE 

GO TO 28$ IF ERROR 
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SEO 0169 



3208 

3209 

3210 

3211 

3212 

3213 

32U 

3215 

3216 

3217 



3218 
3219 
3220 
3221 
3222 
3223 



3224 
3225 
3226 

3227 
3228 
3229 
323U 
3231 
3232 
3233 



3234 
3235 
3236 

3237 
3238 

3239 
3240 
3241 



036164 
0361 70 
0361 74 
036200 
036204 
036210 
036214 

036220 
036224 
036226 
036230 
036232 
036236 
036244 
036250 
036254 

C36260 
036264 
036266 
036270 
036272 
036276 





'READ 


OFFSET 






012702 


001553 


MOV 


*PUTINX,R2 


.-LOAD THE TABLE 


112722 


000006 


M0V3 


#RMDA, (R2)* 




112722 


000034 


M0V8 


*RMDC, (R2)* 




112722 


000032 


M0V8 


*RMOF , (R2)'^ 




112722 


000004 


M0V8 


*RMBA. (R2)* 




112722 


000002 


M0V8 


*RMWC, (R2)* 




112722 


000200 


M0V8 


*200.(R2)+ 


.•TABLE TERMINATOR 


004737 


043330 


JSR 


PC. PUT 


;60 WRITE REGISTER(S) WITH PUT SUBROUTINE 


000404 


BR 


11$ 


;G0 TO 11$ IF NO ERROR 


000240 




NOP 




.•RETURN HERE IF ERROR 


104000 




EMT 




.•ERROR * DEFINED BY PUT SUBROUTINE 


000137 


037006 


JMP 


28$ 


;G0 TO 28$ IF ERROR 


012737 


000015 001412 11$: 


MOV 


#0FFSET.G0.RMCS10 .-OFFSET COMMAND 


012702 


001553 


MOV 


APUTINX.R2 




112722 


000000 


M0V8 


*RMCS1.(R2)* 




i 1 ^^^^ 

1 1 272.2 


AAA A A 

000200 


rnuvo 


*200.(R2)+ 




004737 


043330 


JSR 


PC. PUT 


;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 


000404 


BR 


12$ 


;G0 TO 12$ IF NO ERROR 


000240 




NOP 




.•RETURN HERE IF ERROR 


104000 




EMT 




.•ERROR U DEFINED BY PUT SUBROUTINE 


000137 


037006 


JMP 


28$ 


;G0 TO 28$ IF ERROR 




12$: 









036276 


004737 


043672 


036302 


012737 


000071 0014 


036310 


012702 


001553 


036314 


112722 


000000 


036320 


112712 


000200 


036324 


004737 


043330 


036330 


000404 




036332 


000240 




036334 


104000 




036336 


000137 


037006 


036342 







;WAiT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 



13$: 



MOV 
MOV 
M0V8 
M0V8 

JSR 

BR 

NOP 

EMT 

JMP 



*RD]G0.RMCS10 
#PUTINX,R2 
/lfRMCS1.(R2)* 
/lf200,(R2) 

PC. PUT 
13$ 



28$ 



;G0 TO TIMOUT SUBROUTINE 

.•READ DATA COMMAND 
.•TABLE INDEX 

.•TABLE TERMINATOR 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 13$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 

GO TO 28$ IF ERROR 



036342 004737 042774 



.•SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC.GETSTS .•GO TO GETSTS SUBROUTINE 



036346 004737 043672 



.•WAIT FOR COMMAND TO COMPLETE 
JSR PC.TIMOUT 



;G0 TO TIMOUT SUBROUTINE 



3242 
3243 
3244 
3245 



036352 
036356 
036360 
036362 
036364 



036370 
036370 



004737 043060 
000404 
000240 
104000 

000137 037006 



004737 044056 



;READ STATUS FOR READ OFFSET OPERATION 



JSR 
BR 
NOP 
EMT 
JMP 



PC, GET 
14$ 



28$ 



GO READ REGISTER(S) WITH GET SU8R0LTINE 
GO TO 14$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR n DEFINED BY GET SUBROUTINE 
GO TO 28$ IF ERROR 



.•CHECK ERROR DURING READ OFFSET 
14$: 

^SR PC.PRIERR ;60 CHECK FOR PRIMARY ERRORS 



"ZRf*WeO RM05/5/2 FCTNL TST 3 MACRO VOA.OO 
'?5 RfcAD. WRITE CHECK MULTIPLE SECTORS IN 



4-APR-81 01:15:59 
OFFSET MODE 



B 

PAGE 



U 

13-99 



SEO 0170 



3246 
3247 



3248 
3249 



5250 
3251 
3252 
3253 
3254 
3255 
3256 
3257 
3258 
3259 
3260 
3261 



056374 
036376 
036400 
036402 
036404 
036410 
036410 
036414 
036416 
036420 
036422 
036424 
036430 
036430 
036434 
036436 
036440 
036442 
036444 
C36450 



036450 
036456 



036460 



036460 
036464 



036466 
036470 
036472 
036474 

3262 036500 

3263 

3264 

3265 036500 

3266 036500 

3267 036504 

3268 036510 

3269 036514 

3270 036520 

3271 036524 

3272 036530 
3273 

3274 036534 
036540 



000405 
000240 
104000 
004736 
0001 37 

004737 
000405 
000240 
104000 
004736 
000137 

004737 
000405 
000240 
104000 
00^ 736 
000137 



012737 
000410 



037006 
056572 

037006 
044710 

037006 

036460 001124 



15$: 



16$: 



17$: 



BR 

NOP 
EMT 
JSR 
JMP 

JSR 

BR 

NOP 

EMT 

JSR 

jyp 

JSR 

BR 

NOP 

EMT 

JSR 

JMP 



15$ 



pc,a(SP)* 

28$ 

PC.DTASTS 
16$ 



PC.aCSP)* 
28$ 

PC.SECERR 
17$ 



pc.acsp)* 

28$ 



; CHANGE LOOP ADDRESS 

MOV #18$,$LPERR 
BR 19$ 



60 TO 15$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BV PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 28$ IF ERROR 

GO VERIFY RESULTS OF DATA TRANSFER 

GO TO 16$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SuBROUMNf 

GO BACK FOR MORE ERROR CHECKS 

GO TO 28$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 17$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 28$ IF ERROR 



;T0 NEXT OPERATION 



-•*»»»»»•*••»••»»»•»*••»♦*»•••»•»•••••»•»•••••»***••*•*••**»••••• 

•LOOP 3 WRITE CHECK OFFSET 
18$: 



004737 037316 
154130 



.•PREPARE DEVICE FOR READ OPERATION 



JSR 
.WORD 



PC.TSTPRP 
154130 



000404 
000240 
104000 
000137 



012702 
112722 
112722 
112722 
112722 

112712 

004737 
000404 



037006 



001553 
000006 
000032 
000034 
000004 
000002 
000200 

043330 



19$: 



BR 
NOP 
EMT 
JMP 



19$ 



28$ 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 
SELECT DEVICE t VERIFY DEVICE AVAILABLE 
CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF "SKI** OR "PIP" IS SET 
VERIFY RECALI8RATI0N 
GO TO 19$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR * DEFINED BY TSTPRP SUBROUTINE 
GO TO 28$ IF ERROR 



.•WRITE CHECK DATA IN OFFSET MODE 



20$: 



MOV 
M0V8 

Move 

M0V8 
M0V8 
M0V8 
M0V8 

JSR 
BR 



*PUTINX,R2 

*RMDA,(R2)+ 

*RM0F,(R2)+ 

*RMDC.(R2)+ 

#R/«A.(R2) + 

#RMWC.(R2)+ 

*200.(R2) 

PC .PUT 
21$ 



.-TABLE TERMINATOR 

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
;G0 TO 21$ IF NO ERROR 
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NOP 




RETURN HERE IF ERROR 














EMT 




ERROR * DEFINED BY PUT SUBROUTINE 




036546 


000137 


037006 

SJJi Ww 






JMP 


28$ !• 


GO TO 28$ IF ERROR 


JC f J 


















3276 










■ <;f TUP 


OF F SF T 

W» * JC * 


MODE FIRST 




3277 


036552 








21S: 








3278 


036552 


012737 


000015 


001412 






#0FFSET!G0.RMCS10 .'OUTPUT BUFFER 




0365^0 

\J J\J J\J\J 


01270? 


001553 

\J\J \ J ' J 






MOV 


*PUTINX.R2 




3280 


036564 

\J J\J J\J^ 


112722 

1 ^ C 1 c c 


000000 

www 






M0V8 


*RMCS1,(R2)* 
*200.(R2) 




3281 

JC\J 1 


036570 


11 271 2 


000200 






MOVB 




3282 

JC 


















3283 


036574 

\J JSJ J 1 ~ 


004737 


043330 

V~ J J w 






JSR 


PC. PUT 


60 WRITE RE6ISTER(S) WITH PUT SUBROUTINE 


036600 
036602 
036604 


000404 
000240 
104000 








BR 

NOP 

EMT 


22$ 


60 TO 22$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY PUT SUBROUTINE 




036606 


0001 37 

WW 1 J ' 


037006 

\/ J t WW 






JMP 


28$ '. 


GO TO 28$ IF ERROR 


3284 


03661 2 








22$: 








3285 

JC \J J 


















3286 

JC WW 










.-WAIT 


FOR COMMAND TO COMPLETE 






C 3661 2 


004737 


043672 




JSR 


PC.TIMOUT ;G0 TO TIMOUT SUBROU'^INE 


3287 

JC w > 


















3288 

JC WW 










.•EXECUTE WRITE CHECK DATA COMMAND 


3289 

JC SJ r 


036616 


012737 


000051 


001412 




MOV 


*WCD.'G0,RMCS10 




3290 

JC r\J 


036624 


012702 


001553 






MOV 


*PUTJNX.R2 




3291 

JC ^ ■ 


036630 


}}?722 


000000 

www V 






M0V8 


*RMCS1,(R2)* 




3292 


036634 


112712 


000200 






M0V8 


#200. (R2) 




3293 


















3294 


036640 


004737 


043330 






JSR 


PC. PUT 


•60 WRITE RE6ISTER(S) WITH PUT SUBROUTINE 




036644 


000404 








BR 


23$ 


;G0 TO 23$ IF NO ERROR 




036646 


000240 








NOP 




jRETURN HERE IF ERROR 




036650 

W J\J\J J v 


1 04000 








EMT 




; ERROR t( DEFINED BY PUT SUBROUTINE 




036652 


0001 37 


037006 






JMP 


28$ 


;G0 TO 28$ IF ERROR 


3295 


036656 








23$: 








3296 


















3297 










.•SETUP 


GET INDEX TABLE TO READ ALL REGISTERS 




036656 


004737 


042774 






JSR 


PC.GETSTS 


;G0 TO GETSTS SUBROUTINE 


5298 

JC TSJ 
















3299 










.•WAIT 


FOR COMMAND TO COMPLETE 






036662 

X/ ^WWWb 


004737 


043672 






JSR 


PC.TIMOUT ;G0 TO TIMOUT SUBROUTINE 


3300 


















3301 










;READ 


STATUS 


FOR WRITE CHECK OFFSET OPERATION 


3302 


036666 


004737 


043060 






JSR 


PC. GET 


;G0 READ REGISTER(S) WITH GET SUBROUTINE 




036672 


000404 








BR 


24$ 


;60 TO 24$ IF NO ERROR 




036674 


000240 








NOP 




;RETURN HERE IF ERROR 




036676 


104000 








EMT 




.ERROR K DEFINED BY GET SUBROUTINE 




036700 


000137 


037006 






JMP 


28$ 


;G0 TO 28$ IF ERROR 


3303 


036704 








24$: 








3304 


















3305 










.-CHECK 


ERROR 


DURING WRITE CHECK OFFSET OPERATION 


3306 


036704 


004737 


044056 






JSR 


PC.PRIERR 


;G0 CHECK FOR PRIMARY ERRORS 




036710 


000405 








BR 


25$ 


;G0 TO 25$ IF NO ERROR 




036712 


000240 








NOP 




; RE TURN HERE IF ERROR 




036714 


104000 








EMT 




;ERROR * DEFINED BY PRIERR SUBROUTINE 




036716 


004736 








JSR 


PC.S(SP)* 


;G0 BACK FOR MORE ERROR CHECKS 




036720 


000137 


037006 






JMP 


28$ 


;G0 TO 28$ IF ERROR 


3307 










25$: 








3308 


036724 


004737 


056572 






JSR 


PC.DTASTS ;G0 VERIFY RESULTS OF DATA TRANSFER 



"ZRMOeO RM05/3/2 FCTNL TST 3 WPO vOA.OO 
'25 READ, WRITE CHECK MULTIPLE SECTORS IN 



4-APR-81 01:15:59 PAGE 
OFFSET MODE 



U 

13-101 



036730 
036732 
03673A 
036736 
036740 

3309 036744 

3310 036744 
036750 
036752 
036754 
036756 
036760 

3511 036764 

3312 036764 

3313 036772 

3314 036774 

3315 037002 

3316 037006 



000405 
000240 
104000 
004736 

000137 037006 

004737 044710 

000405 

000240 

104000 

004736 

0001 37 037006 

032737 000200 001444 
001005 

052737 000200 001444 

000137 036122 



26$: 



27$: 



28$: 



op 

an 


26$ 


MOP 




fMJ 

C" 1 






PC a(SP)« 


JMP 


28$ 


ISA 


PC SECERR 


up 


27% 


NOP 




EMT 




JSR 


pc.a(SP)* 


JMP 


28$ 


BIT 


*0FD.RM0F0 


BNE 


28$ 


BIS 


#0FD,RM0F0 


.MP 


7$ 



GO TO 26$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DTASTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 28$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

60 TO 27$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 28$ IF ERROR 

IN FORWARD DIRECTION OF OFFSET ^ 

BRANCH IF SO 

SET TO FORWARD DIRECTION 

CHANGE OFFSET DIRECTION TEST AGAIN 



CZPMOBO RM05/3/2 FCTNL TST 
END OF SOB-PASS RCXJTINE 



1 
2 
3 
4 
5 
6 

8 
9 

10 
11 
12 
13 
K 



037006 
037010 
037012 
057016 
037022 
03702b 

15 037050 

16 037032 

17 037036 
18 

19 
20 



OOOOOA 
0002A0 
013700 
062700 
010037 
005710 
00U02 
0001 37 
012737 



E U 
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.S8TTL END OF SUB-PASS ROUTINE 

THIS IS THE END OF SUB-PASS ROUTINE. THIS ROUTINE IS USED TO 
TERMINATE THE OPERATION OF THE CURRtNT DEVICE UNDER TEST AND 
SELECT THE NEXT DEVICE FOR TEST. IF THERE ARE NO MORE DEVICES 
TO TEST, EXIT IS MADE TO 'SEOP* ROUTINE. OTHERWISE, RETURN 
IS MADE TO 'SHUT* ROUTINE. 



SEO 0173 



001 A66 
000002 
00K66 



037262 
00U70 



$EOSP: SCOPE 
NOP 
MOV 
ADD 
MOV 
TST 
BEO 
JMP 

001466 1$: MOV 



TSTQUE,RO 
*2,R0 
RO,TSTQUE 
(RO) 
1$ 

SHUT 

*TST0UE*2,TSTQUE 



.-GET POINTER TO TSTQUE 
; ADJUST POINTER TO NEXT DEVICE 
.-SAVE POINTER TO TSTQUE 
;ANY MORE DEVICES FOR TEST ? 
;BR IF NO 

.-JUMP TO 'SHUT* ROUTINE 

; INITIALIZE POINTER TO FIRST DEVICE IN 
;'-EST QUE TABLE 



.S8TTL END OF PASS ROUTINE 



037044 






$EOP: 






037044 


000240 






NOP 




037046 


005037 


001116 




CLR 


$TSTNM 


037052 


005037 


001206 




CLR 


$TIMES 


037056 


005237 


001230 




INC 


$PASS 


037062 


042737 


100000 001230 




BIC 


#1 00000, $PASS 


037070 


005327 






DEC 


(PC)* 


037072 


000001 




SEOPCT: 


.WORD 


1 


037074 


003066 






8GT 


$DOAGN 


037076 


012737 






MOV 


(PC)+,a(PC)+ 


037100 


000001 




SENDCT: 


• WORD 


1 


037102 


037072 






$EOPCT 




037104 


104401 


037112 




TYPE 


,65$ 


C37110 


000407 






BR 


64$ 








;;65$: 


•ASCIZ 


<12><15>/END 


037130 






64$: 






037130 


013746 


00' '-'30 




MOV 


$PASS,-(SP) 


037134 


104405 






TYPDS 




037136 


005737 


001126 




TST 


$ERTTL 


037142 


001431 






BEO 


$GT42P 


037144 


104401 


037152 




TYPE 


.67$ 


037150 


000421 






BR 


66$ 








;;67$: 


.ASCIZ 


/ TOTAL ERRO 


037214 






66$: 






037214 


013746 


001126 




MOV 


$ERTTL,-(SP) 


037220 


104405 






TYPDS 




037222 


005037 


00T126 




CLR 


$FRrTt. 



■ft************************************************************** 

^INCREMENT THE PASS NUMBER ($PASS) 

•TYPE "END PASS #XXXXX TOTAl NUMBER OF ERRORS SINCE LAST RtPORT YYYYY" 
•WHERE XXXXX AND YYYYY ARE DtCIMAL NUMBERS 
•IF THERES A MONITOR GO TO IT 
•IF THERE ISN'T JUMP TO SHUT 



;>Z.EPO THE TEST Nlf«ER 
;;ZERO THE NUMBER OF ITERATIONS 
;; INCREMENT THE PASS NUMBER 
; .-DON'T ALLOW A NEG. NUMBER 
;;LOOP? 

• • YES 

••RESTORE COUNTER 



;;TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 



SAVE $PASS FOR TYPEOUT 
TYPE PASS NUMBER 

GO TYPE—DECIMAL ASCII WITH SIGN 
SEE IF ANY ERRORS THIS PASS 
BR IF NO ERRORS TO REPORT 
TYPE ASCIZ STRING 
GET OVER THE ASCIZ 
NCE LAST REPORT / 

SAVE $ERTTL FOR TYPEOUT 

TOTAL NUMBER OF ERRORS 

GO TYPE— DECIMAL ASCII WPH SIGN 

CLEAR ERROR TOTAL 



:ZRMCieO RM05/5/2 FCT»^ TST 5 
FND OF PASS ROUTINE 



037226 


10440 1 


00121 ' 


057252 


013700 


r AAA/ '» 


037236 


001405 




037240 


000005 




\j5f <:*»£ 


nn/ 71 o 
UUm ' 1 yj 




037244 


000240 




037246 


000240 




037250 


000240 




037252 


000137 




037252 




037254 


037262 




037256 


377 


377 



?1 

22 037262 

23 037266 

24 037270 

25 037274 

26 037300 

27 C37302 

28 037306 

29 037312 



005737 
001002 
000137 
005737 
001002 
000137 
005037 
000137 



00 326 

007670 
000042 

005432 
001300 
037044 



"lACRO V04.00 4-APR-81 



SGT42P: TYPE 
$GET42: MOV 
BEO 
RESET 
(ENDAD: JSR 
NOP 
NOP 
NOP 

SDOAGN: 

JMP 

SRTNAD: .WORD 
000 lENLLL: .BYTE 
.EVEN 



SHUT: 

1$: 

2$: 



TST 
BNE 
JMP 

TST 
BNE 
JMP 
CLR 
.MP 



Ot:15:W Pa/e ]U ^^^^ 



,$CRLF ;;TyPE CARRIAGE RETURN. LINE FEED 

»(r42,R0 ;;6ET MONITOR ADDRESS 

SDOAGN ;; BRANCH IF NO MONITOR 

;; CLEAR THE WORLD 
PC.(RO) ;;G0 TO MONITOR 

.-.-SAVE ROOM 

;;FOR 

;;ACT11 

iCK)* ;; RE TURN 

SHUT 

-1.-1.0 ;;NULL CHARACTER STRING 



CTLFG .-WAS CONTROL C FLAGGED ? 

1$ ;BR If YES 

READY ; CONTINUE 

a*42 ;ANY MONITOR PRESENT ? 

2$ ;8R IF YES 

START ;G0 TO START 

$DEVM .-FUDGE NO DRIVES IN MAP 

$EOP .-RETURN TO $EOP 
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c 
J 

*^ 
7 

^ J 

r 

'3 

15 

16 

17 

18 

19 

20 

21 

22 

25 

2A 

25 

26 

27 

28 

29 

30 

31 

32 

35 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

<7 



037316 



037316 
C37324 
037330 
037334 

037340 
037344 
037350 
037352 
037354 
037356 
037362 
037370 



.S8TTL TEST PREPARATION MODULE 

THIS MODULE PREPARES THE SUBSYSTEM FOR THE EXECUTION Of A TEST. 
REPORTING AN ERROR TO THE USER IF AN ERROR IS DETECTED. THE USER 
SPECIFIES TASKS TO BE PERFORMED, WHICH THE MODULE EXECUTES 
USING SUBROUTINES. 



CAlL: 



JSR 

.WORD 

BR 

NOP 

ERROR 



PC.TSTPRP 

NNT^N 
•>■> 



TASK/VERIFV DESCRIPTOR 
RETURN HERE IF NO ERROR 
RETURN HERE IF ERROR 
ERROR DEFINED BY MODULE 



TASK/VERIFY DESCRIPTOR 
BIT 15 = 1 



SELECT DEVICE AND VERIFY DEVICE IS AVAIlABLE 



017637 
062716 
105076 
162716 

004737 
004737 
000411 
000401 
000000 
062716 
113776 
000137 



000000 
000006 
000000 
000004 

042774 
043060 



000004 
037354 
040226 



040236 



03737A 013737 001400 



10$: 

000000 
040240 ^5S: 



BIT 


14 


= 1 


CLEAR CONTROLLER AND SELECT DEVICE 


BIT 


13 




(RESERVED FOR DRIVE CLEAR) 


BIT 


12 


- 1 


PACK ACKNOWLEDGE IF VOLUME NOT VALID 


BIT 


11 


- 1 


RECALIBRATE IF POSITIONING IN PROGRESS 


BIT 


10 






BIT 


9 






BIT 


8 






BIT 


7 






BIT 


6 


= 1 


VERIFY CONTROLLER CLEAR OPERATION 


Bir 


5 




(RESERVED FOR DRIVE CLEAR) 


BIT 


4 


= 1 


VERIFY PACK ACKNOWLEDGE 


BIT 


3 


1 


VERIFY RECALI8RATI0N 


BIT 


2 






BIT 


1 






BIT 


0 







TSTPRP: 



MOV 


a(SP).500$ 


ADD 


*6.{SP) 


CLR8 


a(SP) 


SUB 


#4.(SP) 


JSR 


PC.GETSTS 


JSR 


PC, GET 


BR 


15$ 


BR 


10$ 


.WORD 


0 


ADD 


*4,(SP) 


M0V8 


10$-2.S(SP) 


JMP 


400$ 


MOV 


RMER21.'^05$ 



.•STORE DESCRIPTOR 

.■MOVE SP TO USERS ERROR CALL 

.•CLEAR ERROR CALL 

;MOVE SP TO NO ERROR RETURN 

.•SETUP TO READ ALL REGISTERS 
.•GET RMER2 

;8R IF NO ERROR DETECTED 

.-GET OVER ERROR NUMBER 

.-ERROR DEFINED BY GET SUBROUTINE 

;XFER ERROR TO USER AND 

;GET ERROR NUMBER. 



;GET RMER2 AND SAVE FOR LATER 



'E'jT PfifEPA«ATION MODULE 



*IA:«iO V04.00 



H 14 

4-APR-81 01:15:59 PAGE 15-1 



SEO 0176 



58 

60 
61 

e? 

63 

64 

65 

66 

67 

68 

o9 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

8*; 

86 
87 
88 

8y 

90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
TOO 
101 
102 
103 
104 
105 
106 
107 
108 
109 

no 

M2 
113 

"A 



037402 
037406 

037410 
037414 
037416 
037420 
037422 
037426 
037434 



037440 
037440 
037446 

037450 
0374 54 
037456 
037460 
037462 
037466 
037474 



037500 
037500 
037506 

037510 
037514 
037516 
037520 
037522 
037526 
037534 

037540 
037544 
037546 
037550 
037552 
037554 
037560 
037566 



037572 
057572 
037600 



005737 
100014 

004737 
000411 
000401 
000000 
062716 
113776 
000137 



032737 
001451 

004737 
000411 
000401 
000000 
062716 
113776 
0001 37 



040236 
050762 



000004 
037420 
040226 



040000 
052434 



000004 
037460 
040226 



.-SELECT DEVICE AND VERIFY DEVICE AVAILABLE If BIT 15 SET IN TASK 
TSr 500$ .-SELECT DEVICE?? 

BPL 30$ ;N0.' ! 



000000 



040236 



20$: 



JSR 

BR 

BR 

.WORD 
ADD 

nove 

JMP 



PC.DEVSEL 

30$ 

20$ 

C 

#4.{SP) 

20»-2,a(SP) 

400$ 



;G0 SELECT DEVICE 
;N0 ERROR - CONTINUE 

.-ERROR NUfCER FROM DEVSFl 
.•TRANSFER ERROR TO USER 



.-CcEAR CONTROLLER IF BIT 14 IS SET IN TAS< 
30$: 

BIT #8IT14.500$ 
BEO 120$ 



.-CLEAR CONTROLLER?? 
;N0! ! 



000000 



40$: 
50$: 



JSR 

BR 

BR 

.WORD 
ADD 

Move 

JMP 



PC.CNTCLR 

60$ 

50$ 

0 

*4.{SP) 

40$.a(SP) 

400$ 



.-GO CLEAR CONTROLLER 
.•CONTINUE - NO ERROR 

.-ERROR NUMBER FROM CNTCLR 
.■TRANSFER ERROR TO USER 



.-VERIFY CONTROLLER CLEAR IF BIT6 SET IN TASK 
60$: 



032737 


000100 


040236 




BIT 


*8IT6.500$ 


.-VERIFY?? 


OOUil 








BEQ 


120$ 


.-no: i 


004737 


043060 






JSR 


PC. GET 


.-GO GET STATUS 


000411 








BR 


90$ 


;N0 ERROR GETTING STATUS 


000401 








BR 


80$ 


000000 






70$: 


.WORD 


0 


.•ERROR FROM GETTING STATUS 


062716 


000004 




30$: 


ADD 


*4. (SP) 


.-TRANSFER ERROR TO USER 


113776 


037520 


000000 




M0V8 


70$.a(SP) 


0001^7 


040226 






JMP 


400$ 




004757 


052552 




90$: 


JSR 


PC.CLRSTS 


;G0 VERIFY STATUS CLEAR 


000412 








BR 


120$ 


;N0 FRROR IN CLEAR 


000401 








BR 


110$ 


000000 






100$: 


.WORD 


0 


.-ERROR IN STATUS CLEAR 


005726 






110$: 


TST 


'SP)* 


.-STRIP RETURN ADDRESS TO 


062716 


000004 






ADD 


#4.(SP) 


.-SUBROUTINE AND TRANSFER 


1 1 3776 


037550 


000000 




M0V8 


ioo$.a(SP) 


.-ERROR TO USER 


000137 


040226 






JMP 


400$ 










.-EXECUTE PACK 


ACKNOWLEDGE IF 


91112 SET IN TASK AAJD VOLUME IS 



032737 010000 040256 
00^503 



037602 004737 043060 



NOT VALID 
120$: 

BIT 
BEQ 

JSR 



*8I 112.500$ 
240$ 

PC. GET 



;PACK ACKNOWLEDGE?? 
;N0. : 





Rfl05/3/2 fCTNL 


S^^ 3 


•ES^ PREPARATION MODULE 






03 7606 


0004'' 1 




^ 16 


037610 


000401 




'17 


037612 


000000 




■> "8 


037614 


062716 


000004 


119 


037620 


113776 


037612 


1?0 


037626 


0001 37 


C\l "^Z. 

040226 


121 










037632 


052757 


000100 


123 


037640 


001063 




I2i 








125 


037642 


005057 


001 512 


'26 


037646 


012757 


000023 


127 


037654 


112757 


000000 


128 


037662 


112737 


AAA ^ A A 

000200 


129 


037670 


004737 


043330 


130 


037674 


000410 




131 


037676 


000401 




''52 


037700 


000000 




133 


037702 


062716 


000004 


15A 


037706 


1 1 5776 


057700 


'35 


037714 


000544 




136 








137 


037716 


004757 


r\/ li. 7^ 

04 56^2 


138 








139 








uo 








K1 


037722 


052757 


OOOOcO 


U2 


037730 


001427 




K3 








144 


037732 


004737 


04 3UoU 


KS 


037736 


000410 




Kb 


037740 


000401 




U7 


037742 


000000 




K8 


037744 


062716 


AAAAA/ 

000004 


U9 


037750 


1 1 5776 


AIT"?/ T 


150 


037756 


000525 




151 
152 


037760 


004757 


ACT/ T ^ 

0534 5^ 


15? 


037764 


000411 




154 


037766 


000401 




155 


037770 


000000 




156 


037772 


005726 




157 


037774 


062716 


AAAAAy 

000004 


158 


040000 


115776 


A 7 7*7 "^A 

057770 


159 


040006 


000507 




160 








161 








162 








165 








164 


040010 






165 


040010 


052757 


004 UOO 


166 


040016 


001505 




167 








168 


040020 


004757 


043060 


169 


040024 


000410 




170 


040026 


000401 




171 


040050 


000000 
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I 
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U 
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SEO 0177 



000000 
001 550 



001412 
001553 
001554 



000000 



130$: 
UOS: 



150$: 



160$: 
170$: 



BR 
BR 

.WORD 

ADD 

M0V8 

JMP 

BIT 
BNE 

CLR 
MOV 

Mova 

MOVB 

JSR 

BR 

BR 

.WORD 
ADD 
MOVB 
BR 



150$ 
140$ 

0 

#4.(SP) 

i30$.a(SP) 

400$ 

#VV.RMDSI 
240$ 



;N0 ERROR GE'TING RMDS 
.-TRANSFER ERROR TO USER 



IS VOLIWE VALID?? 
rESJ . 



MEDEf« .-CLEAR MEDIA ENABLE 

#PAKACk:GO.RMCS10 ;L0AD pack ACK COMMAND 

#RMCS1 .PUTINX .-SETUP REGISTER INDEX TABLE 



180$: JSR 



#200. PUT I NX +1 
PC, PUT 
180$ 
170$ 

0 

*4.(SP) 
160$.a(SP) 
400$ 

PC.TIMOUT 



:G0 WRITE COMMAND 

.-NO ERROR LOADING REGISTtR 

.-ERROR FROM PUT SUB 
.-TRANSFER ERROR TO USER 



.•WAIT FOR COMMAND TO COMPLETE 



040236 



.-VERIFr PACK ACKNOWLEDGE IF *8IT4 SET IN TASK 



000000 



190$: 
200$: 



210$: 



220$: 
230$: 



BIT 


«8IT4.500$ 


.-VERIFY PACK ACKNOWLEDGE?' 


BEQ 


240$ 


;N0! . 


JSR 


PC. GET 


;60 GET STATUS 


BR 


210$ 


.-NO ERROR GETTING STATUS 


BR 


200$ 




.WORD 


0 


.-ERROR FROM GET SUB 


ADD 


#4,(SP) 


.-TRANSFER ERROR TO USER 


MOVB 


i90$.a(SP) 




BR 


400$ 




JSR 


PC.ACKSTS 


;60 CHECK ACKNOWLEDGE 


BR 


240$ 


.-NO ERROR 


BR 


230$ 




.WORD 


0 


.-PACK ACKNOWLEDGE ERROR 


TST 


(SP)* 


.-STRIP RETURN TO SUB AND 


ADD 


#4.(SP) 


.-TRANSFER ERROR TO USER 


MOVB 


220$. a (SP) 




BR 


400$ 





.•RECALIBRATE DRIVE IF BIT 11 IS SET IN TASK AND "SKr* IS SET 
;0R "VIP" IS ACTIVE. 



240$: 



250$: 



BIT 


*8IT11,500$ 


.-RECALIBRATE?? 


BEQ 


410$ 


.-NO! . 


JSR 


PC, GET 


;G0 GET RMDS 


BR 


270$ 


;N0 ERROR GETTING RMDS 


BO 


260$ 




.WORD 


0 


.ERROR FROM GET SUB 



J u 
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'EST PREPARATION MODULE 




17? 


040032 


0627^6 


000004 


173 


040036 


1 1 3776 


040050 


174 


040044 


000470 




175 








176 


040046 


032737 


r\ / AAA A 

040000 


177 


040054 


001004 




178 


040056 


032737 


020000 


179 


040064 


001462 




180 








181 


040066 


012737 


AAAAA7 

00000/^ 


182 


040074 


112737 


AAAAAA 


133 


040102 


112737 


AAAAAA 

OOOcUO 


18A 


040110 


004737 


A/ 771A 


165 


040114 


000410 




186 


040116 


000401 




187 


040120 


000000 




188 


040122 


062716 


AAAAA/ 


189 


040126 


113776 


A/ A1 OA 


190 


040134 


000434 




191 








192 


0401 36 


004737 




193 








194 








195 








196 


040142 


032737 


AAAAI A 

UUUU 1 u 


197 


0401 50 


001430 




•98 








199 


040152 


004737 


A/ in^A 


200 


040156 


000410 




201 


040160 


000401 




202 


040162 


000000 




203 


040164 


062716 


AAAAA/ 
UUUUU'I 


204 


0401 70 


113776 


A/ A 1 A ? 


205 


0401 76 


000413 




206 








207 


040200 


004737 


AC/ TO/; 


208 


040204 


000412 




209 


040206 


000401 




210 


040210 


000000 




211 


040212 


005726 




212 


040214 


062716 


AAAAA/ 


213 


040220 


1 1 3776 


A/ A01 A 


214 


040226 


162716 


AAAAA p 


215 


040232 


000240 




216 


040234 


000207 




217 








'18 


040236 


000000 




^19 


0A0240 


000000 





SEO 0178 



000000 

040240 
001350 



001412 
001553 
001554 



000000 



260S: 



270$: 



280$: 



290$: 



300$: 



ADD 


#4,(SP) 


M0V8 


250$,S(SP) 


on 


Anne 


D I T 




dNc 




Q I T 


MOID DMnc I 


DC A 


Z.1 nt 


MAW 








M0V8 


*200,PUT1NX*1 


JSR 


PC, PUT 


RR 


300$ 


BR 


290$ 


.WORD 


0 


ADD 


*4,(SP) 


M0V8 


290$-2.a(SP) 


BR 


400$ 


JSR 


PCTIMOUT 



TRANSFER ERROR TO USER 



WAS SKI SET ? 
YES, GO RECALIBRATE 
IS PIP ACTIVE?? 
NO. I 

.-LOAD RECALIBRATE COMMAND 
:AND REGISTER INDEX 

;60 ISSUE RECALIBRATE 
;N0 ERROR 

.•ERROR IN REGISTER TRANSFER 
; TRANSFER ERROR TO USER 



;WAIT FOR COMPLETION 



'»»•*•♦»*••*•»»•»•***•*••**»•••••****•••»»*•»»*♦»«•**♦»*»•••»»*• 



040236 



.-VERIFY RECALIBRATE IF BIT 3 SET IN TASK 



000000 



000000 





BIT 


*8IT3.500$ 


.-VERIFY RECALIBRATE?? 




BEQ 


410$ 


.-NO.' .' 




JSR 


PC. GET 


;G0 GET STATUS 




BR 


330$ 


;N0 ERROR GETTING STATUS 




BR 


320$ 


310$; 


.WORD 


0 


.-ERROR FROM GET 


320$: 


ADD 


#4,(SP) 


.-TRANSFER ERROR TO USER 




MOVB 


310$.a(SP) 






BR 


400$ 




330$: 


JSR 


PC.RCLSTS 


;60 CHECK RECALIBRATE 




BR 


410$ 


:N0 ERROR DURING RECALIBRATE 




BR 


350$ 




340$: 


.WORD 


0 


.■ERROR DURING RECALIBRATE 


350$: 


TST 


(SP)* 


.•STRIP RETURN TO SUB AND 




ADD 


#4,{SP) 


.•TRANSFER ERROR TO USER 




MOVB 


340$.a(SP) 




400$: 


SUB 


#2.(SP) 


;MOVE SP BACK BEFORE ERROR 


410$: 


NOP 








RTS 


PC 


.•RETURN TO USER 


500$: 


.WORD 


0 


;TASK/VERIFy DESCRIPTOR 


505$: 


.WORD 


0 


.•CONTAINS RMER2 
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2 
3 

5 

6 

7 

8 

9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 

33 OA0242 
3A 040242 

35 040246 

36 040252 
37 

38 
39 

40 040256 

41 040262 

42 040264 
43 

44 
45 
46 

47 040270 
040270 

48 040272 

49 040274 

50 040302 

51 040306 

52 040512 
53 

54 
55 

56 040314 



T5T 
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S£0 0179 



062716 000006 
105076 000000 
162716 000006 



005737 001512 
001402 

000137 041542 



010046 
005000 

016060 001412 
062700 000002 
022700 000046 
103370 



106436 



.SarTL BAD SECTOR MODULE 

THE MODULE IS INTENDED TO BE CALLED PRIOR TO CALLING THE BUFFER 
GENERATOR SUBROUTINE. AND PRESERVES THE "PUT BUFFER" SO THAT THE 
BUFFER NEED ONLY BE FILLED ONCE FOR THE EXECUTION OF A FORMAT 
OPERATION. 

THE MODL.LE RETURNS TO THE CALLING TEST WITH THE APPROVED OR ASSIGNED 

SECTOR IN THE PUT BUFFER AND ALSO IN LOCATIONS "ASNDA" AND "ASNDC ' 

SO THAT A REFERENCE IS AVAILABLE TO THE TEST OUTSIDE OF THE PUT BUFFER. 

THE BAD SECTOR MODULE PERFORMS TWO MAJOR FUNCTIONS: 

(1) RECOVER THE BAD SECTOR FILES AND 

(2) APPROVE THE USAGE OF A SECTOR BASED ON INFORMATION IN 
THE BAD SECTOR FILES CR ASSIGN A NEW SECTOR IF THE ONE 
ELECTED IS NOT AVAILABLE FOR USE. 

INFORMATION REQUIRED BY THE MODULE INCLUDES: 



(2) 
(3) 
(4) 
(5) 

CALL: 



,RMDCO - THE DESIRED CYLINDER. 
.RMDAO - THE TRACK AND SECTOR ADDRESS, 
.RMWCO - THE WORD COUNT, 
.RMCS10 - THE COMMAND, 
.RMOFO - THE FORMAT MODE 



JSR 

BR 

TYPE 



PC.BADSCT 
^MESSAGE 



FILE 



ERROR N 



BADSCT; 



ADD 
CLR8 

sue 



*6,(SP) 

a(SP) 

#6,(SP) 



CALL SUBROUTINE 
RFTURN HERE IF NO ERROR 
RETURN HERE IF THE BAD SECTOR 
CANNOT BE RECOVERED. 
THE EMT OFFSET Nl/©ER 'N' IS DEFINED 
BY BAD SECTOR MODULE. 



.-CLEAR ERROR NUMBER IN USER'S 
.■ERROR CALL. 



•TEST 'MEDIA ENABLE" TO DETERMINE WHETHER OR NOT THE BAD SECTOR FILES 
:.HAVE BEEN^MCOVERED^ ^^^^^ ^^^^^ ^^^^ , 



BEO 
JMP 



1$ 

54J 



BR IF NO 

YES. BAD SECTOR FILE IS AVAILABLE 



RECOVER THE MANUFACTURES / USERS BAD SECTOR FILE FROM CYLINDER =^822.. 
TRACK LAST TRACK (RM02/3 = 4 AND RM05 =18.). ALSO. SAVE THE USER'S 
PUT BUFFER 



1$: 
2$: 



MOV RO.-(SP) ;;PUSH RO ON STACK 

CLR RO .-START WITH RMCS1 

MOV PUT8UF(R0).BUFFER(R0) ^ ^ ^^^^ „„c-,t„,.>. 

ADD *2,R0 .-ADVANCE TO NEXT BUFFER POSITION 

CMP <r46.R0 ;END OF BUFFER 

BHIS 2$ ;N3 !! 



012737 000003 042160 



.-SET RETRY COUNT AND LOAD PUT BUFFER AND REG STER INDEX TABLE 
•SETUP PARAMETERS TO READ SKIP SECTOR FILE FIRST (3 SECTORS) 
MOV #5.68S .-RETRY COUNT 
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S7 
58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
o8 
69 
70 
71 
72 
75 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 

m 

112 
'13 



040322 
040330 
040336 
040344 
040352 

040360 
040364 
040370 
040374 
040400 
040404 
040410 
040414 
040420 



040422 
040422 
C40426 
040432 
040434 
040436 
040440 
040444 
040452 



040464 
040472 
040476 
040500 
040502 
040504 
040510 
040516 

040522 
040526 
040532 
040534 
040536 
040540 
040544 
040552 

040556 
040562 
040564 
040566 
040570 
040572 
040576 
040604 



012737 
013737 
012737 
012737 
012737 

012700 
112720 
112720 
112720 
112720 
112720 
112720 
112720 
012600 



004737 
004737 
000411 
000401 
000000 
062716 
113776 
000137 



TST 3 



001466 
001 334 
177376 
010000 
110446 

001553 
000006 
000034 
000002 
000032 
000004 
000000 
000200 



042774 
043060 



000006 
040436 
041246 



040456 013737 001400 



012737 
004737 
000411 
000401 
000000 
062716 
113776 
000137 

004737 
004737 
000411 
000401 
000000 
062716 
113776 
000137 

004737 
000412 
000401 
000000 
005726 
062716 
113776 
000137 



00001 1 
043330 



000006 
040502 
041246 

043672 
043060 



000006 
040536 
041246 

055770 



000006 
040566 
041246 



flACRQ V04.00 



001446 
001420 
001414 
001444 
001416 
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SIO 01 8C 



MOV 


*822. ,RMDC0 


MOV 


LSTRK.RMDAO 


MOV 


if-djo. .RMWCO 


MOV 


*FMT I6,RM0F0 


MOV 


*nPGP IL .RMBAO 


MOV 


•PUT I NX, RO 


mnun 
nu vo 




I'ove 


#RMDC.(R0)* 


M0V8 


*R'^WC.(R0)* 


M0V8 


#RM0f .(RO)* 


novB 


4rR^BA,(R0)« 


MOVB 


#RMCS1.(R0)* 


MOVB 


#200. (RO)* 


MOV 


(SP)*,RO 



.-DESJRED CYLINDER = 822. 
.•STARTING LAST TRACK. SECTOR - 0 
;2 ♦ 256, WORDS (2'S COMP) 
;16 BIT FORMAT 

.•POINT TO MANUFACTURES FILE BUFFER 
;R0 POINTS TO REGISTER INDEX TABLE 



;;POP STACK INTO RO 



000000 
042172 
001412 

000000 



3$: 



4S: 



5$: 



; CLEAR 



6S: 
7$: 



000000 



8$: 



9$: 
10S: 



11$: 



12$: 
13$: 



000000 



INDEX 


TABLE FOR READING 


STATUS 


JSR 


PC.GETSTS 


SETUP GET INDEX REGISTER FOR STATUS 


JSR 


PC. GET 


GET REGISTERS 


BR 


5$ 


BR IF NO ERROR 


BR 


4$ 


JUMP OVER ERROR NUMBER 


.WORD 


0 


ERROR DEFINED BY GET SUB 


ADD 


*6,(SP) 


■XFER ERROR TO USER AND 


MOVB 


4$-2.a(SP) 


GET ERROR NUMBER. 


JMP 


42$ 




MOV 


RMER2I.73$ .-GET RMER2 AND SAVE FOR LATER 


rHE DEVICE USING DRIVE CLEAR COMMAND 


MOV 


<rDRVCLR!G0,RMCS10 ;LOAD COMMAND IN PUT BUFFER 


JSR 


PC, PUT 


•OUTPUT COMMAND 


BR 


8$ 


•RETURN HERE IF NO ERROR 


BR 


7$ 


■GET AROWD ERROR * 


• WORD 


0 


•ERROR * GOES HERE 


ADD 


*6,(SP) 


•MOVE SP TO USERS ERROR CALL 


MOVB 


6$,a(SP) 


•MOVE ERROR NUMBER TO USER 


JMP 


42$ 




JSR 


PC.TIMOUT 


•WAIT FOR COMPLETION 


JSR 


PC. GET 


•GO GET STATUS 


BR 


11$ 


; RE TURN HERE IF NO ERROR 


BR 


10$ 


■GET AROUND ERROR It 


.WORD 


0 


■ERROR * GOES HERE 


ADD 


*6.(SP) 


■MOVE SP TO USERS ERROR CALL 


MOVB 


9$.a(SP) 


■MOVE ERROR M Tu USERS ERROR CALL 


JMP 


42$ 




JSR 


PC.DRVSTS 


■GO VERIFY DRIVE CLEAR COMMAND 


BR 


14$ 


•RETURN HERE IF NO ERROR 


BR 


13$ 


;GET AROUND ERROR 


.WORD 


0 


■ERROR * GOES HERE 


TST 


(SP)* 


■STRIP RETURN TO SUBROUTINE 


ADD 


#6.(SP) 


■MOVE SP TO USERS ERROR CALL 


MOVB 


12$.a(SP) 


;MOVE ERROR * TO USER CALL 


JMP 


42$ 
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SEQ 018' 



1U 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 



040610 
040610 
040616 

040620 
040626 
040632 
040634 
040636 
040640 
040644 
040652 

040656 
040662 
040666 
040670 
040672 
040674 
040700 
040706 

040712 
040716 
040720 
040722 
040724 
040726 
040732 
040740 



040744 
040744 
040752 
040754 
040762 

040764 
040772 
040776 
041000 
041002 
041004 
041010 
041016 

041022 
041026 
041032 
041034 
041036 
041040 
041044 
041052 



032737 
001052 

012737 
004737 
000411 
000401 
000000 
062716 
■•13776 
0001 37 

004737 
004737 
000411 
000401 
000000 
062716 
1 1 3776 
000137 

004737 
000412 
000401 
000000 
005726 
062716 
113776 
000137 



032737 
001004 
032737 
001452 

012737 
004737 
000411 
000401 
000000 
062716 
113776 
000137 

004737 
004737 
000411 
000401 
000000 
062716 
113776 
000137 



000100 



000023 
043330 



000006 
040636 
041246 

043672 
043060 



000006 
040672 
041246 

053432 



000006 
040722 
041246 



040000 
020000 



000007 
043330 



000006 
041002 
041246 

043672 
043060 



000006 
041036 
041246 



001350 
001412 

000000 



; ISSUE A PACK ACKNOWLEDGE IF VOLUME VALID IS RESET 
14$: 



000000 



000000 

042172 
001350 

001412 
000000 



000000 





BIT 


*VV.RMDS1 


IS VV RESET ?•> 




one 


23$ ;N0 .. 




MOV 


*PACACK.G0.RMCS10 ;LOAD COMMAND 




JSR 


PC. PUT ; 


GO PUT COMMAND TO DRIVE 




BR 


17$ 


RETURN HERE IF NO OUTPUT ERROR 




BR 






15$: 


.WORD 


0 


ERROR * GOES HERE 


16$: 


ADD 


*6.(SP) 


MOVE SP TO USERS ERROR CALL 




M0V8 


i5$.a(sp) 


MOVE ERROR * TO ERROR CALL 




IMP 


42$ 




17$: 


JSR 


PCTIMOUT 


WAIT FOR COMPLETION 




JSR 


PC. GET 


GO GET STATUS FOR PACK ACK 




BR 


20$ 


RETURN HERE IF NO ERROR 




BR 


19$ 


GfT ARDIIND FRRHR # 


18$: 


.WORD 


0 


ERROR # GOES HERE 


19$: 


ADD 


*6.(SP) 


MOVE SP TO USERS ERROR CALL 




M0V8 


i8$.a(SP) 


■MOVE ERROR * TO CALL 




JMP 


42$ 




20$: 


JSR 


PC.ACKSTS 


•GO VERIFY ACKNOWLEDGE STATUS 




BR 


23$ 


•RETURN HERE IF NO ERROR 




BR 


22$ 


•GET AROUND ERROR * 


21$: 


.WORD 


0 


•ERROR * GOES HERE 


22$: 


TST 


(SP) + 


•STRIP RETURN TO SUBROUTINE 




ADD 


#6.(SP) 


•MOVE SP TO USERS ERROR CALL 




M0V8 


2i$:a(SP) 


•MOVE ERROR # TO USERS ERROR CALL 




JMP 


42$ 




.•RECALIBRATE 


THE DRIVE IF "SKI" OR 'T»IP IS SET 


23$: 










BIT 


*SKI,73$ 


;WAS SKI SET ? 




BNE 


24$ 


;YES. GO RECALIBRATE 




BIT 


*PJP.RMDSI 


;IS PIP SET ?? 




BEQ 


32$ 


;N0 !! 


24$: 


MOV 


*RECAL!G0,RMCS10 


.•LOAD RECALIBRATE COMMAND 




JSR 


PC. PUT 


;PUT THE RECAL COMMAND 




BR 


26$ 


; RE TURN HERE IF NO ERROR 




BR 


25$ 


;GET AROUND ERROR * 




.WORD 


0 


; ERROR # GOES HERE 


25$: 


ADD 


*6.(SP) 


.•MOVE SP TO USERS ERROR CALL 




M0V8 


25$-2.a(SP) 


;MOVE ERROR # TO USERS CALL 




JMP 


42$ 




26$: 


JSR 


PC.TIMOUT 


;WAIT FOR RECALIBRATE TO COMPLETE 




JSR 


PC.6ET 


;G0 GET RECAL STATUS 




BR 


29$ 


.•RETURN HERE IF NO ERROR 




BR 


28$ 


.•GET AROUND ERROR # 


27$: 


.WORD 


0 


; ERROR * GOES HERE 


28$: 


ADD 


#6.(SP) 


.•MOVE SP TO USERS ERROR CALL 




M0V8 


27$. a(SP) 


.•MOVE ERROR TO USERS CALL 




JMP 


42$ 
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171 041056 


004737 


054226 


172 041062 


000412 




173 04106A 


000401 




174 041066 


000000 




175 041070 


005726 




176 041072 


062716 


000006 


177 041076 


113776 


041066 


178 041104 


000137 


041246 


179 






180 






181 041110 






182 041110 


012737 


000073 


183 041116 


004737 


043330 


184 041122 


000411 




185 041124 


000401 




186 041126 


000000 




187 041130 


062716 


000006 


188 041134 


113776 


041126 


189 041142 


0001 37 


041246 


190 






191 041146 


004737 


043672 


192 041152 


004737 


043060 


193 041156 


000411 




194 041160 


000401 




195 041162 


000000 




196 041164 


062716 


000006 


197 041170 


113776 


041162 


198 041176 


000137 


041246 


199 






200 041202 


004737 


056572 


201 041206 


000412 




202 041210 


000401 




203 041212 


000000 




204 041214 


005726 




205 041216 


062716 


000006 


206 041222 


113776 


041212 


207 041230 


000137 


041246 


208 






209 041234 


032737 


040000 


210 041242 


001001 




211 041244 


000446 




212 






213 






214 






215 






216 






217 041246 


005337 


042160 


218 041252 


100026 




219 






220 






221 






222 041254 


032737 


100720 


223 041262 


001004 




224 






225 041264 


032737 


100000 


226 04 V72 


001422 




?27 
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000000 



001412 



000000 



000000 



000000 
001336 



001352 
001400 



30$: 
31$: 



JSR 

BR 

BR 

.WORD 

TST 

ADD 

M0V8 

JMP 



PC.RCLSTS 

32$ 

31$ 

0 

(SP) + 
*6.(3P) 
30$,a(SP) 
42$ 



GO VERIFY RECALIBRATE STATUS 

RETURN HERE If NO ERROR 

GET AROUND ERROR # 

ERROR » GOES HERE 

STRIP RETURN TO SUBROUTINE 

MOVE SP TO USERS ERROR CALL 

MOVE ERROR » TO USERS CALL 



.•READ THE SECTOR IDENTIFIED BY RMDAO, INCLUDING HEADER AND DATA 
32$: 





MOV 


*RH! GO.RMCSIO , 


LOAD READ HEADER AND DATA COMMAND 




JSR 


PC, PUT 


PUT COMMAND 




BR 


35$ 


RETURN HERE IF NO ERROR 




BR 


7 / ^ 

34$ 


GET AROUND ERROR M 


33$: 


.WORD 


0 


ERROR ft GOES HERE 


34$: 


ADD 


/T6,(SP) , 


MOVE SP TO USERS ERROR CAlL 




M0V3 


33$,a(SP) 


MOVE ERROR ft TO USERS ERROR CALL 




JMP 


42$ 




35$: 


JSR 


nr* T r uoi it 

PC.TIMOUT 


WAIT FOR READ OPERATION TO CQMPLLTE 




JSR 


PC, GET 


GO GET STATUS FOR READ OPERATION 




DD 
On 








BR 


37$ 


■GET AROUND ERROR * 


36$: 


.WORD 


0 


■ERROR * GOES HERE 


37$: 


ADD 


»6,(SP) 


•MOVE SP TO USERS ERROR CALL 




Move 


36$,a(SP) 


•MOVE ERROR * TO CALL 




JMP 


42$ 




38$: 


JSR 


PCDTASTS 


;G0 VERIFY RESULTS OF READ OPERATION 




BR 


41$ 


r RE TURN HERE IF NO ERROR 




BR 


40$ 


•GET AROUND ERROR * 


39$: 


.WORD 


0 


r ERROR * GOES HERE 


40$: 


TST 


(SP)-t- 


; STRIP RETURN ADDRESS TO SUBROUTINE 




ADD 


»6,(SP) 


;MOVE SP TO USERS ERROR CALL 




M0V8 


39$,S(SP) 


;MOVE ERROR * TO USERS CALL 




JMP 


42$ 




41$: 


BIT 


/(rTRE,RMCS1I 


;ANY CONTROLLER ERRORS ? 




BNE 


42$ 


'SR IF YES 




BR 


48$ 


•NO ERRORS DETECTED 



•*******************'*«*«'»**************** if* A******************** 

AN ERROR HAS BEEN DETECTED IN TRYING TO READ THE BAD SECTOR FILE. 
THE SECTOR WILL BE RETRIED IF POSSIBLE. 



42$: 



DEC 
BPL 



68$ 
45$ 



;YES, DECREMENT RETRY COUNT AND 
.•RETRY IF COUNT NOT NEGATIVE. 



;THE RETRY COUNT HAS EXPIRED - SEE IF THE ERROR IS MEDIA RELATED 

43$: BIT *DCK.HCRC1HCE.FER:ECH,RMER1I ."ANY MEDIA RELATED ERRORS 
BNE 44$ ;YES, GO TRY NEXT AVAILABLE SECTOR 

BIT /(r8SE,RMER2I ;ANY MEDIA RELATED ERRORS ? 

8EQ 46$ ;N0. EXIT AND REPORT ERROR ON RETURN 



BAD SECTOR WOULE 
?28 

?31 

212 y*^27^, 062717 

233 04130? 122757 

234 041310 001413 

235 041312 122737 

236 041320 001407 
237 

258 041322 012737 

239 041550 162716 

240 041554 000157 
241 

24? 
245 

244 041340 000240 

245 041542 052777 

246 041550 001002 

247 041552 102716 

248 041556 000137 
249 

250 
?51 
252 

255 041362 022757 

254 041370 001446 

255 041572 112757 

256 041400 012737 
257 

258 041406 012757 

259 041414 UO0157 
260 

261 

262 041420 

041420 010046 

041422 010146 

265 041424 012701 

264 041450 0127^^0 

265 041454 012760 

266 041442 012760 

267 041450 005720 

268 041452 005501 

269 041454 001367 
270 

271 041456 012701 

272 041462 005000 

273 041464 005060 

274 041470 005060 

275 041474 005720 

276 041476 005501 

277 041500 001571 

278 041502 012601 
041504 012600 

279 
280 

281 041506 



B 15 

TST 5 HACW /04.00 4-APf<-81 01:15:59 PAGE 16-4 



SEO 0183 



000002 
000012 



000005 
000006 
040422 



000012 
111454 

000005 
040422 



000574 
000014 
\77777 
^77777 



0C0006 

110446 
111454 



;THE ERRORS DETECTED WHILE TRYING TO RECOVER the BAD SECTOR FRE ARE 
.-DUE TO THE MEDIA. SEE IF THE BAD SECTOR FlU CAN Bfc RECOVERED FROM 
.•ANOTHER AREA ON THE LAST TRACK 



001420 
001420 



44S: 



000040 001420 



042160 



45$: 



ADD 

CMP8 

BEO 

CW« 

BEQ 

MOV 
SUB 
JMP 



#2,RWA0 

#10..RMDAO 

46S 

#32.,RMDAO 
46S 

4r5.68$ 

#6.(SP) 

5$ 



ADVANCE SECTOh ADDRESS BY 2 

QUIT IF ALL MFC SECTORS HAVE BEEN 

TRIED. 

QUIT IF ALL USER SECTORS HAVE BEEN 
TRIED. 

REINSTATE RETRY COUNT FOR THJS SECTOR 
MOVE SP BACK TO NO ERROR 
RETRY THE READ OPERATION 



020000 137604 

000004 
042154 



.-THE BAD SECTOR FILE CANNOT BE READ 
46S: 



47$: 



NOP 
BIT 
BNE 
SUB 



#sui5,asuR 

47$ 

*4.^SP) 
67S 



INHIBIT MESSAGE ? 
YES 

MOVE SP TO ERROR RETURN 
60 TO MODULE EXIT 



;THE SECTOR WAS RECOVERED WITHOUT ERROR - READ THE USER FILE IF 
;THIS IS THE M6F FILE OR ELSE DONE. 



111454 001416 48$: 



001420 
001416 

042160 



CMP fUSRFIL.RMBAO 

BEQ 52$ 

M0V8 *10..RMDAO 

MOV #USRFIL,RMBA0 

MOV #3.68$ 

JMP 3$ 



.•DUMMY THE BAD SECTOR FILES 
49$: 



110446 
111454 



50$: 



51$: 



MOV 


RO,-(SP) 


MOV 


R1.-(SP) 


MOV 


#252.. R1 


MOV 


#14. RO 


MOV 


#-1.MFGFIL(R0) 


MOV 


#-1.USRFIL(R0) 


TST 


(R0) + 


DEC 


R1 


BNE 


50$ 


MOV 


#6..R1 


CLR 


RO 


CLR 


MF6FIL(R0) 


CLR 


US«FIL(RO) 


TST 


(RO)* 


DEC 


R1 


BNE 


51$ 


MOV 


(SP)*.R1 


MOV 


(SP)*.RO 



WAS THE USER FILE READ ?? 

YES - READ IS COMPLETE 

READ THE USER FILE LAST TRACK. SECTOR 

POINT TO USERS FILE BUFFER 

.•RELOAD THE RETRY COUNT FOR THIS SECTOR 
;G0 READ THE USER FILE 



;PUSH RO ON STA'^K 

.•PUSH R1 ON STACK 

R1 = NIMBER OF ENTRIES IN FILES 

RO = ADDRESS INDEX TO FILE STORAGE 

ENTER ALL ONES IN MFG FILE 

ENTER ALL ONES IN USER FILE 

ADVANCE ADDRESS 

DECREMENT COUNT 

CONTINUE IF NOT DONE 

.•CLEAR HEADER. CLEAR ID % SERIAL NUMBERS 



10. 



;ADVANCE ADDRESS 



;;POP STACK INTO R1 

;;POP STACK INTO RO 

;SET MEDIA ENABLE AND RESTORE THE USERS PUT BUFFER 
52$. 
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SEO 0184 



<:S2 
281 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 



298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

353 

334 



041506 
041510 
041512 
041520 
041526 
041532 
041556 
041540 



010046 
005000 
012737 
016060 
062700 
022700 
103570 
012600 



106436 
000002 
000046 



001512 
001412 



;;PUSH RO ON STACK 
;R0 IS REGISTER INDEX 



53$: 



MOV RO.-(SP) 

CLR RO 

MOV *-1 ,MEDEfe 

MOV BUFFER(R0),PUT8UF(R0) 

ADD #2,R0 .-ADVANCE RO 

CMP #46. RO .-DONE ?? 

BnIS 53$ 

MOV (SP)+.RO ;;P0P STACK INTO RO 

••A************************************************************** 

•VERIFY THAT THE DESIRED SECTOR IS NOT IN THE MFC BAD SECTOR FILE 
;AND NOT IN THE USERS BAD SECTOR FILE. ASSIGN A NEW SECTOR IF THE 
.•SECTOR IS IN ANY OF THE FILES. 

• -********* ****i^***i^**<^«'********<^************** ********** ******** 

.-LOAD INITIAL VARIABLES AND COMPUTE THE NUMBER OF SECTORS 



041542 








54$: 






.-PUSH RO ON STACK 


041542 


010046 








MOV 


RO.-(SP) 


041544 


010146 








MOV 


RI.-(SP) 
R2.-(SP) 


;PUSH R1 ON STACK 


C41546 


010246 








MOV 


;PUSH R2 ON STACK 

LOAD REQUESTED CYLINDER. TRACK. 


041550 


013737 


001446 


001 S14 




MOV 


RMDCO.ASNDC 


041556 


013737 


001420 


001516 




MOV 


RMDAO.ASNDA 


AND SECTOR ADDRESS IN ASSIGNED STORAGE 


041564 


005002 








CLR 


R2 


R2 = NUMBER OF SECTORS 


041566 


013700 


001414 






MOV 


RMWCO.RO 


RO = WORD COUNT 


041572 


005400 








NEG 


RO 


MAKE NUMBER POSITIVE 


041574 


012701 


000400 






MOV 


xr256..R1 


•Rl = NUMBER OF WORDS PER SECTOR 


041600 


032737 


000002 


001412 




BIT 


#8IT1.RMCS10 


■IS THIS A HEADER AND DATA COMMAND ?? 


041606 


001402 








BEO 


55$ 


•NO .' ! 


041610 


012701 


000402 






MOV 


/ir258..Rl 


•CHANGE WORDS PER SECTOR 


041614 


020100 






55$: 


CMP 


R1.R0 


•IS THERE A FULL SECTOR ?? 


041616 


101404 








BLOS 


56$ 


•YES !! 


041620 


005700 
00140'^ 








TST 


RO 


•IS RO ZERO ?? 


041622 








BEO 


57$ 


•YES !! 


041624 


00520^ 








INC 


R2 


•INCREMENT FOR PARTIAL SECTOR 


041626 


000403 








BR 


57$ 




041630 


160100 






56$: 


sue 


R1.R0 


; SUBTRACT ONE SECTOR FROM WORD COUNT 


041632 


005202 








INC 


R2 .-INCREMENT SECTOR COUNT 


041634 


000767 
010237 








BR 


55$ 




041656 


042160 




57$: 


MOV 


R2,68$ .-SAVE SECTOR COUNT 



LOAD PARAMETERS AND SEARCH THE MFG/USER SECTOR FILE FOR THE 
ASSIGNED SECTOR. ALSO. SEARCH THE ADJACENT SECTORS IF THE 
SECTOR COUNT IS MORE THAN QUE. 



041642 012737 110462 042170 

041650 004737 041672 

041654 012737 111470 042170 

041662 004737 041672 

041666 000137 042132 

041672 013737 001514 042164 

041700 013737 001516 042166 

041706 013737 0«2160 042162 



58$: 



MOV *MFGFIL+14,72$ 

JSR PC. 58$ 

MOV XfUSRF I L+1 4, 72$ 

JSR PC, 58$ 

JMP 66$ 

MOV ASNDC.70$ 

MOV ASNDA.7''$ 
MOV 



THE STARTING ADDRESS OF MFG FILE 
TO BASE ADDRESS STORAGE. 
GO SEARCH FILE 

LOAD STARTING ADDRESS OF USR FILE 
TO BASE ADDRESS STORAGE. 
GO SEARCH FILE 

DONE WITH ALL FILE SEARCHES .! 

;LCAD COMPARING CYLINDER ADDRESS 
;LOAD COMPARING TRACK, SECTOR ADDRESS 



68$. 69$ .LOAD NUMBER OF SECTORS TO CONFIRM 
.•SETUP FOR A BINARY SEARCH OF THE CURRENT FILE FOR THE COMPARING 
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535 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

3*«6 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 



041714 
041714 
041720 
041724 
041726 
041732 



041734 
041734 
041742 

041744 
041752 

041754 
041756 



041760 
041760 
041764 
041772 
041774 
042000 
042004 
042012 
042014 
042020 
042024 
042032 
042034 
042040 



042042 
042042 
042046 

042050 
042054 
042062 
042064 
042070 
042074 
042102 
042104 
042110 
042114 
042122 
042124 



013700 
022710 
001446 
021037 
001010 



.-CYLINDER. TRACK AND SECTOR ADDRESS 



042170 
177777 

042164 



59$: 
60$: 



MOV 
CMP 
BEO 
CMP 
BNE 



72$. RO 

*-1.(R0) 

64$ 

(R0).70$ 
62$ 



LOAD THE BASE ADDRESS IN RO 
IS THIS FILE TERMINATOR ? 
BR IF YES 

DOES TABLE ENTRY = COMPARING CYLINDER ? 
BR IF NO 



126037 000003 
001004 

126037 000002 
001402 

022020 
C00760 



042167 
042166 



.-FILE ENTRY EQUALS COMPARING CYLINDER. 
.-THE COMPARING TRACK. AND SECTOR. 
61$: 



SEE IF THE NEXT ENTRY EQUALS 



CMP8 


3(R0),71$+1 


.•DOES TABLE ENTRY = COMPARING 


TRACK ? 


BNE 


62$ 


;BR IF NO 




CMP8 


2(R0).71$ 


;DOES TABLE ENTRY - COMPARING 


SECTOR ? 


BEO 


63$ 


;8R IF YES 




CMP 


(RO)+,(RO)+ 


;N0, ADJUST CYLINDER POINTER 


IN BAD FILE 


BR 


60$ 


;AND CONTINUE SEARCH, 





62$: 



.-THE COMPARING CYLINDER, TRACK AND SECTOR IS IN THE BAD SECTOR FUE, 
.•ADVANCE THE ASSIGNED SECTOR AND START THE SEARCH ALL OVER. 
63$: 



105237 


001516 




INC8 


ASNDA 


INCREMENT SECTOR 


122737 


000037 


001516 


CMPe 


#31 . .ASNDA 


SECTOR OK ?? 


103337 






BHIS 


58$ 


YES !.' 


105037 


001516 




CLRB 


ASNDA 


■CLEAR SECTOR AND ADVANCE TRACK 


105237 


001517 




INCB 


ASNDA+1 




123737 


001335 


001517 


CMP8 


LSTRK+1,ASNDA+1 , 


•TRACK OK ? 


103327 






BHIS 


58$ 


YES !! 


005037 


001516 




CLR 


ASNDA 


•CLEAR TRACK AND SECTOR 


005237 


001514 




INC 


ASNDC 


■INCREMENT CYLINDER 


022737 


001466 


001514 


CMP 


#822.,ASNDC 


CYLINDER OK ?? 


103317 






BHIS 


58$ 


YES I. 


005037 


001514 




CLR 


ASNDC 


START AT CYLINDER 0 


000714 






BR 


58$ 


; SEARCH NEXT SECTOR 



THE COMPARING SECTOR IS NOT IN THE BAD SECTOR FILES. DECREMENT THE 
NUMBER OF SECTORS TO COMPARE AND SEARCH THE NEXT SECTOR IF IHE NUMBER 









;IS NOT 


ZERO. 












64$: 








005337 


042162 






DEC 


69$ 


.•DECREMENT NUMBER OF SECTORS TO COMPARE 


001442 






BEO 


67$ 


.•DONE IF ZERO 


105237 


042166 






INCB 


71$ 


.•INCREMENT THE COMPARING SECTOR 


122737 


000037 


042166 




CMP8 


#31., 71$ 


.•SECTOR OK ?? 


103022 








BHIS 


65$ 


;YES !! 


105037 


042166 






CLRB 


71$ 


; CLEAR SECTOR 


105237 


042167 






INCB 


71$+1 


.•INCREMENT TRACK 


123737 


001335 


042167 




CMP8 


LSTRK+1.71$+1 


.•TRACK OK ?? 


103012 








BHIS 


65$ 


•YES 


005037 


042166 






CLR 


71$ 


•clear" SECTOR TRACK 


005237 


042164 






INC 


70$ 


.•INCREMENT CYLINDER 


022737 


001466 


042164 




CMP 


#822., 70$ 


.•CYLINDER OK ?? 


103002 








BHIS 


65$ 


;YES : ! 


005037 


042164 






CLR 


70$ 


;START AT CYLINDER 0 
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»92 OA2130 

393 

394 

395 042132 

396 042132 

397 042140 

398 042146 
042150 
042152 

399 

400 042154 

401 042156 
402 

403 
404 

405 042160 

406 042162 

407 042164 

408 042166 

409 C42170 

410 042172 



000671 



013737 
013737 
012602 
012601 
012600 

000240 
000207 



000000 
000000 
000000 
000000 
000000 
000000 
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001514 
001516 



001446 
001420 



SEO 0186 



BR 



59$ 



.SEARCH NEXT SECTOR 



.ASSIGN THE SECTOR AND RETURN TO USER 
66$: 



MOV 


ASNDC.RMDCO 


.•LOAD 


CYLINDER 




MOV 


ASNDA.RMDAO 


.LOAD 


TRACK AND SECTOR 


MOV 


(SP)*.R2 


;;POP 


STACK INTO 


R2 


MOV 


(SP)+.R1 


;;POP 


STACK INTO 


R1 


MOV 


(SP)+,RO 


;;POP 


STACK INTO 


RO 


NOP 










RTS 


PC 









67$: 



;THE FOLLOWING ARE STORAGE LOCATIONS FOR THE MODULE 



68$: 


.WORD 


0 


RETRY COUNT/ NUMBER OF SECTORS REQUIRED 


69$: 


• WORD 


0 


NUMBER OF SECTORS TO COMPARE 


70$: 


.WORD 


0 


COMPARING CYLINDER 


71$: 


• WORD 


0 


•COMPARING TRACK AND SECTOR 


72$: 


.WORD 


0 


•BASE ADDRESS OF BAD SECTOR FILE BEING SEARCHED 


73$: 


.WORD 


0 


•CONTAINS RMER2 
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SEO 0187 



6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 



21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
AO 
41 
42 
^3 
44 
45 
46 
47 
48 
49 
50 
51 
52 



042174 
042174 
042176 
042200 
042202 
042204 
042206 
042212 
042216 
042224 

042232 
042240 
042242 
042246 
042252 

042256 
042264 
042266 
042272 

C42?76 
042300 

042302 
042304 
042310 
042312 
042314 
042320 
042322 
042324 
042326 
042330 
042334 
042342 
042344 



010046 
010146 
010246 
010346 
010446 
013700 
013701 
013737 
013737 

032737 
001445 
013710 
052710 
012702 

032737 
001404 
052710 
012702 

005201 
001443 

005720 
013720 
005201 
001436 
012703 
105213 
120213 
103013 
105013 
105263 
123763 
103004 
105063 



.S8TTL BUFFER GENERATOR SUBROUTINE 

THIS SUBROUTINE GENERATES A DATA BUFFER FOR WRITE COWIANDS. 
BUFFER STARTS AT RMBA AND IS RMWC WORDS LONG. THE BUFFER 
CONTAINS A REPETITIVE DATA PATTERN CONSISTING OF $TMP1 WORDS 
FROM THE DATA PATTERN TABLE. BEGINNING AT ADDRESS STMPO. 
HEADER INFORMATION FOR THE BUFFER IS EXTRACTED FROM RMDC, 
RMDA AND RMOF . 



THE 



RO 
R1 
R2 
R3 

R4 = 

CALL: 

(1) 

(2) 



GENBUF : 



ADDRESS OF DATA BUFFER 
LENGTH OF DATA BUFFER 
ADDRESS OF DATA PATTERN 
LENGTH or DATA PATTERN 
SECTOR COUNT 



001416 
0014K 
001446 
001420 



042426 
042430 



000002 001412 10$: 

042426 
140000 
000035 

010000 001444 



010000 
000037 



042430 



042430 



000001 
001335 

000001 



15$: 



000001 



JSR 


PC. GENBUF 




?? 




RETURN HERE 


MOV 


RO.-(SP) 


;;PUSH RO ON STACK 


MOV 


R1 .-(SPJ 


;;PUSH R1 ON STACK 


MOV 


R2.-(SP; 


;;PUSH R2 ON STACK 


MOV 


R3,-(SP) 


;;PUSH R3 ON STACK 


MOV 


R4.-(SP) 


;;PUSH R4 ON STACK 


MOV 


RMBAO.RO 


;LOAD DATA BUFFER ADDRESS 


MOV 


RnWCO.RI 


;LOAD WORD COUNT 


MOV 


RMDC0.60$ 


■ ftAP\ f*TAftTTAi/~ /*wi iAiP\rft Ar\r\ftr"(~c" 

;LOAD STARTING CYLINDER ADDRESS 


MOV 


RMDA0.65» 


;LOAD STARTING TRACK. SECTOR ADDRESS 


BIT 


#61 T1 .RMCS10 


.'WRITE HEADER & DATA?? 


BEQ 


25$ 


A Ift 1 1 

;N0: 1 


MOV 


60$, (RO) 


; WRITE HEADER WORD #1 


Q T C 


MMCC 1 1 ICC ( QC\\ 

ffnat ; Uat . \ n\j) 


. 1 DAU oCLlUn r LAuo r UK uUUL' oCLlUn 


MOV 


»29..R2 


;R2 = MAXIMUM SECTOR ADDRESS (29.) 


BIT 


*FMT16.RM0F0 


;18 BIT FORMAT?? 


BEQ 


15$ 


;YES !! 


BIS 


*FMT16.(R0) 


.-SET 16 FORMAT BIT IN HEADER 


MOV 


*31..R2 


.•CHANGE MAXIMUM SECTOR ADDRESS (31.) 


INC 


R1 


.•INCREMENT WORD COUNT 


BEQ 


50$ 


.■EXIT IF DONE 


TST 


(RO)* 


;MOVE RO TO HEADER WORD #2 


MOV 


65$.(R0)+ 


.•WRITE HEADER WORD #2 


INC 


R1 


.•INCREMENT WORD COLWT AND 


BEQ 


50$ 


;EXIT IF DONE 


MOV 


#65$. R3 


.•ADVANCE SECTOR ADDRESS 


INC8 


(R3) 




CMP8 


R2,(R3) 


.•SECTOR OVERFLOW ?? 


BHIS 


25$ 


;N0 ! ! 


CLR8 


(R3) 


;YES - CLEAR SECTOR ADDRESS 


INC8 


1 (R3) 


.■ADVANCE TRACK ADDRESS 


CMPB 


LSTRK+1 ,1(R3) 


; TRACK OVERFLOW ?? 


BHIS 


25$ 


;N0 1 . 


CLR8 


1(R3) 


;YES - CLEAR TRACK ADDRESS 
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53 OAP550 105^37 0A?4?6 INC8 

54 04235A 012704 C00400 ^5$: ^OV 

55 042360 0^3702 001174 30$: MOV 

56 042364 013703 001176 MOV 

57 042370 012220 40$: MOV 

58 042372 005201 INC 

59 042374 001405 8EQ 

60 042376 005304 DEC 

61 042400 001714 BED 

62 042402 005303 DEC 

63 042404 001765 BEQ 
o4 042406 000770 BR 

65 042410 50$: 
042410 012604 MOV 
042412 012603 MOV 
042414 012602 MOV 
042416 012601 MOV 
042420 012600 MOV 

66 042422 000240 NOP 

67 C42424 000207 RTS 
68 

69 042426 000000 60$: .WORD 

70 042430 000000 65$: .WORD 



G 15 

01 :15:59 P*GE 17-1 



SEO 0188 



60$ .-ADVANCE CYLINDER ADDRESS 

#256.. R4 .-LOAD SECTOR DATA COUNT 

$TMP0,R2 .'LOAD PATTERN ADDRESS 

$TMP1.R3 .-LOAD PATTERN COUNT 

(R2) + ,(R0)+ .-WRITE DATA PATTERN 

R1 .-INCREMENT WORD COUNT AND 

50$ .-EXIT IF DONE 

R4 .-DECREMENT SECTOR COUNT 

10$ .-START NEXT SECTOR IF 0 

R3 .-DECREMENT PATTERN COUNT 

30$ .RESTART PATTERN IF 0 

40$ .-CONTINUE DATA PATTERN 

(SP) + ,R4 .-.-POP STACK INTO R4 

(SP)*.R3 .-.-POP STACK INTO R3 

(SP) + .R2 .-.-POP STACK INTO R2 

(SP)+,R1 ;;POP STACK INTO R1 

(SP)+,RO ;;POP STACK INTO RO 

PC 

.•CYLINDER ADDRESS STORAGE 
.-TRACK, SECTOR ADDRESS STORAGE 



C7S»10eO f^MOS/S/? FCTNL TST 
COMPARE BuMER SUBROtJ'iNE 



^ 
3 
A 
S 
6 

7 



H 15 
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SEO 0189 



.S8TTL COMPARE BUFFER SUBROUTINE 

THIS SU8R0UTJNE COMPARES THE CONTENTS OF BUFONE AND BUFTWO. 
ASSUMING THAT BUFONE IS THE BUFFER FROM WHICH DATA WAS WRITTEN 
AND BUFTWO IS THE BUFFER TO WHICH DATA WAS READ. ERRORS IN BUFFER 
COMPARISON ARE REPORTED TO THE USER VIA THE USER'S ERROR CAIL. 



8 


•CALL: 






9 


•(1) 


JSR 


PC.CMPBUF 


*0 


(2) 


.WORD 


WRITE BUFFER ADDRESS 


1' 




.WORD 


READ BUFFER ADDRESS 


1? 


(3) 


BR 


?? RETURN HERE IF NO tRROR 


13 


(A) 


NOP 


RETURN HERE IF ERROR 


U 


■(5) 


ERROR 


ERROR DEFINED BY SUBROUTINE 


15 


•(6) 


??? 





16 

17 0A2A32 
042A32 
OA 2 A 34 
CA2A56 
0A2AA0 
0A2AA2 



18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
50 
31 
32 
33 
3A 
35 
36 
57 
38 
39 
AO 
A1 
A2 
A3 
AA 
A5 
A6 
A7 
A8 
A9 
SO 
51 
5? 
S3 



0A2AA6 
0A2A5A 
0A2A56 
0A2A6A 
0A2A66 
0A2A7A 
0A2476 
0A250A 



0A2506 
0A2512 
0A2516 



0A252A 
0A2530 
0A2532 
0A2536 
0A25A0 
0A25A2 
0A25A6 



0A2550 
0A2552 
0A255A 
0A2556 
0A2560 
OAi'562 



0100A6 
0101A6 
01 0246 
0103A6 
005037 



033737 
001063 
032737 
001457 
032737 
00105i 
032737 
001AA7 



013700 
013701 
052737 



022701 
10300A 
162701 
005720 
000771 
012702 
010203 



020301 
001A03 
006302 
005203 
000773 
012703 



0A2772 

OOAGOO 
100000 
000100 
010000 



00U16 
001 A02 
100000 



000020 
000020 

000001 



001370 
001352 
001352 
001 370 



0A2772 



0A,-'566 030237 



00001 3 
001 AOA 



CMP8UF 



MOV 
MOV 
MOV 
MOV 
CLR 



RO.-(SP) 
RI.-(SP) 
R2,-(SP) 
R3,-(SP) 
150$ 



.-PUSH RO ON STACK 
;PUSH R1 ON STACK 
;PUSH R2 ON STACK 
.-PUSH R3 ON STACK 
CLEAR CORRECTION FLAG 



;DETERMINE IF DATA SHOULD BE CORRECTED 



BIT 


ECI.RMOFI 


•WAS ECC CORRECTION ALLOWED ">! 


BNE 


80$ 


•NO !! 


BIT 


#DCK.RMER1I 


•WAS THERE A DATA CHECK ?"> 


BEQ 


80$ 


•NO .! 


BIT 


*ECH.RMER1I 


;IS ERROR CORRECTION HARD SET ? 


BNE 


80$ 


•YES !. 


BIT 


*FMT16.RM0FI 


•IS THIS 16 BIT FORMAT ?? 


BEQ 


80$ 


•NO !! 


DATA 


USING ECC INFORMATION 


MOV 


RM8A0,R0 


•RO = STARTING BUFFER ADDRESS 


MOV 


RMEC1I,R1 


•R1 - ECC POSITION 


BIS 


*BIT15J50$ 


•SET CORRECTION FLAG 



;MOVE RO TO WORD BOUNDARY OF ERROR BURST 



10$: 



20$: 



CMP 
BHIS 

sue 

TST 
BR 
MOV 
MOV 



ri6.,R1 
20$ 

*16..R1 
(R0) + 
10$ 
*1.R2 
R2.R3 



;IS BIT POSITION > 1 WORD 

;N0 1 ! 

.-SUBTRACT 1 WORDS WORTH 
.•ADVANCE BUFFER ADDRESS 1 

;R2 = BIT POINTER 
;R3 = BIT NUMBER 



WORD 



.•MOVE R2 TO STARTING BIT OF ERROR BURST 



30$: 



35$: 



CMP 

BEQ 

ASL 

INC 

BR 

MOV 



R3.R1 
35$ 
R2 
R3 
30$ 
*11 



.R3 



.•CORRECT THE ERROR BURST 
A0$: BIT R2.RMEC2I 



;IS R3 SAME AS R1 ?? 
.-YES li 

.•SHIFT BIT POINTER 
.'INCREMENT BIT NUMBER 

;R3 - LENGTH OF ERROR BURST 



;IS THIS BIT SE^ IN ECC PATTERN ?? 



CZR^WBO W10S/3/2 FCTNL TST 3 

COMPARE Buffer subroutine 



MACRO VGA. 00 
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54 0A2572 

55 042574 

56 042576 

57 042600 

58 042602 

59 042604 

60 042606 

61 042610 

62 042612 

63 042616 

64 042620 
o5 042622 
66 

67 

68 042624 

69 042630 

70 042636 

71 042642 

72 042650 

73 042654 
042660 
042662 

76 042664 

77 042666 

78 042670 
79 

80 

81 042672 

82 042676 

83 042702 
042706 
042712 

86 042716 

87 042724 
88 

89 



74 
75 



84 

8^) 



001405 
030210 
001402 

040210 
000401 
050210 
006302 
001003 
012702 
005720 
005303 
001361 



01 7600 
062766 
017601 
062766 
013702 
163702 
022021 
001003 
005302 
001 374 
000433 



014037 
014137 
010037 
010137 
010237 
062766 
112776 



000001 



000010 
000002 
000010 
000002 
001 340 
001414 



001140 
001142 
001 1 34 
001136 
001174 
000004 
000336 



90 


042732 


032737 


100000 


91 


042740 


001403 




92 


042742 


112776 


000163 


93 


042750 


162766 


000002 


94 


042756 


000240 




95 


042760 








042760 


012603 






042762 


012602 






042764 


012601 






042766 


012600 




96 


042770 


000207 




97 








98 


0A2772 


000000 





SEO 0190 



BEO 

BIT 

BEQ 

BIC 

BR 

BIS 

ASL 

BNE 

MOV 

TST 

DEC 

BNE 



60$ 

R2,(R0) 
50S 

R2.(R0) 
60S 

R2.(R0) 

R2 

70$ 

*1.R2 

(RO)* 

R3 

40$ 



000010 
000010 



000010 
000010 



0^.2772 

000010 
000010 



50$: 
60$: 



70$: 



80$: 



90$: 



.-DATA COMPARE FAILED 

100$: MOV -(RO).$GDDAT 

MOV -(R1),$BDDAT 

MOV RO,$GDADR 

MOV R1,$8DADR 

MOV R2.$TMP0 

ADD *4J0(SP) 

M0V6 #336,aiO(SP) 



;N0 - DO NOT CORRECT THIS BIT 
;IS THE BIT PRESENTLY SET ?? 
;N0 

.•RESET THE BIT 

;SET THE BIT 
.•SHIFT TO NEXT BH 

.•CONTINUE WITH FIRST B'T OF NEXT WORD 

.•END OF BURST ?? 
;N0 !. 



WRITE 


BUFFER TO READ 


BUFFER 


MOV 


aiO(SP).RO 


;R0 = WRITE BUFFER 


ADD 


#2J0(SP) 


.-MOVE SP TO READ ADDRESS 


MOV 


aiO(SP),Rl 


.■Rl = READ BUFFER 


ADD 


*2,10(SP) 


;MOVE SP TO RETURN ADDRESS 


MOV 


RMWCI.R2 


;R2 = NUMBER OF WORDS TRANSFER 


SUB 


RMWC0,R2 




CMP 


(R0)+.(R1)* 


.•COMPARE DATA WORDS 


BNE 


100$ 


;EXIT IF NOT EQUAL 


DEC 


R2 


.•DECREMENT WORD COUNT 


BNE 


90$ 


.•CONTINUE IF NOT DONE 


BR 


110$ 


.•DONE COMPARE - NO ERROR 



STORE GOOD DATA FOR TYPEOUT 
STORE BAD DATA FOR TYPEOUT 
STORE ADDRESS OF GOOD DATA 
STORE ADDRESS OF BAD DATA 
STORE WORD COUNT OF ERROR 
MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN CALL 



; CHANGE ERROR NUMBER IF ECC CORRECTION FAILED 



105$: 
110$: 



150$: 



BIT 
BEO 
M0V8 

sue 

NOP 

MOV 
MOV 
MOV 
MOV 
RTS 

.WORD 



*8IT15.150$ 
105$ 

*163,310(SP) 
#2.10(SP) 



(SP)*.R3 
(SP)*.R2 
(SP)*,R1 
(SP)*.RO 
PC 



WAS ECC CORRECTION USED ?? 
NO ! ! 

ECC CORRECTION FAILED 
MOVE SP TO RETURN IF ERROR 



;;POP STACK INTO R3 
;;DOP STACK INTO R2 
.-.-POP STACK INTO Rl 
;;POP STACK INTO RO 
.•RETURN TO USER 

;ECC CORRECTION FLAG 



aWMOBU RM05/3/2 ^CTNL TST 
GET STATUS SUBROUTINE 



MACKO ./04.00 
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SEO 0191 



1 

2 
3 

4 
5 
6 
7 
8 








9 








10 


OA 2 774 
OA 2 774 


0100A6 




11 


0A2776 


0101A6 




12 


OA 3000 


0102A6 




13 


OA 3002 


012700 


001 52A 


U 


OA 3006 


012701 


001 A06 


15 


OA 301 2 


012702 


0000A6 


16 


OA 301 6 


110220 




17 


OA 3020 


0050A1 




18 


OA 3022 


162702 


000002 


19 


OA 3026 


100A05 




20 


OA 3030 


022702 


000022 


21 


0A303A 


001370 




22 


OA 3036 


0050A1 




23 


0A30A0 


000770 




2A 


0A30A2 


112720 


000200 


25 


0A30A6 


012602 




26 


OA 3050 


012601 




27 


OA 3052 


012600 




28 


OA 305 A 


0002A0 




29 


OA 3056 


000207 





■ssttl get status subroutine 

THIS subroutine sets up the "GET INDEX TA8I.E" AND THE "GET 
BUFFER" FOR READING ALL SUBSYSTEM REGISTERS VIA THE GET SUBROUTINE 
AND THEN RETURNS TO THE USER. 

CALL: 



GETSTS: 



2$: 
3$: 



A$: 



JSR 


PC. GETSTS 




??? 


RETURN HERE 


MOV 


RO.-(SP) 


.-PUSH RO ON STACK 


MOV 


RI.-(SP) 


;PUSH Rl ON STACK 


MOV 


R2,-(SP) 


;PUSH R2 ON STACK 


MOV 


#GET]NX,RO 


RO = ADDRESS OF INDEX TABLE 


MOV 


tfRMEC2I+2.R1 


Rl = ADDRESS OF GET BUFFER 


MOV 


#RMEC2.R2 


R2 = REGISTER INDE 


M0V8 


R2.(R0)+ 


WRITE REGISTER INDEX IN TABLE 


CLR 


-(R1) 


CLEAR CORRESPONDING LOCATION 


SUB 


ft2.R2 


DECREMENT TO NEXT INDEX 


BMI 


A$ 


BRANCH OUT IF DONE 


CMP 


/rRMD8,R2 


DONT WRITE RMDB INDEX 


BNE 


2$ 




CLR 


-(Rl) 




BR 


3$ 




M0V8 


*200.(R0)> 


WRITE TERMINATOR 


MOV 


(SP)*.R2 ; 


;POP STACK INTO R2 


MOV 


(SP)+.R1 


;POP STACK INTO Rl 


MOV 


(SP)+.R0 


;POP STACK INTO RO 


NOP 






RTS 


PC 





CZRMtBO RM05/V? 'CTNL "ST 3 
GET SUBROUTINE 

1 

2 

3 

A 

5 

6 

7 

8 

9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
?0 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 

31 043060 0002A0 

32 OA 3062 062716 OOOOOA 

33 OA 3066 105076 000000 
3A 0A3072 162716 OOOOOA 

35 OA 3076 0100A6 
0A3100 0101A6 
0A3102 0102A6 
0A310A 0103A6 
OA 3 106 010AA6 
0A3110 0137A6 OOOOOA 
0A311A 0137A6 000006 

36 CA3120 013700 001276 

37 0A312A 012702 001336 

38 0A3130 01270A 001 52A 

39 0A313A 012737 0A32A2 
AO 0A31A2 012737 000300 
A1 OA3150 016037 000010 
A2 0A3156 016037 000000 
A3 0A316A 032737 OOAOOO 
AA OA 31 72 001007 

A5 0A317A 062766 OOOOOA 

A6 OA 3202 112776 000112 

A7 0A3210 00OA23 

A8 0A3212 10571A 

A9 0A321A 100A33 

50 OA 3216 niAOl 

M 0A322C 0A2701 177700 



«ACi*0 VOA.OO 
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SfO 01 



OOOOOA 
000006 
001 17A 
001176 
001176 

000016 
000016 



.S8TTL GET SUBROUTINE 

THIS SUBROUTINE READS THE REGISTERS WHICH ARE LISTED IN THE 
"GET INDEX TABLE" AND STORES THEIR VALUES IN THE CORRESPONDING 
LOCATION IN THE "GET REGISTER BUFFER". FOR EXAMPLE, AN 
ENTRy OF OA IN THE TABLE WILL CAUSE THE SUBROUTINE TO 
READ "WBA" AND STORE ITS CONTENTS AT THE LOCATION IN 
THE BUFFER ASSIGNED TO THAT REGISTER. THE NUMBER OF 
REGISTERS TO BE READ IS VARIABLE FROM 1 TO 22; THE INDEX 
TABLE MUST BE TERMINATED WITH A CONTROL BYTE (200) 
WHICH SHOULD FOLLOW THE LAST ENTRY. 

SUBROUTINE CALL: 



(1) 
(2) 



C3) 



RO 
R1 
R2 
R3 
RA 



GET: 



1$: 



'GET INDEX TABLE" HAS BEEN LOADED WITH REGISTER INDEX 
VALUES AND TERMINATED WITH A CONTROL BYTE 
"GET INPUT BUFFER" IS AVAILABLE FOR USE. (NOTE THAT 
UNUSED LOCATIONS, I.E. .ENTRIES IN BUFFER CORRESPONDING 
TO REGISTERS NOT READ, ARE NOT CHANGED.) 
JSR PC. GET 

BR ??? RETURN HERE IF NO ERROR FOUND 

NOP RETURN HERE IF ANY ERROR FOUND 

ERROR SUB DEFINES ERROR NUMBER 

??? 

REGISTER BASE ADDRESS 
REGISTER ADDRESS 
BUFFER BASE ADDRESS 
BUFFER ADDRESS 
POINTER TO REGISTER INDEX 



3$: 



NOP 

ADD #A,(SP) 

CLR8 a(SP) 

SUB *A,(SP) 

MOV RO.-(SP) 

MOV RI.-(SP) 

MOV R2,-(SP) 

MOV R3,-(SP) 

MOV RA, -(SP) 

MOV ERRVEC,-(SP) 

MOV ERRVEC+2,-(SP) 

MOV $8ASE,R0 

MOV ffGET8UF.R2 

MOV #GETINX,RA 

MOV m.ERRVEC 

MOV #PR6,ERRVEC+2 

MOV RMCS2(R0),$THP0 

MOV RMCS1(R0),$TMP1 

BIT WVA,$TMP1 

BNE 3$ 

ADD #A.16(SP) 

M0V8 #112.ai6(SP) 

BR 7$ 

TST8 (RA) 

8MI 9$ 

Move (RA),R1 

Bir #*CIDXMSK.R1 



; CLEAR ERROR NUMBER IN USER'S 
; ERROR CALL 

;PUSH RO ON STACK 
.PUSH R1 ON STACK 
.-PUSH R2 ON STACK 
.PUSH R3 ON STACK 
.•PUSH RA ON STACK 
;PUSH ERRVEC ON STACK 

;;PUSH ERRVEC+2 ON STACK 



; setup for timeout 

get "ned" status 
get "dva" status 
device available?? 
yes: ! 

write error number in user's 
error call 

DONE?: 
YES! ! 

R1 = REGISTER ADDRESS 
CLEAR ANY SIGN EXTENSION 



amjBO W05/5/2 fCTNL TST 5 HAC^O V(K.OO 4-APR-81 



GET SueftOUTINE 












b2 


OA 5224 


uoUwi 








Ann 


53 


043226 










HUVO 


54 


043230 




1 777AA 








5S 


043234 










Ann 


56 


043236 


M 1 1 1 Z 
Ul 1 1 1 3 








rvjw 


5/ 


043240 


0UU'O«» 








no 


58 














59 


043242 










rMP 


60 


043244 


Vocfoo 




UUuU 1 o 




Ann 


6T 


043252 


1 1 




AAAA 1 ^ 






62 


043260 


1 A77AA 
1 Oc r OO 




wuu < o 


t 9 ' 




o3 


043266 


IU5f I** 










64 


043270 










RMI 


65 


043272 










n R 


66 


043274 












67 


043276 


/V>A7AT 
UOUcU J 








ADD 


68 


043300 












69 


043302 


r>nn77i 








on 


70 


043304 








7P • 






C43304 


ni 5AZ7 

U 1 cojf 












043310 


012637 


000004 






MOV 




043314 


012604 








MOV 




043316 


012603 








MOV 




043520 


012602 








MOV 




043322 


012601 








MOV 




043324 


012600 








MOV 


71 


043326 


000207 








RTS 



L 15 

01:15:59 PAGE 20-1 



SFO 0193 



R0.R1 

(R4)*.R3 

#»CI0XMSIC.R3 

R2.R3 

(R1).(R3) 

3S 

(SP)*.(SP)* 

*4.16(SP) 

#7.ai6(SP) 

*2,16(SP) 

(R4) 

9S 

R3 

(R4W.R3 
R2.R3 
(R3) 
8S 

(SP)+. ERRVEC+2 

(SP)+,ERRVEC 

(SP)*.R4 

(SP)+,R3 

(SP)-^,R2 

(SP)+,R1 

(SP)*.R0 

PC 



;R3 - STORAGE ADDRESS FOR REGISTER 
.'CLEAR ANY SIGM EXTENSION 

;REAO REGISTER 



.•RESTORE STACK 

.•WRITE ERROR NUMBER IN 

.•USER'S ERROR CALL 

.•DONE CLEARING?? 

;YES. ; 

.CLEAR REMAINING STORAGE 
.•LOCATIONS 



;;POP STACK INTO ERRVEC*2 
;POP STACK INTO ERRVEC 
;POP STACK INTO R4 
;POP STACK INTO R3 
;POP STACK INTO R2 
;POP STACK INTO Rl 
;POP STACK INTO RO 
RETURN 



PUT SUBROUTINE 



2 
5 

5 
6 
7 

8 

9 

10 
11 
1? 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 

28 043330 

29 043332 
043334 
043336 
043340 
043342 
043344 
043350 

30 043354 

31 043360 

32 043364 

33 043370 

34 043376 

35 043404 

36 043412 

37 043420 

38 043426 

39 045430 

40 043436 

41 043444 

42 043446 

43 043450 

44 043452 

45 043454 

46 043460 

47 043462 

48 043464 

49 043470 

50 043472 

51 043474 



'ST 3 »1ACR0 V04.00 4-APR-81 01:15 



n 

;59 PAGE 



15 

21 



SEO cm 



,S8TTL PUT SUBROUTINE 



THIS SUBROUTINE WRITES THE REGISTERS WHICH ARE LISTED IN THf 
'Put INDEX TABLE" WITH THE CONTENTS OF THE CORRESPONDING 
LOCATION IN THE 'PUT REGISTER BUFFER". THE NUMBER Of 
REGISTERS WRITTEN IS VARIABLE; THE INDEX TABLE MUST 
BE TERMINATED WITH A CONTROL BYTE (200) WHICH SHOULD 
FOLLOW THE LASi ENTRY. 

SUBROUTINE CALL: 



(1) 
(2) 
(3) 



RO 
R1 
R2 
R3 
R4 



000240 






PUT : 


NOP 




010046 








MOV 


RO.-(SP) 


010146 








MOV 


RI.-(SP) 
R2.-{SP) 


010246 








MOV 


010346 








MOV 


R3.-(SP) 


010446 








MOV 


R4,-(SP) 


013746 


000004 






MOV 


ERRVEC,-(SP) 


013746 


000006 






MOV 


ERRVEC*2,-(SP) 


013700 


001276 






MOV 


$8ASE.R0 


012702 


001412 






MOV 


#PUTBUF,R2 


012704 


001553 






MOV 


#PUTINX,R4 


012737 


043500 


000004 




MOV 


*5$,ERRVEC 


012737 


000300 


000006 




MOV 


*PR6,ERRVEC*2 


016037 


000010 


001174 


U: 


MOV 


RriCS2(R0),$TMP0 


016037 


000000 


001 1 76 




MOV 


RMCS1 (RO) ,$TMP1 


032737 


004000 


001176 




BIT 


mA.STMPI 


001007 








BNE 


3S 


062766 


000004 


000016 




ADD 


*4,16(SP) 


112776 


000112 


000016 




M0V8 


<f112,al6(SP) 


000424 








BR 


7$ 


105714 






3$; 


TST8 


(R4) 


100425 








BMI 


9$ 


111401 








M0V8 


(R4),R1 


042701 


177700 






BIC 


#*CIDXMSK,R1 


060001 








ADD 


R0,R1 


111403 








MOVB 


(R4),R5 


042703 


1 77700 






BIC 


**CIDXMSK.R5 


060203 








ADD 


R2.R5 


011311 








MOV 


(R3).(R1) 


105724 






4S: 


TST8 


(R4)* 



"PUT INDEX TABLE" HAS BEEN LOADED WITH INDEX VALUES 
OF REGISTERS TO BE WRITTEN. 

■T>UT REGISTER BUFFER" CONTAINS CONTENTS OF EACH 
REGISTER TO BE WRITTEN. 
JSR PC, PUT 

BR ??? RETURN HERE IF NO ERROR FOUND 

NOP RETURN HERE IF ANY ERROR FOUND 

ERROR SUB DEFINES ERROR NUMBER 

??? 

REGISTER BASE ADDRESS 
REGISTER ADDRESS 
BUFFER BASE ADDRESS 
BUFFER ADDRESS 
POINTER TO REGISTER INDEX 



;;PUSH RO ON STACK 
;;PUSH R1 ON STACK 
;;PUSH R2 ON STACK 
;;PUSH R3 ON STACK 
;;PUSH R4 ON STACK 
;;PUSH ERRVEC ON STACK 

;;PUSH ERRVEC+2 ON STACK 



.•SETUP FOR TIMEOUT 

GET "MED" STATUS 
GET 'DVA" STATUS 
DEVICE AVAILABLE?? 
YES! ! 

WRITE ERROR NUMBER IN 
USER'S ERROR CALL 

DONE?? 
YES! ! 

R1 = REGISTER ADDRESS 
CLEAR ANY SIGN EXTENSION 

;R3 = STORAGE ADDRESS 
.•CLEAR ANY SIGN EXTENSION 

.-WRITE REGISTER 

.•ADJUST REGISTER POINTER 



^ZRMOBO RM05/5/2 FCTNL TST 3 MAC«0 V04.00 
PLT SUBROUTINE 

52 0A3476 000765 

54 043500 022626 5$: 

55 043502 062766 000004 000016 

56 04351 C 112776 000007 OOOO16 

57 043516 162766 000002 000016 7$: 

59 043524 9$: 
045524 012637 000006 

043530 012657 000004 

045534 012604 

045556 012605 

045540 012602 

045542 012601 

045544 012600 

60 043546 000207 
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SEO 019'. 



BR 5S 

CMP (SP) .-ADJUST STACK 

ADD *4.16(SP) .-WRITE ERROR NUMBER IN 

M0V8 #7.ai6(SP) ;USER'S ERROR CALL 

SUB /r2.16(SP) 



MOV (SP)*,ERRVEC+2 ;;POP STACK. INTO ERRVEC*2 

MOV (S'-')*,ERRVEC ;;POP STACK INTO ERRVEC 

MOV (SP)*.R4 ;;POP STACK INTO R4 

MOV (SP)*.R5 ;;POP STACK INTO R5 

MOV (SP)>.R2 ;;POP STACK INTO R2 

MOV (SP)*,R1 ;;POP STACK INTO R1 

MOV (SP)*.RO ;;POP S^ACK INTO RO 

RTS PC .-RETURN 



/P«1080 R«)5/^/2 KTNL TS^ 3 
IZE ZLOiK SUbROUKNE 

1 

? 

3 OA 35 50 

4 0/.3550 013746 000004 

5 043554 013746 000006 

6 043560 012737 043616 

7 043566 012737 000300 

8 043574 012737 177546 

9 043602 012737 000100 

10 043610 005777 135^04 

11 043614 000421 

12 043616 022626 

13 043620 012737 043650 

14 043626 01273/ 172540 

15 043634 012737 000104 

16 043642 005777 135652 

17 043646 000404 

18 043650 022626 

^9 043652 062766 00000? 

20 C43660 

043660 012637 000006 

21 043664 012637 000004 
?? 043670 000207 
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.S8TTL SIZE CLOCK SUBROUTINE 



SIZCLK: 







MOV 


ERRVEC -(SP) 






MOV 


CRRVEC*? -'SP) 






MOV 


#1S ERRVEC 


000006 




MOV 


#PR6. ERRVEC ^2 
#1 77546. CLKADR 


001520 




MOV 






MOV 
TST 
BR 


#100-CLKVCT 

aCLKADR 

3$ 




1$: 


CMP 


(SP)*.(SP)* 


000004 




MOV 


#2$. ERRVEC 


001 520 




MOV 


#1 72540. CLKADR 


001522 




MOV 


*104,CLKVCT 




TST 
BP 


aCLKADR 
3$ 




2f: 


CMP 


(SP)*.(SP)* 
#2.4(SP) 

(SP)*.ERRVEC*2 
(SP) ♦.ERRVEC 
PC 


000004 


3$: 


ADD 

MOV 

MOV 
RTS 



SEO 0196 



;PUSH ERRVEC ON STACK 

.-.-PUSH ERRVEC ^2 ON STACK 
SET UP FOR BUS TJMEOUT 

LOAD ADDRESSES FOR KW11-L 

TEST FOR KW11-L PRESENT 
VES - KW11-L IS PRESENT 
RESTORE SP 

SET UP FOR BUS TIMEOUT 

LOAD ADDRESSES FOR KWll-P CLOCK 

TEST FOR KU11-P PRESENT 
YES - KW11-P IS PRESENT 
RESTORE SP 
MOVE RETURN TO ERROR 

;;POP STACK INTO ERRVEC*2 
;;POP STACK INTO ERRVEC 
.-RETURN TO USER 



CZWOBO RM05/3/2 fCTf<L TST I 
TIMEOUT SUBROUTINE 

1 
2 
3 
4 
5 
6 
7 
8 

9 OA 5672 

043672 010046 

043674 010146 

043676 010246 

045700 013746 000004 

045704 013746 000006 

10 043710 012737 044012 

11 043716 012737 000300 

12 043724 013700 001276 

13 043730 013701 001520 

14 043734 012702 000036 

15 043740 020127 172540 

16 043744 001003 

17 043746 012761 000001 

18 043754 012711 000005 
19 

20 043760 016046 000000 

21 043764 042716 177576 

22 043770 022726 000200 

23 043774 001420 

24 043776 032711 000200 

25 044002 001766 

26 044004 005302 
2/ 044006 001354 
28 044010 000412 
29 

30 044012 022626 

31 044014 062766 000004 

32 044022 112776 000007 

33 044030 162766 000002 
34 

35 044036 

044036 012637 000006 

C44042 012637 000004 

044046 012602 

044050 012601 

044052 012600 

36 044054 000207 



HACMO V04.00 
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SEQ 0197 



.S8TTL TIMEOUT SUBROUTINE 

THIS SUBROUTINE WAITS FOR RDY 1 AND 60 = 0 OR FOR A TIMEOJT 
GREATER THAN APPROX. 500 MSEC AND THEN RETURNS. 



CALL: JSR 



TIMOUT: 



000004 
000006 



000002 



1$: 



2S: 
3S: 



000012 
000012 
000012 



4$: 



5$: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CMP 
BNE 
MOV 
MOV 

MOV 
SIC 
CMP 
BEG 
BIT 
BEQ 
DEC 
BNE 
BR 

CMP 
ADD 
MOVB 

sue 



MOV 
MOV 
MOV 
MOV 
MOV 
RTS 



PCTIMOUT 



RETURN HERE 



RO.-(SP) 

RI.-(SP) 

R2.-(SP) 

ERRVEC.-(SP) 

ERRVEC+2,-(SP) 

*4$,ERRVEC 

*PR6.ERRVEC*2 

$8ASE,R0 

CLKADR.Rl 

*30.,R2 

Rl.*l 72540 

2$ 

*8JT2!BIT0,(R1) 



PUSH RO ON STACK 
PUSH Rl ON STACK 
PUSH R2 ON STACK 
PUSH ERRVEC ON STACK 

;;PUSH ERRVEC+2 ON STACK 
SETUP FOR BUS TIMEOUT - 04 TRAP 

R0=8ASE ADDRESS 
R1=CL0CK ADDRFSS 
R2-NUMBER OF CLOCK CYCLES 
KWll-P CLOCK?? 
NO! ! 

SET COUNTER 
START COUNTER 



RMCSKRO), -(SP) ;GET STATUS 
#*C<RDY!GO>.(SP) 
#RDY.(SP)* 



5$ 

*8IT7.(R1) 

3$ 

R2 

1$ 

5$ 

(SP)*, (SP)* 
*4J2(SP) 
*7,ai2(SP) 
*2J2{SP) 



(SP)+,ERRVEC+2 

(SP)+, ERRVEC 

(SP)*.R2 

(SP)+.R1 

'SP)+,RO 

PC 



RDY=l.GO-0?? 
YES! ! 

TIMER DONE?? 
NO! ! 

DEC NUMBER OF CYCLES 
CONTINUE IF NOT DONE 

"RDY' DiD NOT SET OR "GO" DID NOT RESET 

WITHIN 500 MSEC AFTER THE COMMAND WAS ISSUED. 

ADJUST STACK 

MOVE SP TO USER'S CALL 

WRITE ERROR NUMBER 



;;POP STACK INTO ERRVEC+2 
POP STACK INTO ERRVEC 
POP STACK INTO R2 
POP STACK INTO Rl 
POP STACK INTO RO 



RETURN TO USER 



CZRMOeO RM05/3/2 FCTNL TST 3 
PRIMARY ERROR CHECK SueROUHNE 

1 

I 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
54 
35 
36 
37 
38 

39 044056 

40 

41 

42 044056 062716 000004 

43 044062 105076 000000 

44 044066 162716 000004 
45 

46 

47 044072 013737 001346 

48 044100 042737 177770 

49 044106 013737 001234 

50 044114 042737 177770 

51 044122 123737 001140 
52 

53 044130 001415 

54 044132 062716 000004 

55 044136 112776 000001 

56 044144 162716 000002 

57 044150 004736 
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SEO 0198 



001142 
001142 
001140 
001140 
001142 



000000 



.S8TTL PRIMARY ERROR CHECK SUBROUTINE 

THE PURPOSE OF THIS SUBROUTINE IS TO VERIFY THAT STATUS IS VALID AND 
THAT FURTHER ERROR AND STATUS CHECKING SHOULD BE PERFORMED. THE 
FOLLOWING CHECKS ARE MADE: 

.CORRECT UNIT IS SELECTED, I.E.. THE UNIT SELECT BITS OF RMCS2 
(BITS 0-2) EQUAL THE UNIT BEING TESTED; 

.SELECTED UNIT IS AVAILABLE, I.E., DVA (BIT 11 OF RMCS1) IS SET 
AND NED (BIT 12 OF RMCS2) IS RESET; 

.LAST COMMAND WAS COMPLETED, I.E., THE MASSBUS CONTROLLER IS 
READY (BIT 7 OF RMCS1) AND THE GO BIT IS RESET (BIT 0 OF RMCS1) OR THE 
DRIVE READY BIT (BIT 7 OF RMDS) IS SET. 

.NO PARITY ERROR OCCURRED WHEN READING REMOTE REGISTERS, 
I.E., MCPE = 0. 

.NO PARITY ERROR OCCURRED WHEN WRITING REMOTE REGISTERS, 
I.E., PAR - 0, OR, PAR = DPE = 1 

THE SUBROUTINE ASSUMES THAT: 

.STATUS HAS BfEN STORED IN THE REGISTER INPUT BUFFER, 
IN PARTICULAR. RMCS1 . RMCS2 AND RMDS HAVE BEEN STORED IN THEIR 
CORRESPONDING LOCATIONS OF THE "GET" BUFFER. 

.(SUNIT) CONTAINS THE DRIVE NUMBER 

THE SUBROUTINE IS CALLED AS FOLLOWS: 



(1) 



JSR 
BR 
NOP 
ERROR 

JSR 



PC.PRIERR 

779 



pc.a(SP)+ 



PRIERR: 



; CLEAR USER'S ERROR CALL 

ADD *4,(SP) 

CLRB a(SP) 

SUB *4.(SP) 



RETURN HERE IF NO ERROR 

RETURN HERE TO REPORT AN ERROR 

ERROR NUMBER DEFINED BY SUB 

GO BACK TO SUB FOR MORE ERROR CHECKS 

RETURN HERE IF NO MORE ERRORS 



MOVE (SP) TO ERROR CALL 

CLEAR ERROR NUMBER 

MOVE (SP) TO NO ERROR RETURN 



;REPORT AN ERROR IF THE WRONG UNIT IS SELECTED 



MOV 
BIC 
MOV 
BIC 
CMPB 

BEQ 

ADD 

M0V8 

SUB 

JSR 



RMCS2I,$BDDAT ;CORRECT UNIT SELECTED?? 
**CUNTMSK.$BDDAT 

SUNIT, SGDDAT ;GOOD DATA FOR TYPEOUT 
**CUNTMSK,$GDDAT 

$GDDAT,$BDDAT ; COMPARE EXPECTED AND RECEIVED 
; DRIVE NUMBERS 
;YES. . 



1$ 
*4,(SP) 

#1 .a(sp) 

*2,(SP) 

pc.a(sp)* 



'ERROR 1 

•MOVE SP TO RETURN FOR ERROR 
;RE''ORT WRONG UNIT SELECTED 



CZRMOeO 


Rfl05/3/2 FCTNL 


TST 3 


PRIMARY 


ERROR CHECK SUBROUTINE 


58 


0441 52 


162716 


000010 


59 


044156 


000240 




60 


044160 


000137 


044700 


61 


044164 






62 








63 








6A 








65 


044164 


032737 


AAA 

004000 


66 


0441 72 


001045 




67 


044174 


013737 


AA 1 77 y 

001336 


68 


044202 


052737 


A A / AAA 

004000 


o9 


044210 


013737 


AA1 7 7Z 

001336 


70 


044216 


AZ Z 

062716 


A AA AA / 

000004 


71 


0^^222 


^ 4 ^^Z 

1 12776 


AA A AA *^ 

000002 


72 


044230 


7 77 7 

032737 


AI AAAA 

010000 


73 


044236 


/^A 1 y 1 y 

001414 




7A 


044240 


A-l 7 777 

013737 


A A 1 7 y Z 

001346 


75 


044246 


7777 

01 3737 


A A 1 7 y Z 

001346 


76 


rty y 'ic / 


A/ "^777 


A 1 AAAA 

010000 


77 


C44262 


i i ^77^. 

\\c77b 


AAAAA7 

0C0003 


78 


044270 


■1 Z 17'< Z 


AAAAA'^ 

000002 


79 


044Zr4 


AA/ 7TZ^ 

004 r 36 




80 


0**'*27o 


162716 


AAAA1 A 

000010 


81 


044302 


AAATy A 

000240 




82 


Ay y TAy 

044304 


AAAC 7C 

000575 




83 


Ay / TAZ. 

044306 






84 








85 








86 


Ay / 7Ai 


A7 "^77 7 

052757 


AAATAA 

000200 


87 


A / y 7 ^ y 

044314 


AA-I A7A 

001030 




88 


Ay y 71 z 

044316 


Ai 777 7 

01 373r 


AA1 77Z 

Q01336 


89 


Ay y T'^y 


/lC'^777 

05273^ 


AAA1AA 

000200 


90 


Ay / 77 T 

044332 


A/ T777 

042737 


1 Z AAA 1 

160001 


91 


A/ / 7/ A 

044340 


013o^ 


AA-l 77^ 

001 336 


92 




AZ. *571 Z. 

062716 


A A AAA/ 

000004 


93 


A/ y 7C'5 


\\2fft 


A AAAA y 

000004 


94 


A/ / 7^ A 

044360 


1 Z. 171 Z. 

162716 


AAAAA1 

000002 


95 


Ay y 7z y 

044364 


AAy 7 /Z. 

004736 




96 


Ay y 7z z 

044366 


i Z 1 71 Z 

162716 


AAAA1 A 

000010 


' 97 


Ay y 77*5 

044372 


AAA'^y A 

000240 




98 


A y / 7 "^y 

044374 


AAAC y 1 

000541 




99 


A/ y 7^Z 

044 376 






100 








101 








102 


Ay / 7 7Z. 

0443/^6 


032737 


A A AAA i 

000001 


103 


Ay y y Ay 

044404 


A A 1 y 7 1 

001431 




10A 


A/ y y Az 

044406 


A7 177 7 

032737 


AA A 1 A A 

000200 


105 


f\i i y 1 y 

044414 


AA1 A1C 

001025 




106 


A> / / 1 Z. 

044416 


AI 7777 

013737 


AA1 7 7Z. 

001336 


107 


U4*(*(C4 




loUUU 1 


108 




013737 


001336 


109 


044440 


062716 


000004 


110 




112776 


000005 


ni 


044452 


162716 


000002 


112 


044456 


004736 




113 


044460 


162716 


000010 




044464 


000240 
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sue *10,(SP) .-RESTORE (SP^ 

NOP 

JMP 10$ .-SKIP OTHER CHECKS 

1%: 

.•REPORT AN ERROR IF THE DEVICE IS NOT AVAILABLE OR IF 
;THE DEVICE IS NONEXISTANT 



001336 


BIT 


#DVA.RMCS1I 


.•DEVICE AVAILABLE?? 




BNE 


5$ 


.-vEs; ; 


001140 


MOV 


RMCSII.SGDDAT 


.•EXPECTED STATUS 


001140 


BIS 


*DVA,$GDDAT 




001142 


MOV 


RMCSII.SBDDAT 


.•RECEIVED STATUS 




ADD 


#4,(SP) 




000000 


M0V8 


*2.a(SP) 


; ERROR *2 


001346 


BIT 


*NED.RMCS2I 


;WAS NED SET?? 




BEQ 


2$ 


;N0l 1 


001140 


MOV 


RMCS2I .SGDDAT 


.-EXPECTED STATUS 


001142 


MOV 


RMCS2I.$BDDAT 


.-RECEIVED STATUS 


001140 


BIC 


#NED.$GDDAT 




000000 


MOVB 


«.a(SP) 


.-YES - CHANGE ERROR NUMBER 


2$: 


SUB 


#2.(SP) 


.-MOVE SP TO RETURN FOR ERROR 




JSR 


PC,a(SP)+ 


.-REPORT DEVICE NOT AVAILABLE 




SUB 


*10.(SP) 


.-RESTORE (SP) 




NOP 








BR 


10$ 


.-SKIP OTHER CHECKS 



5$: 



.•REPORT AN ERROR IF MASSBUS CONTROLLER IS NOT READY 



001336 


BIT 


#RDY.RMCS1I 


.CONTROLLER READY?? 






BNE 


7$ 


.-YES.'.' 




001140 


MOV 


RMCS1I.$GDDAT 


.•EXPECTED STATUS 




001140 


BIS 


#RDY.$GDDAT 






001140 


BIC 


#sc.tre:mcpe! 


GO.SGDDAT 




001142 


MOV 


RMCS1I,$8DDAT 


.-RECEIVED STATUS 






ADD 


*4.(SP) 




000000 


M0V8 


/lf4.a(SP) 


-ERROR ^4 






SUB 


*2.(SP) 


•MOVE SP TO RETURN FOR 


ERROR 




JSR 


pc.a(SP)+ 


.•REPORT CONTROLLER NOT 


READY 




SUB 


*10,(SP) 


.-RESTORE (SP) 






NOP 








BR 


10$ 


.-SKIP OTHER CHECKS 





7$: 



.-REPORT AN ERROR IF GO IS NOT ZERO AND DRr IS NOT ONE 



001336 


BIT 


#G0,RMCS1I 


;G0 RESET?? 




BEQ 


8$ 


;YES: ! 


001350 


BIT 


WRY.RMDSI 


;DRIVE READY?? 




BNE 


8$ 


;YES: I 


001140 


MOV 


RMCS1I.$GDDAT 


.-EXPECTED STATUS 


001140 


BIC 


#SCITRE!MCPE! 


GO.$GDDAT 


001142 


MOV 


RMCS1I,$8DDAT 


.-RECEIVED STATUS 




ADD 


#4.(SP) 




000000 


MOVB 


#5,a(SP) 


'ERROR ffS 




sue 


#2.(SP) 


•MOVE SP TO RETURN FOR ERROR 




JSR 


PC,a(SP)* 


.•REPORT DRIVE NOT READY 




SUB 


#10. (SP) 


.•RESTORE (SP) 




NOP 
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US 

117 
118 
119 
1?C 
12* 
'id 
125 
24 
12G 
V6 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
KO 
K1 
142 
143 
144 
145 
146 
147 
148 
149 
^50 
151 

15: 

153 
154 
155 
156 
157 
158 
159 
160 
161 



044466 
044470 



000504 



MACRO V04.00 
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SEO 0200 



BR 



10$ 



044552 
044560 
044562 
044570 
044572 
044600 
044602 
044604 
044610 
044614 
044616 
044620 
044622 
044624 
044626 
044630 
044636 
044644 
044652 
044656 
044664 
044670 
044672 
044676 
044700 
044704 
044 706 



.•REPORT AN ERROR IF THE RH CONTROLLER DETECTED BAD 
.•PARITY ON THE MASS8US CONTROL BUS 





032737 


020000 


001 336 


BIT 


•MCPE.RMCS1I 


.•PARITY ERROR ?? 


C44476 


0C1425 






BEQ 


9$ 


;NOI ! 


044500 


013737 


001 336 


001140 


MUV 


RMCS1I,$GDDAT 


.•EXPECTED STATUS 


0445^6 


041737 


160001 


001140 


BIC 


/irSCiTRElMCPE! 


G0,$GDDAT 


044514 

: 44 522 


013737 


001 336 


001142 


MOV 


RMCSII.SBDDAT 


.■RECEIVED STATUS 


C62716 


000004 
00001 3 




ADD 


#4.(SP) 


.-MOVE STACK TO USER'S ERROR 


044526 


112776 


000000 


wove 


#13.a(SP) 


•ERROR ft^3 


044534 


162716 


000002 




sue 


#2.(SP) 


•MOVE SP TO RETURN FOR ERROR 


044540 


004736 






JSR 


PC.a(SP)* 


.•REPORT ERROR VIA USER 


044542 


162716 


000010 




sue 


#10. (SP) 


.'RESTORE STACK 


044546 


000240 






NOP 






044550 


000453 






BR 


10$ 




044552 






9$: 









032737 
001451 
032737 
001045 
032737 
001413 
010046 
012700 
122710 
001002 
012600 
000431 
105720 
100371 
012600 
013737 
042737 
013737 
062716 
112776 
162716 
004736 
162716 
000240 
062716 
000240 
000207 



000010 
000010 
000010 



001553 
000014 



001352 
001400 
001426 



.•REPORT 



001352 
000010 
001352 
000004 
000050 
000002 

000010 

000010 



001140 
001140 
001142 

000000 



91$: 



92$: 



93$: 



10$: 
11$: 



AN ERROR 
BIT 
BEO 
BIT 
BNE 
BIT 
BEO 
MOV 
MOV 
CMP8 
BNE 
MOV 
BR 
TST8 
BPL 
MOV 
MOV 
BIC 
MOV 
ADD 
M0V8 

sue 

JSR 

sue 

NOP 
ADD 
NOP 
RTS 



IF DETECTED A 
#PAR,RMER1I 
11$ 

#DPE.RMER2I 
11$ 

tfPAR.RMERIO 
93$ 

RO.-(SP) 
#PUriNX.RO 
#RMER1,(R0) 
92$ 

(SP)+. RO 
11$ 
(R0) + 
91$ 

(SP)+, RO 
RMER1I.$GDDAT 
#PAR,$GDDAT 
RMER1I,$BDDAT 
#4.(SP) 
#50.a(SP) 
#2.(SP) 
PC.a(SP)+ 
#10, (SP) 

#10. (SP) 



PC 



CONTROL BUS PARITY ERROR 
WAS THERE A PARITY ERROR?? 
NO! i 

WAS IT THE CONTROL BUS?? 
NOT SURE!! 
DID TEST SET PAR ?? 
NO! ! 

;PUSH RO ON STACK 
RO POINTS TO INDEX TABLE 
SEARCH TABLE FOR RMER1 

;POP STACK INTO RO 
PAR WAS SET BY TEST 
END OF TABLE?? 
NO! ! 

;POP STACK INTO RO 
EXPECTED STATUS 

RECEIVED STATUS 
MOVE SP TO USER'S ERROR CALL 
WRITE THE ERROR NUMBER 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR 
MOVE SP TO NO ERROR RETURN 

RETURN TO ERROR 
RETURN TO NO ERROR 
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SEO 0^01 



1 

2 
3 
4 
5 










6 










7 










8 










9 










10 










11 










12 










13 










U 










15 










16 










1/ 










18 










19 










20 










21 










22 










23 










24 


044710 








25 










26 










27 










28 


044710 


013737 


001412 


050544 


29 


044716 


042737 


177701 


050544 


30 


044724 


062716 


000004 




31 


044/30 


105076 


000000 




32 


044734 


162716 


000004 




33 










34 










35 










36 










37 










38 


044740 


032737 


000200 


001350 


39 


044746 


001024 






40 


044750 


013737 


001350 


001142 


41 


044756 


042737 


177577 


001142 


42 


044764 


012737 


000200 


001140 


43 


044772 


062716 


000004 




44 


044776 


112776 


000010 


000000 


45 


045004 


162716 


000002 




46 


045010 


004736 






47 


045012 


162716 


000010 




48 


045016 


000240 






49 










50 










51 


045020 


032737 


000001 


001336 


52 


045026 


001423 






53 


045030 


013737 


001336 


001142 


54 


045036 


042737 


1 77776 


001142 


55 


045044 


005037 


001140 




56 


045050 


062716 


000004 




57 


045054 


112776 


000011 


000000 



.S8TTL SECONDARY ERROR CHECK SUBROUTINE 

THE ERROR CHECK SUBROUTINE PROVIDES DETECTION OF SECONDARY ERRORS 
SUCH AS UNEXPECTED ERRORS AND UNEXPECTED REGISTER CONTENTS. THESE 
ERRORS ARE DEEMED SECONDARY IN THAT THEY ARE NOT NECESSARILY 
ASSOCIATED WITH THE OPERATION BEING PERFORMED. 

WHEN THE SUBROUTINE IDENTIFIES SUCH AN ERROR, IT MOVES THE ERROR 
NUMBER TO THE ERROR CALL IN THE TEST ROUTINE AND THEN RETURNS 
TO THE TEST ROUTINE WHICH MAKES THE ERROR CALL. AFTER THE TEST ROUTINE 
MAKES THE ERROR CALL, IT RETURNS TO THE SUBROUTINE WHICH THEN LOOKS FOR 
OTHER ERRORS. WHEN ALL ERRORS HAVE BEEN REPORTED, THE SUBROUTINE 
RETURNS TO THE ADDRESS FOLLOWING THE SUBROUTINE CALL. 



CALL: 



JSR 
BR 

NOP 

ERROR 

JSR 

779 



PC.SECERR 



pc.a(SP)+ 



RETURN HERE IF NO ERROR 

RETURN HERE ''O REPORT AN ERROR 

ERROR NUMBER DEFINED BY SUB 

GO BACK TO SUB FOR MORE ERROR CHECKS 

RETURN HERE IF NO MORE ERRORS 



;NOTE: THE SUBROUTINE ASSUMES THAT REGISTERS HAVE BEEN STORED AT THE 
.•INPUT REGISTER BUFFER. 

SECERR: 

■ ■ *************************************************************** 

; STORE FUNCTION CODE AND CLEAR USER'S ERROR NUMBER 

MOV RMCS10,515$ ;STORE FUNCTION CODE 

BIC #*C<F0!F1!F2.F3.'F4>,515$ 

ADD #4,(SP) .-MOVE (SP) TO ERROR CALL 

CLR8 a(SP) .-CLEAR ERROR NUMBER 

SUB #4,(SP) .-MOVE (SP) TO NO ERROR RETURN 

••A************************************************************** 

•CHECK SECONDARY ERRORS COMMON TO ALL COMMANDS 
.■REPORT ERROR IF DRIVE IS NOT READY. I.E.. IF DRY = 0 



BIT *DRY,RMDSI 

BNE 5$ 

MOV RMDSI.SBDDAT 

BIC **CDRY.$BDDAT 

MOV #DRY.$GDDAT 

ADD #4,(SP) 

Move *io.a(SP) 

sue #2.(SP) 

JSR pc.a(sp)+ 

SUB *10,(SP) 
NOP 



.•DRIVE READY?? 
; YES! ' 
•BAD DATA FOR TYPEOUT 

.•GOOD DATA FOR TYPEOUT 

; ERROR NUMBER 

;MOVE SP TO RETURN FOR ERROR 
.•REPORT NOT READY 

.•RESTORE (SP) TO ERROR N 



.REPORT ERROR IF GO BIT IS NOT RESET 

5$: BIT XfGO.RMCSlI ;G0 BIT REStT?? 

BEQ 10$ ;yES.. 

MOV RMCSH.SBDDAT ;BAD DATA FOR TYPEOUT 

BIC tf^CGO.SBDDAT 

CLR JGDDAT ;GOOD DATA FOR TYPEOUT 

ADD *4.(SP) 

MOVB #n.a(SP) .-ERROR NUMBER 



045062 


1627'' 6 


000002 




045066 


004736 






045070 


162716 


000010 




045074 


000240 






045076 


013737 


001336 


001142 


045104 


042737 


177701 


001142 


045112 


013737 


050544 


001140 


045120 


023737 


001142 


001140 


045126 


001413 






045130 


062716 


000004 




045134 


112776 


000012 


000000 


045142 


162716 


000002 




045146 


004736 






045150 


162716 


000010 




045154 


000240 






045156 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
o9 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
Ml 
112 
*13 
114 
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sue 

JSR 

sue 

NOP 



#2. (SP) 

pc,a(sp)* 

#10. (SP) 



.REPORT ERROR IF FUNCTION CODE 
10$: 



MOV RMCSII.SBDDAT 

SIC **C76.$BDDAT 

MOV 515$.$GDDAT 

CMP $8DDAT.$GDDAT 

BEQ 15$ 

ADD #4.(SP) 

M0V8 #12.a(SP) 

SLie #2.(SP) 

JSR pc,a(SP)* 
sue *io,(SP) 

NOP 

15$: 

REPORT AN ERROR IF COMPOSITE 
ERRORS ARE SET. OR IF COMPOSI 
OTHER ERRORS ARE SET 



.•MOVE SP TO RETURN FOR ERROR 
.•REPORT DEVICE NOT AVAILABLE 
."RESTORE (SP) 



READ FROM DEVICE IS NOT CORRECT 
;IS FUNCTION CODE CORRECT?? 

.-EXPECTED FUNCTION CODF 

;YES. ! 



ERROR NUMBER 

MOVE SP TO RETURN FOR ERROR 
REPORT WRONG FUNCTION CODE 
.-RESTORE (SP) 



ERROR IS SET AND NO OTHER 
TE ERROR IS NOT SET AND 



045156 


005037 


001140 






CLR 


SGDDAT 


■EXPECT "ERR" - 0 


045162 


005737 


001352 






TST 


RMER1 I 


•IS RMER1 = 07? 


045166 


001003 








BNE 


20$ 


•NO! ! 


045170 


005737 


001400 






TST 


RMER2I 


•IS RMERZ = 07? 


045174 


001403 








BEQ 


25$ 


•YES. ! 

•"ERR" SOULD BE SET 


045176 


052737 


040000 


001140 


20$: 


BIS 


*ERR.$GDDAT 


045204 


013737 


001350 


001142 


25$: 


MOV 


RMDSI.$8DDAT 
**CERR.$BDDAT 




045212 


042737 


137777 


001142 




BIC 




045220 


023737 


001140 


001142 




CMP 


$GDDAT,$BDDAT 


;IS "ERR" OK?? 


045226 


001412 








BEQ 


30$ 


•YES! I 


045230 


062716 


000004 






ADD 


*4.(SP) 


•MOVE SP TO USER'S ERROR 


045234 


112776 


000047 


000000 




Move 


#47.a(SP) 


; WRITE ERROR NUMBER 


045242 


162716 


000002 






sue 


*2.(SP) 


;MOVE SP TO ERROR RETURN 


045246 


004736 








JSR 


PC.a(SP)+ 


:REPORT INVALID COMP ERROR 


045250 


162716 


000010 






sue 


*10,(SP) 





.•REPORT AN ERROR IF "TRE" IS 
IF TRE IS NOT 



045254 
04 5260 
045264 
045270 
045272 
045300 
045302 
045310 
045312 
045320 
045326 
045334 
045342 
045344 
045350 
045356 
045362 



005037 
013746 
042726 
001010 
032737 
001407 
022737 
103003 
052737 
013737 
042737 
023737 
001413 
0<^2716 
112776 
162716 
004736 



001140 
001346 
000377 

040000 001350 
000030 050544 



;TRE IS SET. OR 
;SET TRE IS SET 
CLR 



SET AND NONE OF THE BITS WHICH SET 
SET AND ONE OR MORE BITS WHICH 



30$: 



040000 
001336 

137777 
001140 

000004 
000014 
000002 



001140 
001142 
001142 
0C1142 



000000 



35$: 
40$: 



MOV 

BIC 

BNE 

BIT 

BEQ 

CMP 

BHIS 

BIS 

MOV 

BIC 

CMP 

BEQ 

ADD 

M0V8 

sue 

JSR 



$GDDAT 

RMCS2I.-(SP) 

#377.(SP)+ 

35$ 

#ERR.RMDSI 
40$ 

#SEARCH,515$ 
40$ 

*TRE.$GDDAT 

RMCS1I,$BDDAT 

#*CTRE.$BDDAT 

$GDDAT,$BDDAT 

45$ 

*4.(SP) 

/^K.aCSP) 

*2,(SP) 

pc.a(SP)* 



EXPECT ■7RE" " 0 

WAS DLT. WCE, UPE, NED. NEM 

PGE, MXF OR MDPE SET 

YES! . 

WAS EXCEPTION RECEIVED?? 
NO. . 

WAS DATA TRANSFERRED?? 
NO. ! 

"TRE" SHOULD BE SET 
BAD DATA FOR TYPEOUT 

IS "TRE" OK?? 
YES. ! 

MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER 
MOVE SP TO RETURN FOR ERROR 
REPORT TRE ERROR 
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1A77'' A 


00001 0 




1 1 A 










117 


nAS^7? 








1 1 A 
1 1 o 










1 10 










1 ?n 










1 PI 










1 




















1 




















1 7f\ 










1P7 










17ft 

I CO 


06S37? 


010066 

\J 1 WHO 






170 




01 ^700 


050544 
071646 




1^0 




016037 


050S36 


1^1 


V** J** WD 


017600 


























1 34 










135 


045410 


013737 


050536 


001 140 




045416 


037737 


040000 


001350 




v"t j*t c** 


001403 






138 


045476 


057737 




001 140 


39 


045434 


047737 

V~ t 1 J 1 


077777 


001 140 


p 


04S44? 


013737 


001350 


001 142 


141 


045450 

V*? J\J 


042737 

V^ t t -J ' 


077777 


001142 


14? 


045456 




001 140 


001 142 


1 *f J 




001 61 ? 






144 


045466 


067716 


000004 




165 


04547? 


1 1 7776 


000006 

WWW 


000000 

WWW 




045500 


167716 


000007 

V V V V V t. 




1 M r 




004736 






lift 




167716 


000010 




149 




000740 






1 SO 










151 










IS? 










1S3 










1S4 




01 3737 


050536 


001 140 

V V 1 1 *t V 


15S 


045577 


047737 

V"t t f -J f 


1 77776 


001 140 

V V 1 1 ~ V 


ISA 


045530 


01 ^737 


001357 

V V 1 JC 


001 147 

W 1 \ ~c 


157 


045536 




1 77776 


001 142 

V V I 1 ~ c 


1S8 


045544 


023737 


001140 

W 1 1 ~v 


001142 

W 1 ' » c 


159 


045557 


001412 






1A0 


045S54 


067716 


000004 




1 w 1 


045S60 


^^777h 

1 lb' f u 


000754 

WvC 


000000 

www 




045566 


167716 


000007 

V V V V vc. 




163 


045572 


004736 






164 


045574 


162716 


000010 




165 


045600 


005037 


001140 




166 










167 










168 


045604 


013746 


050536 
M7777 




169 


045610 


052716 




170 


045614 


013737 


001346 


001142 


171 


045622 


0^,2657 


001142 





SU8 
NOP 



#10, (SP) 



.•RESTORE (SP; 



**************************************************************** 

USING THE FUNCTION CODE TABLE, CHECK FOR THE FOLLOWING ERRORS: 

.STATUS BITS NOT SET THAT SHOULD BE SET. E.G., ATA AND ILF 
.STATUS BITS SET THAT SHOULD NOT BE SET. E.G.. UCE AND ECH 

NOTE THAT SOME ERROR BITS ARE CONDITIONAL ON THE COMMAND AND OTHER 

STATUS CONDITIONS, E.G., WRITE LOCK ERROR SHOULD ONLY BE SET IF 

WRITE LOCK IS ON AND THE COMMAND IS A WRITE. 

GET AND STORE THE ENTRY FROM THE FUNCTION CODE TABLE 



MOV RO.-(SP) 

MOV 515$,RO 

MOV FNCDTB(RO),500$ 

MOV (SP)+.RO 



;PUSH RO ON STACK 
GET FUNCTION CODE 
STORE ENTRY 
.-POP STACK INTO RO 



.•REPORT AN ERROR IF AN UNEXPEC 



50$: 



55$: 



NOT SET 


AND SHOULD BE 


MOV 


500$,$GDDAT 


BIT 


*ERR,RMDSI 


BEQ 


50$ 


BIS 


*ATA,$GDDAT 


SIC 


#-CATA,$GDDAT 


MOV 


RMDSI.$8DDAT 


BIC 


#*CATA.$BDDAT 


CMP 


$6DDAT.$8DDAT 


BEQ 


55$ 


ADD 


#4.(SP) 


M0V8 


#6.a(SP) 


SUB 


*2,(SP) 


JSR 


PC,a(SP)* 


sue 


#10, (SP) 


NOP 





TED ATTENTION OCCURRED OR IF 
SET. 

GET EXPECTED ATA STATUS 
IS COMPOSITE ERROR SET ?? 
NO !I 

EXPECT AN ATTENTION 
STRIP DONT CARES 
GET RECEIVED ATA 
STRIP DONT CARES 
IS ATA OK ?? 
YES :i 

MOVE SP TO USERS ERROR CALL 
LOAD ERROR # IN CALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR 
RESTORE SP 



.-REPORT ERROR IF ILF IS INCORRECT, I.E., IF ILF DOES NOT COMPARE 



MOV 


500$,$GDDAT 


GET EXPECTED ILF 


BIC 


#*CILF,$GDDAT 


CLEAR ALL OTHER BITS 


MOV 


RMER1I,$8DDAT 


GET RECEIVED ILF 


BIC 


#*CILF,$BDDAT , 


CLEAR ALL OTHER BITS 


CMP 


$GDDAT,$BDDAT 


•IS ILF OK ?? 


BEQ 


60$ 


•YES !! 


ADD 


#4.(SP) 


•MOVE SP TO USERS ERROR CALL 


M0V8 


#254,a(SP) 


WRITE ERROR NUMBER IN CALL 


SUB 


#2,(SP) 


•MOVE SP TO ERROR RETURN 


JSR 


PC,a{SP)+ 


•REPORT ERROR AND RETURN 


SUB 


#10. (SP) 


•MOVE SP TO NO ERROR 


CLR 


$GDDAT 


•CLEAR EXPECTED STATUS 



60$: 

;REPORT AN ERROR IF WCE IS SET AND SHOULD NOT BE SET 



MOV 500$. -(SP) 

BIS ♦*CWCE,(SP) 

MOV RMCS2I,$BDDAT 

BIC (SP)*,$BDDAT 



GET WCE STATUS ENABLE 
SET ALL OTHER BITS 
RECEIVED STATUS 
CLEAR WCE IF ENABLED 
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SEO O^'O^ 



17? 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

133 

18A 

185 

186 

187 

188 

189 

190 

191 

192 

193 

19<. 

195 

196 

197 

198 

199 

200 

201 

202 

20i 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

2K 

215 

216 

217 

218 

219 

220 

221 

222 

223 

.V4 

r^25 

226 
227 
228 



045626 
045630 
045634 
045642 
045646 
045650 
045654 



045654 
045660 
045664 
045672 
045676 
045700 
045704 
045712 
045716 
045720 
04 5 724 



045724 
045730 
045736 
045740 
045744 
045750 
045756 
045762 
045764 
045770 
045776 
046002 
046004 
046010 



046010 
046014 
046022 
046024 
046032 
046034 
046040 
046046 
046052 



001412 
062716 

V.2776 

004736 
162716 



013746 
032737 
001402 
042716 
052716 
013737 
042637 
001412 
062716 
112776 
162716 
004736 
162716 



000004 

000026 000000 
000002 

000010 



90$: 



BEQ 

ADD 

M0V8 

SUB 

JSR 

SUB 



90$ 

*4,(SP) 

*26.a<SP) 

*2,(SP) 

pc,a(SP)+ 

*10.(SP) 



BRANCH IF WCE QK 

MOVE SP TO USER'S ERROR CALL 

WRITE ERROR NUMBER 

MOVE SP TO ERROR RETURN 

REPORT ERROR 

RESTORE ERROR 



.•REPORT ERROR IF DPI STATUS IS SET AND SHOULD NOT BE SFT 



013746 


050536 




MOV 


500$. -(SP) 


GET OPI STATUS ENABLE 


052716 


157777 




BIS 


#*C0PI.(SP) 


SET ALL OTHER BITS 


013737 


001352 


001142 


MOV 


RMER1I,$BDDAT 


GET RECEIVED STATUS 


042637 


001142 




BIC 


(SP) +.$BDDAT 


CLEAR OPI IF ENABLED 


001412 






BEQ 


100$ 


BRANCH IF OPI OK 

MOVE SP TO USER'S ERROR CALL 


062716 


000004 




ADD 


#4.(SP) 


112776 


000164 


000000 


M0V8 


*164,a(SP) 


WRITE ERROR NUMBER IN CALL 


162716 


000002 




SUB 


#2.(SP) 


MOVE SP TO ERROR RETURN 


004736 




JSR 


pc.a(SP)+ 


; REPORT ERROR 


162716 


000010 




SUB 


#10. (SP) 


;RESTORE SP 



050536 
000100 

010000 
167777 
001400 
001142 

000004 
000165 
000002 

000010 



001350 



001142 



000000 



100$: 

.•REPORT ERROR IF IVC IS SET 
;SET AND VV IS NOT RESET 
MOV 



AND IS NOT ENABLED OR IF IVC IS 



105$: 



110$: 



500$, -(SP) 

BIT m.RMDSI 

BEQ 105$ 

BIC #IVC,(SP) 

BIS #*CIVC.(SP) 

MOV RMER2I.$BDDAT 

BIC (SP)+.$8DDAT 

BEQ 110$ 

ADD #4,(SP) 

M0V8 #165,a<SP) 

SUB #2,(SP) 

JSR PC,a(SP)-^ 

SUB *10.(SP) 



GET IVC STATUS ENABLE 
IS VV SET 
NO I! 

YES - IVC SHOULD BE 0 

SET ALL OTHER BITS 

GET RECEIVED STATUS 

CLEAR IVC IF ENABLED 

BRANCH IF IVC OK 

MOVE SP TO USERS ERROR CALL 

WRITE ERROR NUMBER IN CALL 

MOVE SP TO ERROR RETURN 

REPORT ERROR 

RESTORE SP TO NO ERROR 



012746 }77777 

052737 004000 050536 

001404 

032737 004000 001350 
001002 

042716 004000 

013737 001352 001142 

042637 001142 
001412 



BIT 11 (WLE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR 
ALL WRITE ERRORS. I.E., 
RMER1 - WLE. WCF 
RMER2 - DPE 
RMCS2 - UPE. 

EACH OF THESE ERRORS IS CHECKED TO SEE IF AN ERROR IS SET WHEN THE 
WRITE ERROR ENABLE BIT IS RESET. 

.•REPORT AN ERROR IF WLE IS SET AND WRITE ERROf:* AlE NOT ENABLED, OR IF 
.-THE DRIVE IS NOT WRITE PROTECTED 



115$: 
120$: 



MOV 4^-1, -(SP) 

BIT <fWLF.500$ 

BEQ 115$ 

BIT #WRL.RMDSI 

BNE 120$ 

BIC *WLE.(SP) 

MOV RMER1I.$BDDAT 

BIC (SP) +.$BDDAT 

BEQ 125$ 



ASSUME WRITE ERRORS ENABLED 
ARE WRITE ERRORS ENABLED ?? 

NO : . 

IS THE DRIVE WRITE PROTECTED ?? 
YES !! 

RESET WLE ENABLE 
GET RECEIVED STATUS 
CLEAR WLE IF ENABLED 
BRANCH IF WLE OK 
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2A1 



?29 046054 

230 046060 

231 046066 

232 046072 

233 046074 
2% 046100 
235 

236 

237 046100 

238 046104 

239 046112 
046114 
046120 

242 046126 

243 046132 

244 046134 

245 046140 

246 046146 

247 046152 

248 046154 

249 0461 60 
?50 

251 

252 046160 

253 046164 

254 046172 

255 046174 

256 046200 

257 046206 

258 046212 

259 046214 

260 046220 

261 046226 

262 046232 

263 046234 

264 046240 
265 

266 

267 046240 

268 046244 

269 046252 

270 046254 

271 046260 

272 046266 

273 046272 
046274 
046300 

276 046306 

277 046312 

278 046314 

279 046320 
280 

281 

282 046320 

283 046324 

284 046330 

285 046336 



274 
275 



0627'' 6 
112776 
162716 
004736 
162716 



012746 
032737 
001002 
042716 
013737 
042637 
001412 
062716 
112776 
162716 
004736 
162716 



012746 
032737 
001002 
042716 
013737 
042637 
001412 
062716 
112776 
162716 
004736 
162716 



012746 
032737 
001002 
042716 
013737 
042637 
001412 
062716 
112776 
162716 
004736 
162716 



013746 
052716 
013737 
042637 



000004 
000023 
000002 

000010 



177777 
004000 

000040 
001352 
001142 

000004 
000025 
000002 

000010 



177777 
004000 

000010 
001400 
001142 

000004 
000040 
000002 

000010 



177777 
004000 

020000 
001 346 
001142 

000004 
000024 
000002 

000010 



050536 
175777 
001352 
001142 



000000 



125$: 



ADD 
M0V8 

sue 

JSR 

sue 



*4,(SP) 

#23.a(sp) 

#2.(SP) 

PC.a(SP)* 

#10. (SP) 



050536 
001142 

000000 



130$: 



.•REPORT ERROR IF WCF IS SET AND 

MOV *-1.-(SP) 

BIT #WcE.500$ 

BNE 130$ 

SIC #WCF.(SP) 

MOV RMER1I ,$8DDAT 

SIC (SP)+,$BDDAT 

BEQ 135$ 

ADD *4.(SP) 

M0V8 #25.a(SP) 

SUB #2.(SP) 

JSR PC,a(SP)* 

sue #10, (SP) 

135$: 



MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVt SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
RESTORE SP TO NO ERROR 



WRITE ERRORS ARE NOT ENABLED 
ASSUME WRITE ERRORS ENABLED 
ARE WRITE ERRORS ENABLED ?? 
YES !! 

DISABLE WCF ERROR 

GET RECEIVED STATUS 

RESET WCF IF ENABLED 

BRANCH IF WCF OK 

MOVE SP TO USERS ERROR CALL 

WRITE ERROR NUMBER IN CALL 

MOVE SP TO ERROR RETURN 

REPORT ERROR 

RESTORE SP TO NO ERROR 



050536 
001142 

000000 



140$: 



ERROR 


IF DPE IS SET AND WRITE ERRORS ARE NOT ENABLED 


MOV 


#-1.-(SP) 


ASSUME WRITE ERRORS ARE ENABLED 


BIT 


#WLE.500$ 


•ARE WRITE ERRORS ENABLED ?? 


BNE 


140$ 


•YES !! 


BIC 


#DPE,(SP) 
RMER2I,$8DDAT 


•RESET DPE ENABLE 


MOV 


•GET RECEIVED STATUS 


BIC 


(SP)+.$BDDAT 


•RESET DPE IF ENABLED 


BEQ 


145$ 


•BRANCH IF DPE OK 


ADD 


#4.(SP) 


•MOVE SP TO USERS ERROR CALL 


M0V8 


#40,a(SP) 


•WRITE ERROR NUMBER IN CALL 


SUB 


#2.(SP) 


•MOVE SP TO ERROR RETURN 


JSR 


PC.a(SP)+ 


•REPORT ERROR 


sue 


#10. (SP) 


•RESTORE SP TO NO ERROR 



050536 
001142 

000000 



145$: 

.•REPORT AN ERROR IF UPE IS SET 

MOV #-1.-(SP) 

BIT #WLE.500$ 

BNE 150$ 

BIC #UPE.(SP) 

MOV RMCS2I.$8DDAT 

BIC (SP)*.$BDDAT 

BbQ 155$ 

ADD #4,(SP) 

MOVB #24,a(SP) 

SUB #2.(SP) 

JSR PC,a(SP)* 

SUB #10. (SP) 

155$: 



150$: 



AND WRITE ERRORS ARE NOT ENABLED 
ASSUME WRITE ERRORS ARE ENABLED 
ARE WRITE ERRORS ENABLED ?? 
YES I! 

DISABLE UPE ERROR 
GET RECEIVED STATUS 
RESET UPE IF ENABLED 
BRANCH IF UPE OK 
MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 



.•REPORT AN ERROR IF lAE IS SET AND IS NOT ENABLED 



001142 



MOV 500$. -(SP) 

BIS #*CIAE.(SP) 

MOV RMER1I.$BDDAT 

BIC (SP)*. $BDDAT 



GET lAE ENABLE 
SET ALL OTHER BITS 
GET RECEIVED STATUS 
CLFAR lAE IF ENABLED 
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SEO 0206 



?86 

237 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

509 

310 

311 

312 

313 

3K 

315 

316 

31/ 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

542 



046542 
046344 
046350 
046356 
046362 
046364 
046370 



046370 
046374 
046402 
046404 
046410 
046416 
046422 
046424 
046430 
046436 
046442 
046444 
046450 



046450 
046454 
046462 
046464 
046470 
046476 
046502 
046504 
046510 
046516 
046522 
046524 
046530 



046550 
046534 
046542 



001412 
062716 
112776 
162716 
004736 
162716 



012746 
032737 
001002 
042716 
013737 
042637 
001412 
062716 
112776 
162716 
004736 
162716 



012746 
032737 
001002 
042716 
013737 
042637 
001412 
062716 
112776 
162716 
004736 
162716 



012746 
032737 
001002 



000004 

000166 000000 
000002 

000010 



160$: 



BEO 
ADD 
M0V8 

sue 

JSR 

sue 



160$ 
*4.(SP) 

*i66,a(SP; 

#2.(SP) 

pc.a(SP)* 

*10.(SP) 



BRANCH IF lAE IS OK 

MOVE SP TO USERS ERROR CALL 

WRITE ERROR NUMBER 

MOVE SP TO ERROR RETURN 

REPORT ERROR AND RETURN 

MOVE SP TO NO ERROR 



M7777 
001000 

100000 
001346 
001142 

000004 
000032 
000002 

000010 



\77777 
001000 

004000 
001346 
001142 

000004 
000167 
000002 

000010 



dIT 09 (AOE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR 
ALL READ/WRITE E.'^RORS. I.E.. 
RMCS1 - TRE 
RMCS2 - DLT.NEM.MXF 
RMDS - L8T 
RMER1 - AOE 

NOTE : 

LBT IS NOT CHECKED BECAUSE IT ONLY RESETS WHEN THE DESIRED 
CYLINDER REGISTER IS WRITTEN 
NOTE : 

AOE CANNOT BE SET 1^ LBT IS NOT ALSO SET 

NOTE: 

TRE IS CHECKED AS A FUNCTION OF OTHER ERROR CONDI TONS ABOVE 
.•REPORT AN ERROR IF DLT IS SET AND READ/WRITE ERRORS ARE NOT ENABLED 



050536 



001142 165$: 



000000 



MOV 


#-1.-(SP) 


■ASSUME ERRORS ARE ENABLED 


BIT 


#AOE.500$ 


ARE ERRORS ENABLED ?? 


6NE 


165$ 


■YES !! 


BIC 


#DLT.(SP) 


•RESET DLT ENABLE 


MOV 


RMCS2I.$BDDAT 


•GET RECEIVED STATUS 


BIC 


(SP)+.$BDDAT 


•CLEAR DLT IF ENABLED 


BEO 


170$ 


•BRANCH IF DLT IS OK 


ADD 


#4.(SP) 


•MOVE SP TO USERS ERROR CALL 


M0V8 


i)f32.a(SP) 


•WRITE ERROR NUTBER IN CALL 


SUB 


#2.(SP) 


•MOVE SP TO ERROR RETURN 


JSR 


pc,a(SP)* 


•REPORT ERROR AND RETURN 


SUB 


#10. (SP) 


•MOVE SP TO NO ERROR 



050536 
001142 

000000 



170$: 

.•REPORT ERROR IF NEM IS SET AND 

MOV /(r-1,-(SP) 

BIT *A0E.500$ 

BNE 1 75$ 

BIC *NEM.(SP) 

MOV RMCS2I,$BDDAT 

BIC (SP)+.$BDDAT 

BEQ 180$ 

ADD i)f4.(SP) 

M0V8 #167.a(SP) 

sue *2.(SP) 

JSR Pc.a(SP)* 

sue #10. (SP) 

180$: 



175$: 



READ/WRITE ERRORS ARE NOT ENABLED 
ASSUME ERRORS ARE ENABLED 
ARE ERRORS ENABLED ?? 
YES !! 
DISABLE NEM 
GET RECEIVED STATUS 
CLEAR NEM IF ENABLED 
BRANCH IF NEM IS OK 
MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 



\77777 

001000 050536 



.•REPORT ERROR IF MXF IS SET AND READ/WRITE ERRORS ARE NOT ENABLED 



MOV 
BIT 
BNE 



#-1 ,-(SP) 
#AOE . 500$ 
185$ 



ASSUME ERRORS ARE ENABLED 
ARE DATA ERRORS ENABLED ?? 
YES !1 
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SEQ 0207 



543 


046544 


0427^6 


AAA 

001000 




046550 


013737 


C01346 


345 


046556 


042637 


AA'l ■1/1 

001 142 


346 


046562 


001412 




547 


04656>4 


062716 


AAAAA / 

000004 


348 


046570 


1 12776 


000033 


349 


f\J A C ^A 

046576 


162716 


A AAA A 

000002 


350 


046602 


004/36 




351 


046604 


162716 


^AAA'l A 

©00010 


552 


0466 lO 






353 








354 








355 
556 


046610 


Ai 17/ 

012746 


1 77777 

1 / / / / / 




A7T 777 


Ai^ 1 A A A 

001000 


557 


04c 622 


AA1 / A/ 

001404 




558 


046624 


A7'5 777 


AAOAAA 


35V 


A/ XX70 

04665*: 


AA 1 AA O 

00100*: 




560 


A/ XX7/ 

046654 


A/ '57'1 X 

04*:/ 16 


AA1 AAA 

001000 


561 


A/ A 

046640 


A1 7777 

01 5/3/ 


AA "1 7 C O 

001 55*: 


56*: 


U46646 


A/ OX 77 

04i;637 


AA "11/0 

Oi/l 14*; 


5o5 


A/ X X C 0 

04o6 


00 1 4 1 if 




5o4 


A/ XXC/ 


06*: / 16 


AAAAA/ 

000004 


7X.C 

56!) 


A/ XXXA 

046oo0 


1 1 077X 

1 1 C / /^O 


AAAAOA 

0000<:0 


566 


A/ XXXX 

046OOO 


1 X071 X 

1 6*: 1 D 


A/^AAAO 

00000*: 




A/ XX75 






TAB 

5oO 


A/ XX 7/ 

0400^4 


1 XD71 X 


AAAA1 A 
00001 0 


569 


A/ X7AA 

046700 














371 








770 








777 

57 3 








7 7i 

574 








77C 

575 








7 7^ 

576 








777 

57 r 


A/ X 7AA 

046/00 


A7 0777 

05*:/ 5/ 


AAOAAA 

00<:000 


77Q 

570 


A/ X 7AX 

046706 


AA 1 y A 7 

001405 




77Q 
5^V 


A/ X71 A 

046/10 


Ay 0777 

04^/ 5/ 


AAA OAA 

OOOffOO 


70n 

5oO 


Ay X 7 1 X 

046/ 1 6 






701 

5ol 








70 T 

382 








707 

5o5 


A/ X71 X 

046/16 


AI 07/ X 

0127*»6 


1 77777 

\ f f f f f 


70y 
5o4 


Ay X7'5'5 


A7'5777 

05df5f 


AAA OAA 
000200 


7BC 

5o3 


l\J X77A 

046/ 50 


i'\A1 AAO 

001 OOc 




7 Ox 

586 


Ay X 77'5 

046732 


A/ "571 X 

042716 


AAA/ AA 

000400 


707 

5o^ 


Ay X77X 

046/36 


A1 7777 

013/3/ 


AA 1 7 C O 

001 33<: 


7BO 

508 


Ay X 7/ y 
046/44 


A/ OX 77 

04^63/ 


AA1 1 / O 

001 14*; 


TOO 

58V 


Ay X7CA 

046750 


AA1 / 1 O 

00141*; 




5V0 


A/ X7CO 

04675^ 


AX071 X 

06c 71 6 


AAAAA/ 

000004 


J7 1 


/V,x7«:x 


1 1 c / / O 




392 


046764 


162716 


000002 


393 


046770 


004736 




394 


046772 


162716 


000010 


395 


046776 






396 








397 








398 


046776 


012^46 


-\77777 


399 


047002 


032737 


000200 



001142 
000000 



185$: 



190$: 



BIC 

m\i 

BIC 
BEQ 
ADD 

Move 
sue 

JSR 

sue 



050556 
001350 

001142 
000000 



.•REPORT ERROR 
MOV 
BIT 
BEO 
BIT 
BNE 
BIC 
MOV 
BIC 
BEU 
ADD 
M0V8 

sue 

JSR 

sue 

200$: 



191$: 
195$: 



#MXF, (SP) 

RMCS2I.$BDDAT 

(SP)*.$BDDAT 

190$ 

*4,(SP) 

*55.a(SP) 

#2.(SP) 

PC.S(SP)* 

*10.(SP) 



IF AOE IS SET AND 
#-1.-(SP) 
#AOE . 500$ 
191$ 

*L8T.RMDSI 
195$ 

*AOE, (SP) 

RMER1I,$BDDAT 

(SP)+,$BDDAT 

200$ 

*4,(SP) 

*20,a{SP) 

#2.(SP) 

PC.a(SP)* 

#10. (SP) 



DISABLE MXF ERROR 
GET RECEIVED STATUS 
CLEAR MXF IF ENABLED 
BRANCH If MXF IS OK 
MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 



DATA ERRORS ARE NOT ENABLED 
ASSUME DATA ERRORS ARE ENABLED 
ARE DATA ERRORS EANBLED ?? 
NO !! 

IS L8T ALSO SET ?? 

YES :i 

DISABLE AOE 

GET RECEIVED STATUS 

CLEAR AOE IF ENABLED 

BRANCH IF AOE IS OK 

MOVE SP TO USERS ERROR C/'LL 

WRITE ERROR NUMBER 

MOVE SP TO ERROR RETURN 

REPORT ERROR AND RETURN 

MOVE SP TO NO ERROR 



001570 
050556 

050556 
001142 

000000 



BIT 07 (HCEJ OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR 
HEADER ERRORS. I.E.. 

RMER1 - HCRC.HCE.FER 

RMER2 - BSE 

.•RESET THE ENABLING BIT (HCEJ IF HEADER COMPARE INHIBIT IS SET 



201$: 



BIT 
BEO 
BIl 



*HCI,RMOFI 
201$ 

*HCE,500$ 



205$: 



.•REPORT AN ERROR IF HCRC IS SET 

MOV #-1.-(SP) 

BIT #HCE.500$ 

BNE 205$ 

BIC 4rHCRC.(SP) 

MOV R/1ER1I.$BDDAT 

BIC (SP)*.$BDDAT 

BEQ 210$ 

ADD *4,(SP) 

M0V8 #55,a(SP) 

sue *2,(SP) 

JSR pc.acsp)* 

sue *io.(SP) 

210$: 



IS HCI SET ?? 
NO !. 

YES - DISABLE ALL HEADER ERRORS 



AND HEADER ERRORS ARE NOT ENABLED 
ASSUME ERRORS ENABLED 
ARE HEADER ERRORS ENABLED ?? 

YES !l 

DISABLE HCRC 
GET RECEIVED STATUS 
RESET HCRC IF ENABLED 
BRANCH IF HCRC IS OK 
MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 



050556 



.•REPORT ERROR IF HCE IS sET AND HEADER ERRORS ARE NOT ENABLED 
MOV *-1.-(SP) .-ASSUME ERRORS ENABLED 

BIT *HCE.500t ;ARE ERRORS ENABLED " 



70 



N 16 
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AOO 

401 

402 

405 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 



047010 
047012 
047016 
047024 
047030 
047032 
047036 
047044 
047050 
047052 
047056 



047056 
047062 
047070 
047072 
047076 
047104 
047110 
047112 
047116 
047124 
047130 
047132 
047136 



047136 
047142 
047150 
047152 
047156 
047164 
047170 
C4 71 72 
0471 76 
047204 
047210 
04721? 
047216 



04^216 
047222 
047230 
047232 
047236 
047244 



001002 
042716 
013737 
042637 
001412 
062716 
112776 
162716 
004736 
162716 



012746 
032757 
001002 
042716 
013737 
042637 
001412 
06«:'716 
112776 
162716 
004736 
162716 



012746 
032737 
001002 
042716 
013737 
042637 
001412 
062716 
112776 
162716 
004736 
162716 



012746 
032737 
001002 
042716 
013737 
042637 



C00200 
001352 
001142 

000004 
000036 
000002 

000010 



\77777 
000200 

000020 
001352 
001142 

000004 
000C37 
000002 

000010 



^77777 
000200 

100000 
001400 
001142 

000004 
000354 
000002 

000010 



\77777 
000100 

000400 
001346 
001142 



001142 
000000 



21 5S' 



OniC 




■ VE C I 1 

TCo . . 


BIC 


#HCE (SP) 


■DISABLE HCE 


MOV 


RMER11,$8DDAT 


•GET RECEIVED STATUS 


BIC 


(SP)*.$BDDAT 


•CLEAR HCE If EMA8LED 


BEO 


220$ 


;8RANCH IF HCE IS OK 


ADD 


#4.(SP) 
#36.a(SP) 


;«0VE SP TO USERS ERROR CALL 


M0V8 


•WRITE ERROR NUMBcR IN CALL 


sue 


*2.(SP) 


•MOVE SP TO ERROR RETURN 


JSR 


pc,a(SP)* 


;REPORT ERROR AND RETURN 


SUB 


#10. (SP) 


;MOVE SP TO NO ERROR 



030536 

001142 

000000 



225$: 



050536 
001142 

000000 



220$: 

;REPORT ERROR IF FER IS SET AND 

MOV #-1.-(SP) 

BIT #HCE.500$ 

ONE 225$ 

BIC #FER.(SP) 

MOV RMER1I.$BDDAT 

BIC (SP)*.$BDDAT 

BEG 230$ 

ADD #4.(SP) 

M0V8 *37.a(SP) 

sue *2,(SP) 

JSR PC,a(SP)* 

sue xfio.(SP) 

230$: 

.REPORT ERROR IF BSE IS SET AND 

MOV *-l.-(SP) 

BIT *HCE.500$ 

BNE 235$ 

BIC iWSE.CSP) 

MOV RMER2I.$eDDAT 

BIC (SP)*. $BDDAT 

BEQ 240$ 

ADD *4.(SP) 

Move #354. a (SP) 

sue #2.(SP) 

JSR pc.a(sp)+ 

SUB #10. (SP) 



235$: 



240$: 



HEADER ERRORS ARE NOT ENABLED 
ASSUME FER IS ENABLED 
ARE HEADER FRRORS ENABLED ?? 
YES !! 
DISABLE FER 
GET RECEIVED STATUS 
RESET FER IF ENABLED 
BRANCH IF FER OK 
MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 



HEADER ERRORS ARE NOT E-^IABLED 
ASSUME ERRORS ENABLED 
ARE THEY ENABLED ?? 
YES .! 
DISABLE BSE 
GET RECEIVED STATUS 
CLEAR BSE IF ENABLED 
BRANCH IF BSE OK 
MOVE SP TO USERS ERROR CAlL 
WRITE ERROR NUMBER 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 



BIT 06 0» THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR DATA 
FIELD ERRORS. I.E.. 

RMCS2 - MDPE 

RMERl - DCK.ECH 

NOTE : 

ECH CANNOT SET UNLESS IT IS ENABLED AND ECI IS RESET AND 
DCK IS'SET. 

REPORT ERROR IF MDPE IS SET AND IS NOT ENABLED 



050536 
001142 



245$: 



MOV #-1,-(SP) 

BIT #ECH.500$ 

BNE 245$ 

BIC #MDPE.(SP) 

MOV RMCS2I.$BDDAT 

BIC (SP)*.$BDDAT 



ASSUME ENABLED 

ARE DATA FIELD ERRORS ENABLED 

YES .. 

DIS8ALE MDPE 

GET RECEIVED STATUS 

CLEAR MDPE IF ENABLED 
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047250 


OOHV 






^58 


047252 


062716 


C00004 




^59 


047256 


112776 


000027 

www ' 


000000 


C6C 


047264 


162716 


000002 




^61 


047270 


004736 






A62 


047272 


162716 


000010 




465 


047276 


















A65 










466 


047276 


012746 


Mini 




467 


047302 


032737 


000100 


050536 


4o8 


047310 


001002 






469 


047312 


042716 


1 00000 




470 


047316 


013737 


001352 


001142 


471 


047324 


042637 


001142 




472 


047330 


001412 






473 


047332 


062716 


000004 




474 


047336 


112776 


000030 


000000 


475 


047344 


162716 


000002 




476 


047350 


004736 






477 


047352 


162716 


000010 




478 


047356 








479 










480 










481 










482 










483 










484 


047356 


012746 


M7777 




485 


047362 


032737 


000100 


050536 


486 


047370 


001410 






487 


047372 


032737 


004000 


001370 


488 


047400 


001004 






489 


047402 


' 032737 


100000 


001352 


490 


047410 


001002 






491 


047412 


042716 


000100 




492 


047416 


013737 


001352 


001142 


493 


047424 


042637 


001142 




494 


047430 


001412 






495 


047432 


062716 


000004 




496 


047436 


112776 


000031 


000000 


497 


047444 


162716 


000002 




498 


047450 


004736 






499 


047452 


162716 


000010 




500 


047456 









250J: 



BEO 
ADD 
10V8 

sue 

JSR 

sue 



250$ 

#4,(SP) 

#27. Sl(SP) 

#2.(SP) 

PC,a(SP)* 

*10.(SP) 



BRANCH IF MDPE OK 
MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 



.■REPORT ERROR IF DCK IS SET AND DATA FIELD ERRORS ARE NOT ENABLED 



255$: 



260$: 
REPORT 



MOV 


*-i.-(SP) 


ASSUME ENABLED 


BIT 


*ECH,500$ 


ARE THEY ENABLED ?? 


BNE 


255$ 


YCS !! 


BK 


#DCK,(SP) 


■DISABLE DCK 


MOV 


RMER11,$BDDAT 


•GET RECEIVED STATUS 


BK 


(SP)+,$BDDAT 


•CLEAR DCK IF ENABLED 


BEO 


260$ 


•BRANCH IF DCK IS OK 


ADD 


*4. (SP) 


;M0VE SP TO USERS ERROR CALL 


M0V8 


*30.3(SP) 


•WRITE ERROR NUMBER IN CALL 


sue 


*2.(SP) 


;MOVE SP TO ERROR RETURN 


JSR 


PC,a(SP)+ 


;REPORT ERROR AND RETURN 


SUB 


*10,(SP) 


;MOVE SP TO NO ERROR 



IS 



265$: 
270$: 



275$: 



ERROR 
DATA F 
ECI IS 
DCK 
MOV 
BIT 
BEQ 
BIT 
BNE 
BIT 
BNE 
BIC 
MOV 
BU 
BEO 
ADD 
M0V8 
503 
JSR 
SUB 



IF ECH IS SET AND, 
I ELD ERRORS ARE NOT 
SET. OR 
NOT SET. 
*-1.-(SP) 
*ECH.500$ 
265$ 

#ECI.RM0FI 
265$ 

*DCK.RMER1I 
270$ 

#ECH.(SP) 
RMER1I,$BDDAT 
(SP)*,$BODAT 
275$ 
#4.(SP) 
#31.a(SP) 
#2.(SP) 
PC,a(SP)* 
*10,(SP) 



ENABLED, OR 



ASSUME ENABLED 
ARE ERRORS ENABLED ?? 
NO !1 

IS ECI SET ?? 
YES !! 

IS DCK ALSO SET ?? 
YES !.' 
DISABLE ECH 
GET RECEIVED STATUS 
CLEAR ECH IF ENABLED 
BRANCH IF ECH IS OK 
MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 
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1 

26 



2 
3 

A 
5 
6 
7 
8 
9 
10 
11 
12 
13 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
50 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



04 74 "56 
047464 
047466 



047472 
047500 
047502 
047510 
047512 
047516 
047524 
047530 
047534 
047536 
C47542 



047544 
047552 
047560 
047564 

047572 
047600 
047602 

C47610 
047616 
047620 
047626 
047632 
047640 
047644 
047646 
047652 



022737 
103402 
000137 



013737 
001421 
032737 
001015 
062716 
112776 
005037 
162716 
004736 
162716 
000240 



013737 
163737 
006337 
063737 

032737 
001403 
013737 

023737 
001416 
013737 
062716 
112776 
162716 
004736 
162716 
000240 



001340 
00K14 
001140 
001416 

000010 

001416 

001 140 

00134^' 
000004 
000016 
000002 

000010 



047654 


005046 




047656 


013746 


001 340 


047662 


163716 


001414 


047666 


012746 


000400 


047672 


032737 


000002 


047700 


001402 




047702 


062716 


000002 


047706 


005266 


000C04 


047712 


161666 


000002 


047716 


003373 




047720 


022626 





•PERFORM THE REMAINING ERROR CHECKS ONLY FOR DATA TRANSFER C0M(>1ANDS 



000030 


050544 




TMD 

\.r\r 


» oCMKLn , J Ij9 






Dl n 


cOU> 


, on i r r C J 








IMD 

Jrr 




• MO - P y T T 






• DC ODD T 




If OMUr MDT 7PRn 


Akin TRP 7PRn 


001340 


UU 1 1 '•c 


coU»: 


nuv 


rirlwL i « vOUUn I 


« WUnU CUUnil ^Cnu. . 






QPn 
oc u 


CO J* 


• VP ^ 








R I T 








RNF 


?85$ 


•YES ' 


000004 






ADD 


*4.(SP) 




000015 


000000 




MOVB 


*i5.a(SP) 


.•ERROR NU(*BER 


001 140 






CLR 


SGDDAT 


.-GOOD DATA FOR TYPEOUT 


000002 






sue 


*2.(SP) 


;M0VE SP TO RETURN FOR ERROR 






JSR 


pc.a(sp)* 


.•REPORT WORD COUNT NOT ZERO 


000010 






sue 


*10,(SP) 


.•RESTORE (SP) 








NOP 







001 uo 
001140 

001140 

001346 

001140 

001342 

001142 

000000 



285$: 



290 J: 



ERROR 


IF RMBA IS NOT 


CORRECT 


P10V 


RMWCI.SGDDAT 


:GET WORD COUNT AT END OF TRANSFER AND 


SUB 


RMWCO.SGDDAT 


.•SUBTRACT STARTING WORD COUNT. 


ASL 


$GDDAT 


;• 2 


ADD 


RMBAO.SGDDAT 


;ADD STARTING BUS ADDRESS 


BIT 


#8AI.RMCS2I 


.•WAS BUS ADDRESS INHIBIT (BAD SET ?? 


BEQ 


290$ 


;N0 !! 


MOV 


RMBA0.$GDDAT 


.•ADDRESS SHOULD NOT HAVE CHANGED 


CMP 


$GDDAT.RMBAI 


;BUS ADDRESS OK?? 


BEQ 


295$ 


'YES' ' 


MOV 


RM8AI,$BDDAT 


;BAD"dATA for TYPEOUT 


ADD 


*4,(SP) 




MOVB 


/irl6.a(SP) 


.•ERROR NUMBER 


SUB 


*2.(SP) 


.•MOVE SP TO RETURN FOR ERROR 


JSR 


PC.8(SP)* 


.•REPORT UNEXPECTED ADDRESS 


SUB 


*10.(SP) 


.•RESTORE <SP) 


NOP 





.•COMPUTE NUMBER OF SECTORS TRANSFERRED FROM WORD COUNT 



001412 



295$: CLR -(SP) 

MOV RMWCI.-(SP) 

SUB RMWCO.(SP) 

MOV *256.,-(3P) 

BIT /Cejn.RMCSlO 

BEQ 300$ 

ADD *2.(SP) 

300$: INC 4(SP) 

SUB (SP).2(SP) 

BGT 300$ 

CMP (SP)*,(SP)+ 



NUMBER OF SECTORS TRANSFERRED 
GET WORD COUNT AT END OF TRANSFER AND 
SUBTRACT STARTING WORD COUNT. 

ASSUME 256. WORDS PER SECTOR 
HEADER 6 DATA COMMAND ?? 
NO !! 

CHANGE TO 258. WORDS PER SECTOR 

INCREMENT SECTOR COUNT 
SUBTRACT ONE SECTOR'S WORTH 
CONTINUE IF NOT DONE 
RESTORE STACK 



COMPUTE EXPECTED SECTOR. TRACK AND CYLINDER ADDRESS FROM 
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58 
59 
60 
61 
^2 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 

no 
m 

112 

r3 



047722 
047730 
047736 
047744 
047752 
047756 

047762 
047770 
047774 
050002 

050006 
050014 
050016 
050022 
050030 

C 50032 
050040 
050042 
050046 
050054 
050056 



050164 
050170 
050176 
050200 
050206 
050210 
010214 
050216 
050222 
050224 
050232 



013737 
013737 
013737 
013737 
000337 
005237 

042737 
000337 
042737 
062637 

023727 
103406 
005237 
162737 
000766 

023737 
103407 

005237 
163737 
000766 
000240 



001446 
001420 
001420 
001334 
050546 
050546 

000377 
050540 
1 77400 
050542 

050542 

050540 
000040 



050540 

050536 
050546 



005037 
032737 
001031 
025727 
101425 
005737 
001012 
005737 
001007 
032737 
001413 



001140 
002000 

050536 

050540 

050542 

000010 



050536 
05C540 
050542 
050546 



050540 
050542 

000040 

050542 

050546 

050540 



050060 








050060 


005037 


001140 




050064 


023727 


050536 


001466 


050072 


101407 






050074 


032737 


002000 


001352 


050102 


001003 






050104 


012737 


002000 


001140 


050112 


013737 


001350 


001142 


050120 


042737 


175777 


001142 


050126 


023737 


001140 


001142 


050134 


001413 






050136 


062716 


000004 




050142 


112776 


00001 7 


000000 


050150 


162716 


000002 




C50154 


004736 






050156 


162716 


000010 




050162 


000240 







001352 
00146^ 



050544 



310$: 



315$: 





D 1 






OF SECTORS 


MOV 


RMDC0.500$ 


Mnw 
nuv 


nrafrvj , j\jj9 


Mnu 


nni/Mu 0 J i\J9 


MOW 


1 ^TRK Spot 


SWAB 


520$ 


INC 


520$ 


R I r 

Di L 








R I r 




ADD 


(SP)+.510$ 






Ri n 

DLU 




IMP 








on 




CMP 


505$. 520$ 


BLO 


320$ 


INC 


500$ 


sue 


520$. 505$ 


BR 


315$ 


NOP 





.•STORE ORIGINAL CYLINDER 
.-STORE ORIGINAL TRACK 
.■STORE ORIGINAL SECTOR 
.•STORE LAST TRACK. 
;GET TRACK ADDRESS TO LO BYTE AND 
.•INCREMENT TO GET TOTL * OF TRACKS. 

.•SAVE TRACK ADDRESS BITS AND 
.-SWAP TRACK ADDRESS TO LOU BYTE. 

.•SAVE SECTOR ADDRESS BITS 



SECTOR OVEFLOWED?? 
NO. . 

INCREMENT TRACK 
ADJUST SECTOR 
TRY AGAIN 

TRACK OVERFLOWED?? 
NO. ! 

INCREMENT CYLINDER 
ADJUST TRACK 
TRY AGAIN 



.•REPORT ERROR 
320$: 



IF '18T" IS NOT CORRECT 



325$: 



CLR 


$GDDAT 


;SET GOOD DATA FOR L8T 


- 0 


CMP 


500$,»822. 


.•SHOULD L8T BE SET?? 




BLOS 


325$ 


;NOI ! 




BIT 


*IAE.RMER1I 


;WAS lAE SET ?? 




BNE 


325$ 


;YES - L8T SHOULD NOT BE SET 


MOV 


*L8T,$GDDAT 


;SET GOOD DATA FOR L8T 


1 


MOV 


RMDSi.SeDDAT 
;ir*CL8T.$8DDAT 


;8AD DATA FOR TYPEOUT 




BIC 






CMP 


$GDDAT,$BDDAT 


;IS L8T CORRECT?? 




BEO 


330$ 


;YESI! 




ADD 


04. (SP) 






M0V8 


#17,a(SP) 


.•ERROR NUMBER 




SUB 


*2,(SP) 


;MOVE SP TO RETURN FOR 


ERROR 


JfR 


pc,a(sp)+ 


.•REPORT L8T IS WRONG 




sue 


*10.(SP) 


.•RESTORE (SP) 




NOP 









.•REPORT ERROR IF "AOE" IS INCORRECT 
330$: 



CLR 


$GDDAT 


;SET FOR AOE = 0 
;WAS "lAE" DETECTED?? 
;YES-"AOE" SHOULD BE ZERO 


BIT 


*IAE.RMER1I 


BNE 


340$ 


CMP 


500$.i>822. 


.•SHOULD AOE BE SE^?? 


BLOS 


340$ 


;N0; ! 


TST 


505$ 


; MAYBE 


BNE 


335$ 


.YES 


TST 


510$ 




BNE 


335$ 


;YES .'! 


BIT 


#F2.S15$ 


;WAS THIS READ OR WRITE CHECK ?? 


BEQ 


340$ 


;N0 .. 
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115 

n6 

117 

118 

119 

120 

'21 

122 

123 

'24 

125 

'26 

127 

'28 

129 

130 

131 

132 

153 

134 

135 

136 

157 

158 

159 

UO 

U1 

142 

143 

144 

US 

140 

147 

148 

149 

150 

^51 

152 

153 

154 

155 

156 

157 

158 

l';9 

160 

161 

162 

!63 

164 

165 

166 

167 

168 

169 

1^0 

I 







001340 






W l*f 1 u 








\)\ CI JI 




0011 40 


\Jj\JCJ\J 


\j\jj\jji 








ni ?7^7 

\J t CI JI 


000001 


05054? 


U >UcDc 


\J 1 JI JI 


001 ^S? 
VV 1 jjc 

' 7f,777 


001 I^P 

\J\J 1 1 •* c 


\Jj\JCt w 


CI Jl 


001 14? 

\J\J 1 1 •* c 


nsn?7<'i 

\JJ\JC f D 


vCJI JI 


001 1^0 

\J\J 1 1 *t V 


001 14? 










050306 


062716 


000004 




050312 


1 1 2776 


000020 


000000 


050320 


162716 


000002 




050324 


004736 






050326 


162716 


000010 




050332 


000240 







335$: 
340$: 



TST 
BEQ 
MOV 
CLR 
MOV 
MOV 
BIC 
CMP 
BEO 
ADD 
M0V8 

sue 

JSR 
SUB 
NOP 



.•REPORT ERROR 



RMUCI 
340$ 

*AOE.$GDDAT 

505$ 

*1.510$ 

RMER1I,$BDDAT 

**CA0E.$BDDAT 

$GDDAT.$BDDAT 

345$ 

*4.(SP) 

*20.a(SP) 

*?.(SP) 

pc.a(sp)+ 

*10,(SP) 



WAS ALL DATA TRANSFERRED ?? 
YES ' 

SET FOR A0E'= 1 
CLEAR EXPECTED TRACK 
EXPECT SECTOR = 1 
BAD DATA FOR TYPEOUT 

;IS AOE CORRECTY?? 
;YESI! 

ERROR NUMBER 

MOVE SP TO RETURN FOR ERROR 
REPORT AOE IS WRONG 
RESTORE (SP) 



050334 


032737 


002000 


001352 345$: 


BIT 


050342 


001062 






BNE 


050344 


013737 


050540 


001140 


MOV 


050352 


000337 


001140 




SWAB 


050556 


115737 


050542 


001140 


MOVB 


050364 
050372 


013757 


001344 


001142 


MOV 


025757 


001140 


001142 


CMP 


050400 


001415 






BEQ 


050402 


062716 


000004 




ADD 


050406 


112776 


000021 


000000 


MOVB 


050414 


162716 


000002 




SUB 


050420 


004736 






JSR 


050422 


162716 


000010 




sue 


050426 


000240 






NOP 



IF RMDA IS NOT 
*IAE.RMER1I 
355$ 

505$.$GDDAT 

$GDDAT 

510$,$GDDAT 

RMDAI.$8DDAT 

$GDDAT.$BDDAT 

350$ 

*4.(SP) 

*21 .a(SP) 

*2.(SP) 

pcacsp)* 

*10.(SP) 



CORRECT 

WAS THERE AN lAE ERROR ?? 
YES - DONT CHECK RMDA,RMDC 
SETUP EXPECTED DISK ADDRESS 



SETUP RECEIVED DISK ADDRESS 
COMPARE EXPECTED & RECEIVED 
BRANCH IF EQUAL 

ERROR NUMBER 

MOVE SP TO RETURN FOR ERROR 
REPORT BAD DISK ADDRESS 
RESTORE (SP) 



050430 


013737 


050556 


001140 


350$: 


MOV 


500$,$GDDAT 


050436 


042737 


176000 


001140 




BIC 


**C1 777, $GDDAT 


050444 


013737 


001372 


001142 




MOV 


RMDCI.$BDDAT 


050452 


023737 


001140 


001142 




CMP 


$GDDAT,$8DDAT 


050460 


001413 








BEO 


355$ 


050462 


062716 


000004 






ADD 


*4.(SP) 


050466 


112776 


000022 


000000 




MOVB 


*22. a(SP) 


050474 


162716 


000002 






SUB 


#2.(SP) 


050500 


004736 








JSR 


pc.a(SP)* 


050502 


162716 


000010 






sue 


*10.(SP) 


050506 


000240 








NOP 




050510 


062716 


000004 




355$: 


ADD 


#4.(SP) 


050514 


105776 


000000 






TSTB 


a(SP) 


050520 


001403 








BEQ 


360$ 


050522 


062716 


000004 






ADD 


*4,(SP) 


050526 


000402 








BR 


36:$ 


050530 


162716 


000004 




360$: 


SUB 


*4.(SP) 


050534 


000207 






365$: 


RTS 


PC 


050556 


000000 






500$: 


• WORD 


0 


050540 


000000 






505$: 


.WORD 


0 


050542 


000000 






510$: 


.WORD 


0 


050544 


000000 






515$: 


.WORD 


0 



.•REPORT ERROR IF RMDC IS INCORRECT 

.-SETUP EXPEC'ED CYLINDER 

SETUP RECEIVED CYLINDER 
COMPARE CYLINDERS 
BRANCH IF EQUAL 

ERROR NUMBER 

MOVE SP TO RETURN FOR ERROR 
REPORT BAD CYLINDER 
RESTORE (SP) 



;MOVE (SP) TO ERROR CALL 
;WAS ERROR FOUND?? 



1 



.-MOVE (SP) TO ERROR RETURN 
.-MOVE (SP) TO NO ERROR RETURN 



CYLINDER 

TRACK 

SECTOR 

FUNCTION CODE 
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0S05<,6 000000 520f: .WORD 0 .TOTAL # Of 'RACKS = LAST TRACK 
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? 

7 

u 
5 

6 

7 

8 

9 
10 
11 

1! 

15 
16 
17 
18 
19 
20 

21 050550 

22 

23 

2A 050550 

25 050556 

26 05056A 

27 050570 

28 050576 
29 

50 
31 

32 05060A 

33 050610 
?A 0506K 
55 

36 

37 050620 

38 05062A 

39 050626 
AO 05063A 
A1 0506A0 
A 2 C506AA 
43 050652 

050656 

45 050660 

46 050664 

47 050666 
48 

49 
50 

51 050666 

52 050672 
53 

54 050674 

55 050702 

56 050706 

57 050712 



013737 
047637 
062716 
013737 
047637 



062716 
105076 
162716 



005737 
001420 
013737 
005037 
062716 
112776 
162716 
004736 
162716 
000240 



005737 
001420 

013737 
005037 
062716 
112776 



001352 
000000 
000002 
001400 
000000 



0(!l0006 

odoooo 

090004 

001 1 76 

)1176 
)1140 
50004 
(100066 
/00002 

)00010 



001200 



001200 
001140 
000004 
000067 



.S8TTL COMPOSITE ERROR CHECK SUBROUTINE 

THIS SUBROUTINE CHECKS THE STORED CONTENTS OF R/1ER1 AND 
RMER2 AFTER MASKING EACH REGISTER WORD WITH THE USER'S STATUS 
MASKS AND REPORTS AN ERROR IF ANY BITS ARE LEFT ON AFTER 
THE MASKS ARE APPLIED. 



CALL: 
(1) 



JSR 

.WORD 

.WORD 

BR 

NOP 

ERROR 

JSR 
■>■>•> 



PC.CMPERRSTS 



pc.a(sp)* 



MASK FOR ERROR REGISTER 1 

MASK FOR ERROR REGISTER 2 

RETURN HERE IF NO ERROR 

RETURN HERE TO REPORT AN ERROR 

ERROR NUMBER DEFINED BY SUB 

GO BACK TO SUB FOR MORE ERROR CHECKS 

RETURN HERE IF NO MORE ERRORS 



.NOTE: BITS TO BE MASKED SHOULD BE ONE; BITS TO BE TESTED SHOULD 
;8E ZERO 



001176 
001176 

001200 
001200 



CMPERRSTS: 

;MASK AND STORE 
MOV 
BIC 
ADD 
MOV 
BIC 



THE CONTENTS OF RMER1 
RMERIJ.STMPI 
a(SP).$TMP1 
#2,(SP) 
RMER2I,$TMP2 
a(SP).$TMP2 



AND RMER2 
STORE RMER1 AT TEMP STORAGE 
MASK RMER1 
MOVE SP TO NEXT MASK 
STORE RMER2 AT TEMP STORAGE 
MASK RMER2 



;SEE 



001142 
000000 



ADD 


*6.(SP) 


MOVE SP TO USER'S ERROR CALL 


CLR8 


a(SP) 


CLEAR ERROR NUMBER 


SUB 


*4,(SP) 


LEAVE SP AT NO ERROR RETURN 


IF THERE 


WERE ANY ERRORS IN 


RMER1. I.E., STMPI 


TST 


$TMP1 


•ANY ERRORS TO REPORT?? 


BEO 


5$ 


•NO .! 


MOV 


$TMP1,$BDDAT 


•RECEIVED STATUS FOR TYPEOUT 


CLR 


SGDDAT 


•EXPECTED STATUS FOR TYPEOUT 


ADD 


*4.(SP) 


•MOVE SP TO USER'S ERROR CALL 


Move 


*66.a(SP) 


•CORRECTABLE DATA CHECK ERROR * 


sue 


M2ASP) 


•MOVE SP TO RETURN FOR ERROR 


JSR 


pc,a(SP)* 


■REPORT ERROR VIA USER 


SUB 


*10.(SP) 


■MOVE SP BACK TO BRANCH 


NOP 







5$: 



;SEE 



001142 
000000 



IF THERE 


ARE ANY ERRORS 


TST 


$TMP2 


BEO 


10$ 


NOV 


$TMP2,$BDDAT 


CLR 


SGDDAT 


ADD 


#4.(SP) 


M0V8 


*67.a(SP) 



;ANY ERRORS IN RMER2? 
;NOI ! 

.•RECEIVED STATUS FOR TYPEOUT 
.•EXPECTED STATUS FOR TYPEOUT 
;MOVE SP TO USER'S ERROR CALL 
.•WRITE ERROR NUMBER IN USER'S 



OMPCSrf ERROR -CHECK SUBRCXJTD^ 
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5« 050720 

59 050724 

60 050726 

61 050732 

62 050754 
63 

64 

65 050734 

66 050740 

67 050744 

68 050746 
o9 050752 
^0 050754 
71 050760 



'1627^6 
004736 
162716 
000240 



062716 
105776 
001403 
06?716 
000402 
162716 
000207 



000002 
000010 



000004 
000000 

000004 

000004 



!«0 0?U 



'OJ: 



SJ8 
JSR 

sue 

HOP 



#2.(SP) .MOVE SP TO RETURN fOR ERROR 

PC.a(SPJ* .REPORT ERROR VIA USER 

#10. (SP) .-MOVE SP TO NO ERROR RETURN 



.•AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED 



20$: 
30$: 



ADD 

TST8 

BEQ 

ADD 

BR 

SUB 

RTS 



*4. (SP) 

a(SP) 

20$ 

tte,.(SP) 
30$ 

*A.(SP) 
PL 



MOVE SP TU USER'S ERROR CALL 
WAS THERE AN ERROR CAI LED?? 

no; ; 

YES - MOVE SP TO ERROR RETURN 

.-MOVE SP TO NO ERROR RETJRN 
.•RETURN TO USER 



I 



«MCS/^/2 FfTM. TST 3 
' J A'-' SUBROUTINE 
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6 

7 

3 
9 
1C 
11 

ia 
13 
u 

15 
16 
17 
18 
19 
20 



?1 
22 
21 
24 
25 
26 
27 
28 
29 
30 
51 
32 
33 
34 
55 
36 
37 
38 
59 
40 
41 
4? 
43 
44 
«,5 
46 
1,7 
48 
49 
50 
51 



050762 



050762 
050766 
050772 



050776, 
051002 
05100i? 
051010 
051012 
051020 
051026 
051032 



051036 
051042 
051050 

051056 
051064 
051066 
051074 
051102 

051104 
05M12 
C51114 
051122 
051130 



051132 
051134 
051142 
051150 



051156 
051156 
051160 
051162 



C62716 
105076 
162716 



013746 
013746 
010046 
010146 
012737 
012737 
013700 
013701 



111160 
016037 
016037 

032737 
001407 
062766 
112776 
000422 

032737 
001021 
062766 
112776 
000407 



022626 
062766 
112776 
162766 



012601 
012600 
012637 



000004 
000000 
000004 



0C0004 
000006 



051132 
000300 
001276 
001466 



000010 
000000 
000010 



000004 
0001 1 1 



000004 
000112 



000004 
000113 
000002 



000004 
000006 



001 1 76 
001 1 74 



010000 001174 



000010 
000010 



000010 
000010 



000010 
000010 
000010 



.SSTTL DEVICE SELECT SUBROUTINE 

; THIS SUBROUTINE SELECTS THE DEVICE, GETTING ^hE DEVICE NU^BER fROM THf 
; TEST QUEUE. 



; CALL : 

;(i> 
;(2) 
;(3) 
;(4; 

DEVSEL: 



JSR 
BR 
NOP 
ERROR 



PC.DEVSEL 



RETURN IF NO ERROR 

RETURN IF ERROR 

ERROR DEFINED BY SUBROUTINE 



;LLEAR USER'S ERROR CALL 
ADD #4,(SP) 
CLR8 a(SP> 
SUB *4.(SP) 



MOVE SP TO USER'S ERROR 
CLEAR LOW ORDER BYTE OF 
MOVE SP BACK 



CALL 



SAVE USER'S INFORMATION AND SETUP REGISTERS 



MOV ERRVEC,-(SP) 

MOV ERRVEC+2.-(SP) 

MOV R0,-(SP) 

MOV RI.-(SP) 

MOV *20$,ERRVEC 

MOV #PR6.ERRVEC+2 

MOV SQASE.RO 

MOV TSTQUE.R1 



;;PUSH ERRVEC ON STACK 

;;PUSH ERRVEC+2 ON STACK 
;;PUSH RO ON STACK 
;;PUSH R1 ON STACK 
.•SETUP FOR BUS TIMEOUT 

;R0 - UNJ8US ADDRESS 

;R1 POINTS TO DEVICE NUMBFR 



.-SELECT DEVICE AND VERIFY THAT DEVICE IS AVAILABLE 

M0V8 (R1).RMCS2(R0) ;WRITE UNIT SELECT BITS 
MOV RMCS1(R0).$TMP1 ;GET "DVA" STATUS 
MOV RMCS2CR0),$TMP0 ;GET "NED" STATUS 



004000 001176 10$: 



BIT *NED.$TMPO 

BEQ 10$ 

ADD #4.10(SP) 

M0V8 *111.alO(SP) 

BR 30$ 

BIT #DVA.$TMP1 

8NE 35$ 

ADD «4J0(SP) 

M0V8 *112,aiO(SP) 

BR 30$ 



.-HANDLE BUS TIMEOUT 

20$: CMP (SP)*,(SP)* 
ADD #4,10(SP) 
M0V8 *113,aiO(SP) 

30$: SUB *2J0(SP) 



;IS DEVICE NONEXISTENT ^ 
;N0. . 

.•MOVE SP TO USERS ERROR CALL 
.•WRITE ERROR NUMBER 



IS DEVICE AVAILABLE ? 
YFS. .' 

MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER 



ADJUST SP 

MOVE SP TO USERS ERROR CAL 
WRITE BUS TIMEOUT ERROR NUMBER / 
ADJUST RETURN TO 'NOP' PRECEDING 
THE ERROR CALL 



000006 



.-RESTORE USERS DATA AND RETURN TO ADDRESS ON STACK 
35$: 

MOV (SP)*.R1 ;;POP STACK INTO R1 

MOV (SP)*.RO .-.-POP STACK INTO RO 
MOV (SP>*.ERRVEC*2 ;.-POP STACK INTO ERRVEC+2 
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051 166 C1P637 000004 non/ <SP)*.tHRVEC ;;POP STACK INTO FRRVEC 

05^1^? 000P07 RTS PC ;CX|T 



ff' i'MuS THfCiC SUBROUTINE 



? 



V 
•0 
11 

u 
15 

16 
17 

'a 

?o 
?i 

?4 

25 
26 
27 
28 
29 
50 
5 

?2 
M 
?A 
55 
5ft 
57 
58 
5S> 
40 
A1 
-^2 
45 
44 
4S 
4ft 
4^ 
48 
49 
50 
51 
52 
55 
54 
55 
56 
S7 



051174 



051174 
051176 
051202 
051206 
051212 



051216 
051224 
051226 
051254 



051256 
051242 
051250 
051254 
051262 
051266 
C51270 
051274 



051276 
051504 
051512 
051520 
051522 

051550 
051556 

0515*0 
051546 



000240 
062716 
105076 
162716 
005037 



032737 
001424 
U32737 
001020 



005037 
013737 
062716 
112776 
162716 
004736 
162716 
000457 



012737 
052737 
023727 
101025 
042737 

125737 
101016 

125727 
101410 



000004 
000000 
000004 
052432 



000010 
000010 



001140 
001552 
000004 
000050 
000002 

000010 



002000 
040000 
001446 

040000 

001421 
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.S8IIL SEEK STATUS CHECK SUBROUTINE 

THIS SUBWXJTINE VERIFIES THE RESULTS OF SEEK ^ESTS USING STATUS 
STORED IN THE GET BUFFER AND TEST PARAMETERS STORED IN THE PUT BUFFER. 

THE SUBROUTINE RETURNS TO THE CALLING ROUTINE IF AN ERROR IS DETECTED 
AFTER HAVING LOADED THE APPROPRIATE ERROR NUMBER IN THE 'tRROR" TRAP 
OF THE CALLING ROUTINE. SEEK STATUS IS CHECKED AS FOILOWS: 



SEQ C218 



CALL: 
(1) 



PC.SEKSTS 

777 



JSR 
BR 
NOP 
ERROR 

JSR PC.a(SP)^ 

777 



SEKSTS: 

.•CLEAR USERS' ERROR CALL 
NOP 



ADD 

CLR8 

SUB 

CLR 



#4.(SP) 

a(SP) 

*4,(SP) 
300S 



RETURN HERE IF NO ERROR 

RETURN HERE TO REPORT AN ERROR 

ERROR NUMBER DEFINED BY SUB 

GO BACK TO SUB FOR MORE ERROR CHECKS 

RETURN HERE IF NO MORE ERRORS 



MOVE (SP) TO ERROR CALL 
CLEAR ERROR NUMBER 
MOVE (SP) TO NO ERROR RETURN 
CLEAR ERROR FLAGS 



001352 
001400 

001142 
000000 



;TEST FOR MASSBUS CONTROL BUS PARITY ERROR WHEN WRITING 
.-LOCAL REGISTERS. I.E.. "PAR" 1 AND "DPE" - 0 

BIT *PAR.RMER1I 

BEO 1$ 

BIT *DPE,RMER2I 

BNE 1S 



was parity error detected?"' 
no; ! 

was it due to control bus?? 

NOT SURE ! ! 



.•REPORT REGISTER PARITY ERROR VIA USER'S ERROR CALL 



CLR 


SGDDAT 


.•EXPECTED STATUS 


MOV 


RMERII.SBDDAT 


.'RECEIVED STATUS 


ADD 


*4.(SP) 


;MOVE STACK TO USER'S ERROR 


M0V8 


#50.a(SP) 


.•ERROR ttSO 


SUB 


#2,(SP) 


;MOVE SP TO RETURN FOR ERROR 


JSR 


pc.a(SP)* 




SUB 


#10. (SP) 


.•RESTORE STACK 


BR 


3$ 


;IAE SHOULD BE ZERO 



00M40 
052432 
001466 

052432 

001335 



.•DETERMINE THE VALUE OF "lAE" STATUS BASED ON TRACK. SECTOR AND CYLINDER 
.•ALSO. SET "SKI" If CYLINDER ADDRESS IS TOO LARGE. 



IS: 



001420 000035 



MOV 
BIS 
CMP 
BHI 
SIC 

CMP8 
BHI 

CMP8 
BLOS 



#IAE, SGDDAT 
#SKI.300S 
RMDC0.#822, 
3$ 

#SKI.300$ 



SETUP FOR lAE - 1 
SETUP FOR SKI = 1 
GREATER THAN LAST CYLINDER 
YES - CYLINDER IS INVALID 
CLEAR SKI ERROR FLAG 



RMDA0+1.LSTRK+1 ;GREATER THAN LAST TRACK 
3$ ;YES - TRACK IS INVALID 



RMDA0.#29. 
2S 



.•SECTOR > 29. 
;8R IF NO 



'.8 


051350 


032737 


010000 


59 


051356 


001406 




60 


051360 


123727 


001420 


61 


051566 


101002 




6? 








6? 


051370 


005037 


001140 


64 








65 








66 


051374 


013737 


001352 


67 


05140? 


042737 


175777 


68 


051410 


023737 


001140 


o9 


051416 


001004 






051420 


042737 


040000 


n 


051426 


000413 




72 


051430 






7^ 








7i, 


C51430 


062716 


000004 


75 


051434 


112776 


000051 


7k 


051442 


162716 


000002 


77 


051446 


004736 




70 

'O 




1 Ot » 1 0 




79 


051454 


000240 




80 


051456 






81 








8? 








8^ 








84 

85 


051456 


032737 


010000 


86 


051464 


001427 




87 


051466 


005037 


001140 


88 


051472 


013737 


001400 


8V 


051500 


062716 


000004 


90 


051504 


112776 


000060 


91 


051512 


032737 


000100 


9? 


051520 


001403 




91 


051522 


112776 


000061 


94 


051530 


162716 


000002 


95 


051534 


004736 




96 


051536 


162716 


000010 


97 


051542 


000240 




98 








99 


051544 


013737 


001400 


100 


051552 


042737 


M7777 


101 


051560 


013737 


052432 


10? 


051566 


042737 


1 57777 


103 


051574 


001417 




104 








105 








106 


051576 


032737 


040000 


107 


051604 


001032 




108 


051606 


062716 


000004 


109 


051612 


112776 


000267 


MO 


051620 


162716 


000002 


'11 


051624 


004736 






051626 


162716 


000010 




051632 


0004A3 




"A 


0*'l634 











L 


1 
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001444 


BIT 


*Fnn6,RnDro 


;18 BIT FORMAT 




BEO 


3$ 


;YES - SECTOR 


IS INVALID FOR 18 BIT "lOOE 


UU0U3' 








•> 




BHI 


3$ 


;yES - SECTOR 


is INVALID 


2$: 


CLR 


S6DDAT 


;"JAE" SHOULD 


= 0 



SCO 0219 



001142 
001142 
001142 

052432 



000000 



OOUOO 



001142 

000000 
001350 

000000 



001142 
001142 
001140 
001140 



001 U2 
000000 



COMPARE EXPECTED AND RECIEVED 



MOV 

BiC 
CMP 
BNE 
6JC 
BR 

35$: 

.•REPORT INCORRECT 



RMFRlKSeDDAT 
ir*CJAE,$8DDAT 
SGDDAT.S6DDAT 
35$ 

*SKI.300$ 
5$ 



••JAE" STATUS 
;IS lAE OK?? 

.-SAVE lAE BIT FOR COMPARE 

.■CORRECT "lAE" STATUS ? 

;8R IF NO 

.•CLEAR SKI FLAG 

;G0 CHECK NEXT ERROR 



'lAE" STATUS VIA USER'S ERROR CALL 



5$: 



ADD 
MOVB 

SUB 
JSR 
SUB 
NOP 



#4.(SP) 
#51.a(SP) 
#2.(SP) 

PC.a(SP)* 

*10.(SP) 



ERROR 51 

MOVE SP TO RETURN FOR ERROR 
REPORT INCORRECT lAE 
.•RESTORE (SP) 



REPORT ANY IVC ERROR AS 

IVC ERROR WITH VOLUME VALID ZERO 
ERRONEOUS IVC ERROR. VOLUME VALID IS SET 



51$: 
/ 

52$: 



.•REPORT 



53$: 



BIT *IVC.RMER2I 

BEQ 52$ 

CLR $GDDAT 

MOV RMER2I.$BDDAT 

ADD #4.(SP) 

MOVB #60,a(SP) 

BIT m.RMDSI 

BEQ 51$ 

MOVB #61.a(SP) 

SUB #2.(SP) 

JSR PC, a(SP)+ 

SII3 /lf10,(SP) 
NOP 

MOV RMER2I,$8DDAT 

BIC **CSKI.$BDDAT 

MOV 300$.$GDDAT 

BIC **CSKI.$GDDAT 

BEQ 53$ 

ERROR IF SKI IS NOT SET 

BIT #SK].$8DDAT 

BNE 54$ 

ADD #4,(SP) 

MOVB #267. a (SP) 

SUB #2.{SP) 

JSR PC.a(SP)* 

SUB »^o.^sp) 

BR 6$ 



IVC ERROR?? 

Noi; 

EXPECTED STATUS 
RECEIVED STATUS 
MOVE SP TO USER'S ERROR 
ERROR 60 IF VV - 0 



ERROR 61 IF VV - 1 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
RESTORE SP 



RECEIVED STATUS 
CLEAR DONT CARES 
GET EXPECTED SKI STATUS 
CLEAR DONT CARES 
BRANCH IF 0 EXPECTED 

(lAE WAS NOT DETECTED) 
WAS SKI DETECTED ?? 
yE§ !! 

MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 
GO TO NEXT ERROR CHECK 
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PAGE 



1 

29-2 



SCO 0??0 



•^5 

•17 
•18 

119 
1?0 
1?1 
V2 
V3 
'2U 
V5 
126 
V7 
V8 
V9 
1?0 
151 
'52 
155 
154 
155 
156 
157 
US 
159 
140 
Ul 
Kt' 
H5 
144 
14S 
146 
147 
148 
149 
'SO 
'SI 



IS! 

154 

15S 

156 

157 

158 

159 

160 

161 

162 

165 

164 

165 

'66 

'67 

168 

169 

1 '0 
1 1 



051634 
051642 
05'' 644 
051650 
051656 
051662 
051664 
051670 



051672 
051 700 
051702 
051706 
051714 
051720 
051726 
C51 752 
0S1754 
051740 



051742 
051750 
051 752 
051756 
051764 
051770 
051776 
052004 
052006 
052014 
052020 
052022 
052026 



052050 
052034 
052040 
052044 
052046 



052052 
052060 
052062 
052070 
052072 
052100 
052106 
052114 
052120 
0S2'26 



032737 
001413 
062716 
112776 
162716 
004736 
162716 
000240 



032737 
001420 
005057 
013737 
062716 
112776 
162716 
004736 
162716 
000240 



032737 
001427 
005037 
013737 
062716 
112776 
032737 
001403 
112776 
162716 
004736 
162716 
000240 



013746 
042716 
022726 
001002 
000137 



032737 
001030 
032737 
001024 
013737 
052737 
013737 
062716 
112776 
162716 



040000 001142 
000004 

000054 000000 
000002 

000010 



000200 001400 
001140 

001400 001142 
000004 

000055 000000 
000002 

000010 



020000 001 352 
001140 

001352 001142 
000004 

000052 000000 
010000 001350 

000053 000000 
000002 

000010 



.-REPORT ERROR IF SKI IS S£T 



001350 
047677 
110100 

052402 



010000 001350 



020000 

001350 
010000 
001350 
000004 
000062 
000002 



001352 



001140 
001140 
001142 

000000 



BIT 
BED 
ADD 

nova 

SUB 
JSR 
SUB 
NOP 



#SKI,S600AT 
54S 

#4,(SP) 
«r54,a(SP) 
#2.(SP) 

pc.a(SP)* 

#10. (SP) 



IS SKI SET ?? 

NO - SKI IS OK 

MOVE (SP) TO ERROR 

LOAD ERROR NUMBER 

MOVE SP TO RETURN FOR ERROR 

REPORT SEEK ERROR 

RESTORE (SP) 



.-REPORT ANY DEVICE CHECK 
54$: 



BIT 


#DVC.RMER2I 


;UAS THERE DVC DURING SEi'K?? 


BEO 


6S 


.-NO! .' 


CLR 


SGDDAT 


.•EXPECTED STATUS 


MOV 


RMER2I.$8DDAT 


.-RECEIVED STATUS 


ADD 


*4,(SP) 




M0V8 


*55.a(SP) 


.-ERROR #55 


SUB 


#2.(SP) 


.-MOVE SP TO RETURN FOR ERROR 


JSR 


PC,a(SP)* 


.REPORT ERROR VIA USER 


SUB 


*10.(SP) 


.•RESTORE SP 


NOP 







6$; 



.•REPORT ANY 't)PI" ERROR AS OPI WITH MOL 
.-BECAUSE ON CYLINDER LATCH DIDN'T RESET 
#0PI.RMER1I 
8$ 

SGDDAT 

RMERII.SBDDAT 
*4,(SP) 
*52.a(SP) 
*MOL.RMDSI 
7$ 

#53.a(SP) 
#2.(SP) 

pc.a(SP)* 

#10, (SP) 



7$: 



;SEE 
8S: 



IF 



.•REPORT 
9S: 



BIT 
BEQ 
CLR 
MOV 
ADD 
MOVB 
BIT 
BEQ 
MOVB 
SUB 
JSR 
SUB 
NOP 

•PIP" 

MOV 

BIC 

CMP 

BNE 

JMP 

ERROR 

BIT 

BNE 

BIT 

BNE 

MOV 

BIS 

MOV 

ADD 

MOVB 

bUB 



0. OR OPI 



•t)PI" ERROR?? 
NO.' I 

EXPECTED STATUS 
RECEIVED STATUS 
MOVE (SP) TO ERROR 
LOAD ERROR NUMBER 
WAS MEDIUM ON LINE?? 
NO! ! 

YES - CHANGE ERROR NUMBER 
MOVE SP TO RETURN FOR ERROR 
REPORT "OPI" ERROR 
RESTORE (SP) 



- 0. AND "ATA". 'MOL" AND *VV" = 1 
RMDSI.-(SP) 

#*C<ATA!PIP.MOLIVV>,(SP) 

#ATAIMOL!VV.(SP)+ 

9$ ; ERROR IN RMDS 

14$ ;RMDS IS OK 

IF MOL = 0 AND OPI = 0 



<WOL,RMDSI 
10$ 
#0PI,RMER1I 
10$ 

RMDSI,$GDDAT 

#M0L.$GDDAT 

RMDSI.SBDDAT 

#4.(SP) 

#62.a(SP) 

#2.(SP) 



;IS MOL RESET?? 
;N0 - MOL IS SET 
-WAS OPI SET 

;YES - DONT REPORT ERROR 
.•EXPECTED STATUS 

.-RECEIVED STATUS 



.-MOVE SP TO RETURN FOR ERROR 
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^72 
'73 
' 74 
17S 

1^7 
178 
'79 
•80 
'81 
18? 
'83 
18^ 
185 
186 
187 
188 
'89 
190 
191 

W3 

196 
197 
198 
199 
.-•00 

^ou 

?05 

.'Ofi 
^07 
.'08 
.'U9 

.'11 
,M.' 
■ M! 
.'U 
.MS 
.M6 

.'18 
.>19 

.VI 

> 1 > 



05213? 
052134 
052U0 



0S2U? 
052150 
052152 
052160 
052162 
0521 70 
0521 76 
052204 
052210 
052216 
052222 
052224 
052230 



052252 
052240 
052242 
052?50 
052256 
052264 
052270 
052276 
05230? 



05j 
05i 



'304 
310 



052^12 
052520 
052322 
052550 
052552 
052540 
052546 
052554 
052560 
052566 
0525/2 
052574 
052400 
052402 



052402 
052*04 
052410 
05,'4U 
0^2416 
^^.'4.\^ 



004736 

162716 
000240 



032737 
001430 
032737 
001024 
013737 
042737 
013737 
062716 
112776 
162716 
004736 
162716 
000240 



032737 
001024 
013737 
052737 
015737 
062716 
112776 
162716 
004736 

162716 
000240 



052737 
001050 
052757 
001024 
015737 
052757 
015757 
062716 
112776 
162716 
004756 
162716 
000240 



000240 
062716 
105776 
001405 
062716 
000*402 



00CO10 



JSft 
SUB 
NOP 



«>i,a(SP)* 

#10.(SP> 



020000 001350 10S: 
040000 001400 



001 350 
020000 
001350 
000004 
000056 
000002 

000010 



100000 

001 350 
110600 
001350 
000004 
000057 
000002 



000010 



000100 

010000 

001350 
000100 
001350 
000004 
000064 
000002 

000010 



00000* 
000000 

000004 



001140 
001142 
001142 

000000 



001350 

001400 

001140 
001140 
001142 

000000 



.-REPORT AN ERROR IF 'PIP" IS 



BIT #PIP.R»SI 

BEO IIS 

BIT #SKI.RnER2I 

6NE 11S 

MOV RfOSI.SGODAT 

BIC #PIP.$BOOAT 

nOV RnDSI.SBDDAT 

ADD #4.(SP) 

wove #56.a(SP) 

SUB *2.(SP) 

jsR pc,a(sp)+ 

SUB #10. (SP) 
NOP 



.'REPORT ERROR VIA USER 



STIL SET AND SKI NOT SET 
IS "PIP" STILL SET?? 

nO' ' 

was' "SKI* "SET?? 
VES-DONT REPORT PIP 
EXPECTED STATUS 

RECEIVED STATUS 
MOVE (SP) TO ERROR 
LOAD ERROR NUMBER 
MOVE SP 10 RETURN FOR ERROR 
REPORT "PIP"' SET AFTER SEEK 
.RESTORE (SP) 



.REPORT AN ERROR IF "ATA" IS NOT SET 



001350 


11$; 


BIT 


#ATA.Rn0SI 


WAS "ATA" SET ?? 




BNE 


13S 


YES!! 


001140 




MOV 


RMDSI.SGDDAT 


•EXPECTED STATUS 


001140 




BIS 


#ATA!M0L!DPR!DRY 


,$GDDAT 


001142 




MOV 


RMDSI.SBDDAT 


■RECEIVED STATUS 






ADD 


#4,(SP) 


•MOVE (SP) TO ERROR 


000000 




M0V8 


#57.a(SP) 


;L0AD ERROR NUMBER 






SUB 


#2.(SP) 


;M0VE SP TO RETURN FOR ERROR 






JSR 


pc.acsp)* 


^REPORT ATTENTION NOT SET DURING 
;SEEK TEST 






SUB 


#10. (SP) 


.•RESTORE (SP) 






NOP 







13$: 



ERROR 


IF VOLUME VALID 


IS RESET AND IVC IS ZERO 


BIT 


m.RHDSI 


.•IS VV = 0 ?? 


BNE 


14$ 


;N0! ! 


BIT 


#IVC.RMER2I 


;IS IVC ALSO 0 ?? 


BNE 


14$ 


;N0 - IVC IS SET 


MOV 


RMDSI.SGDDAT 


.-EXPECTED STATUS 


BIS 


#VV.$GDDAT 




MOV 


RMOSI.$BODAT 


.•RECEIVED STATUS 


ADD 


#4.(SP) 




M0V8 


#64.a(SP) 


.ERROR #64 


SUB 


#2.(SP) 


.•MOVE SP TO RETURN FOR ERROR 


JSR 


PC.d(SP)* 




ScB 


#10. (SP) 




NOP 







U$: 

.•MODIFY THE RETURN ADDRESS IF AN ERROR WAS DETECTED 
NOP 

ADD #4,(SP) 

TST8 a(SP) 

BEO 15$ ^ 

ADD #4.(SW 

BR 16$ 



MOVE (SP) TO ERROR CALL 
WAS ERROR CALLED?? 
NO! 1 

MOVE TO ERROR RE TURN 



B 2 
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llK STATUS CHECK SUBROUTINE 

229 052<.2«. 1627^6 000004 '5$: SU8 #<..(SP) ;MOVE (SP) TO NO ERROR RET JRN 

230 052430 000207 16S: RTS PC .-RETURN 

232 052432 000000 300S: .WORD 0 .-ERROR FLAGS 



r\'R3L.fR veEAR SUBMOUTINE 



2 
3 
4 
5 
6 
7 

8 
9 
10 

n 

12 052454 

0524 5A 010046 

052436 010146 

052440 01 3746 000004 

052444 01 3746 000006 

13 052450 012737 052510 

14 052456 012737 000300 

15 052464 013700 001276 

16 C52470 012760 000040 

17 052476 013701 001466 

18 052502 111160 000010 

19 052506 000412 
20 

21 052510 022626 

22 052512 062766 000004 

23 052520 112776 000007 

24 052526 162766 000002 

25 052534 

052534 012637 000006 

052540 012637 000004 

052544 012601 

052546 012600 

26 052550 000207 
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.S8TTL CONTROLLER CLEAR SUBROUTINE 

THIS SLBROUTINE CLEARS TH^ MASS8US CONTROLLER, MASS8US ADAPTERS, 
AND DRIVES, THEN SELECTS THE DRIVE. 



CALL; 



CNTCLR; 



000004 
000006 

000010 



000010 
000010 
000010 



10$: 



20S: 



JSR 

BR 

NOP 

ERROR 
■)■)'> 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

M0V8 

BR 

CMP 
ADD 

nov8 

SUB 

MOV 
MOV 
MOV 
MOV 

RTS 



PC, CNTCLR 



RO,-(SP) 

RI.-(SP) 

ERRVEC,-(SP) 

ERRVEC*2,-(SP) 

#10$.ERRVEC 

#PR6,ERRVEC*? 

SBASE.RO 

#CLR.RMCS2(R0) 

TST0UE,R1 

(R1).RMCS2{R0) 

20S 

(SP)*.(SP>* 
#4,10(SP) 
#7.810(SP) 
#2,10(SP> 

(SP)*,ERRVEC*2 

(SP)*.€RRVEC 

(SP)*,R1 

(SP)*.RC 

PC 



RETURN HERE 
RETURN HERE 
SUB DEFINES 



IF NO ERROR FOUND 
IF ANY ERROR FOUW 
ERROR Nl/IBFR 



;;PUSH RO ON STACK 
;;PUSH R1 ON STACK 
;;PUSH ERRVEC ON STACK 

;;PUSH ERRVEC ^2 ON STACK 
.•SETUP FOR BUS TIMEOUT 

;R0 = UNI8US ADDRESS 
.•CLEAR MASS8US 
;6ET DEVJCE UNDER TEST 
.•SELECT DEVICE 



ADJUST STACK 

MOVE SP TO USER'S ERROR CALL 
WRITE THE ERROR MfOER 
ADJUST SP TO RETURN TO ERROR 

;;POP STACK INTO ERRVEC ^2 
.POP STACK INTO ERRVEC 
;POP STACK INTO HI 
;POP STACK INTO RO 



'"ontrolcER clear status .heck subroutine 



0 2 
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2 
I 

5 



8 
9 
10 

n 

15 
16 
17 
'8 
19 
20 
21 
22 
23 
2^ 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 
38 
39 
AO 
A1 
42 
A3 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



052552 



052552 
052556 
052562 

052566 
052574 
052602 
052610 
052616 
052620 
052624 
052632 
052636 
052640 
052644 

052646 
052652 
052660 
052662 
052666 
052674 
052700 
052702 
052706 

052710 
052716 
052720 
052722 
052726 
052730 
052734 



062716 
105076 
162716 

013737 
042737 
012737 
023737 
001413 
062716 
112776 
162716 
004736 
162716 
000240 

005037 
013737 
001413 
062716 
112776 
162716 
004736 
162716 
000240 

013737 
010146 
005046 
013701 
111116 
052716 
012637 



000004 
000000 
000004 

001336 
100000 
004200 
001140 

000004 
000126 
000002 

000010 



001140 
001342 

000004 
000127 
000002 

000010 



.S8TTL CONTROLLER CLEAR STATUS CHE^K SUBROjTINE 

THIS SUBROUTINE VERIFIES THAT THE SUBSYSTEM IS INITIALIZED BASED ON 
STATUS STORED IN THE GET BUFFER. THIS SUBROUTINE SHOULD ONLr BE 
USED FOLLOWING A CONTROLLER CLEAR OPERATIQfJ. \.t.. WRITING A 1 IN BIT 
5 OF RMCS2. BECAUSE THE ERROR MESSAGES ARE BASED ON THAT CONDITION. 



STATUS PERTINENT TO THE DEVICE IS NOT CHECKED. 
FOLLOWING STATUS BITS ARE NOT CHECKED: 



IN PARTICULAR, THE 



ATA.ERR.P1P.M0L.WRL.L8T,PGM.VV.0«,UNS,SKI,DVC 



CALL: 
(1) 



JSR 

BR 

NOP 

ERROR 

JSR 
■>■>•> 



PC.CLRSTS 



PC,8(SP)* 



RETURN HERE IF NO ERROR 

RETURN HERE TO REPORT AN ERROFi 

ERROR NLfeER DEFINED BV SJB 

GO BACK TO sue FOR WORE ERROR CHEC^^S 

RETURN HERE If NO ERRORS 



CLRSTS: 



001142 
001142 
001140 
001142 



000000 



001142 
000000 



001346 001142 



001466 



000100 
001140 



.•CLEAR USER'S 
ADD 
CLP8 
SLB 

; REPORT ERROR 
4$: MOV 
BIC 
MOV 
CMP 
BFO 
ADD 
M0V8 
SLB 
JSR 
SLB 
NOP 

.REPORT ERROR 
5$: CLR 
MOV 
BEO 
ADD 
M0V8 
SUB 
JSR 
SLB 
NOP 

.REPORT ERROR 
7$: MOV 
MOV 
CLR 
MOV 
M0V8 
BIS 
MOV 



ERROR CALL 
#4.(SP) 

acsp) 

#4.(SP) 
IF RMCSl NOT INIT 
RMCSII.SBODAT 
#SC,$8DDAT 
mA.'RDY.SGDDAT 
SGDDAT,S8DDAT 
5$ 

#4,(SP) 

*126.a(SP) 

#2,(SP) 

pc.a(SP)* 

#10.CSP) 

IF RMBA NOT RESET 
SGDDAT 

RnBAI,$BDDAT 
7$ 

#4,CSP) 

#l27,a<SP) 

#2,(SP) 

pc.a(sp)* 

#10. (SP) 



MOVE SP TO ERROR 
CLEAR ERROR NUMBER 
MOVE SP BACK TO NO ERROR 
lALJZED 

VERIFY RMCSl 

IGNORE SPECIAL CONDITION 
EXPECT DVA I RDY 
COMPARE EXPECTED, RECEIVED 
BRANCH IF EQUAL 
MOVE SP TO USER'S ERROR CALL 
UITE ERROR NUMBER IN CAcL 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO NO ERROR 



.•VERIFY RMBA IS ZERO 

BRANCH IF ZERO 
MOVE SP TO USER'S ERROR CAL. 
WITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO NO ERROR 



IF RMCS2 NOT INITIALIZED 



RMCS2i«S6DDAT 
Rl.-CSP) 
-(SP) 
TST0UE.R1 
(RD.CSP) 
#IR.(SP) 
(SP) ♦.SGDDAT 



VERIFY RMCS2 
;PUSH Rl ON STACK 
EXPECT IR I UNIT NUMBER 
Rl = ADDRESS OF TEST QUE 



cmroller clear 



FCTNL rST 3 
STATUS CHECK 



WACRO V04.00 
SUBROUTINE 



4-APR-81 0i:'5:b9 



E 

PAGE 



2 
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58 
59 
60 
61 
62 
65 
64 
65 
66 
67 
68 
o9 
70 
7} 
72 
73 
7A 
75 
76 
77 
'8 
79 
80 
81 
82 
83 
8A 
85 
86 
87 
88 
89 
90 
9' 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
10A 
105 
106 
107 
108 
109 
110 

in 

112 
113 



052740 
052742 
052750 
052752 
052756 
05276A 
052770 
052772 
052776 

053000 
053004 
05301? 
053020 
053022 
055026 
053034 
053040 
053042 
05 3046 

053050 
053056 
053064 
053072 
053100 
053102 
053106 
053114 
053120 
053122 
053126 

053130 
053134 
053142 
053144 
053150 
053156 
053162 
053164 
053170 

053172 
053200 
053206 
053214 
053222 
053224 
053230 
053256 
053242 
053244 
053250 

053252 
055256 



012601 
023737 
001413 
062716 
112776 
162716 
004736 
162716 
000240 

005037 
013737 
042737 
001413 
062716 
112776 
162716 
004756 
162716 
000240 

015757 
042757 
012757 
023757 
001415 
062716 
112776 
162716 
004756 
1627'6 
000240 

005057 
013757 
001413 
062716 
112776 
162716 
004756 
162716 
000240 

013737 
042737 
012737 
023757 
001415 
062716 
112776 
162716 
004736 
162716 
000240 

005037 
015737 



001140 

000004 
0001 50 
000002 

000010 



001140 
001552 
040000 

000004 
000151 
000002 

000010 



001 562 
000046 
000010 
001140 

000004 
0001 55 
000002 

000010 



001 140 
001404 

000004 
000135 
000002 

000010 



001376 
140000 
011777 
001140 

000004 
000136 
000002 

000010 



001140 
001400 



001142 
000000 



001142 
001 U2 



000000 



001142 
001142 
001140 
001142 



000000 



001142 
000000 



001142 
001142 
001140 
00^142 



000000 



.REPORT 
91: 



MOV {SP)*.R1 

CMP $GDDAT.$BDDAT 

BEQ 9$ 

ADD #4,(£P) 

M0V8 *l30,a(SP) 

sue #2.(SP) 

JSR PC.a(SP)+ 

SUB #10, (SP) 
NOP 

ERROR IF R,v|ER1 NOT RESET 

CLR SGDDAT 

MOV RMERU.SSDDAT 

BIG #UNS.$BDDAT 

BEO 15S 

ADD #4.(SP) 

MOve #131,S(SP) 

SUB #2.(SP) 

JSR PC.S'SP)* 

SUB #10. (SP) 



.•REPORT 
13$: 



.•REPORT 
17$: 



.•REPORT 
19$. 



.■POP STACK INTO Rl 
COMPARE EXPECTED t RECEIVED 
flRANCH IF EQUAL 
MOVE SP TO USER'S ERROR CALL 
WITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN FQR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO NO ERROR 

IGNORE UNS 
VERIFY RMER1 

IGNORE UNSAFE 

BRANCH IF ZERO 

MOVE SP TO USER'S ERROR CALL 

WITE ERROR NUMBER IN CALL 

MOVE SP TO RETURN FOR ERROR 

REPORT ERROR VIA USER 

MOVE SP BACK TO NO ERROR 



NOP 

ERROR IF RMMfil NOT INITIAL] ZED-IGNORE WC.LS.LST 



MOV 
BIG 
MOV 
CMP 
BEO 
ADD 
M0V8 

sue 

JSR 
SUB 
NOP 

AN ERROR IF RMEC2 IS NOT RESET 



RMMR1].$BDDAT 
#WC.'LS!LST.$8DDAT 
«MWO. SGDDAT 
SGDDAT. SBDDAT 
17$ 

#4.(SP) 
#133.a(SP) 
#2,(SP) 

PC,a(SP)* 

#10. (SP) 



VERIFY RMMR 

.•IGNORE WORD CLOCK, SCT, TRk 
EXPECT WRITE DATA BIT 
COMPARE EXPECTED AND RECEIVED 
BRANCH IF 0 

MOVE SP TO USER'S ERROR TALL 
WITE ERROR HJHER IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO NO ERROR 



CLR 
MOV 
BEO 
ADD 
M0V8 
SUB 
JSR 
SLJ3 
NOP 

ERROR IF RMMR2 NOT INI T I AL I ZED-IGNORE RQA,ROB 
RMMR2I,$BDDAT .-VERIFY RMMR2 
#ROA! ROB, SBDDAT 
#TST!1 777, $GDDAT 
$GDDAT, SBDDAT 



$6DDAr 
RMEC2I.$8DDAT 
19$ 

#4.(SP) 

#135,a(SP) 

#2,(SP) 

pcacsp)* 

#10, (SP) 



.•EXPECT ZEROS 
; VERIFY RMEC2-0 

.'MOVE SP TO USER'S ERRufi CAlL 
.-WITE ERROR NUMBER IN CALL 
.•MOVE SP TO RETURN FOR ERROR 
.■REPORT ERROR VIA USER 
;MOVE SP BACK TO NO ERROR 



00114? 



.•REPORT 
21S: 



MOV 

BIG 
MOV 
CMP 

8FQ 21$ 
ADD #4,CSP) 
M0V8 #136.a(SP) 
SUB #2.(SP) 
JSR PC.a(SP)* 
SUB #10. (SP) 
NOP 

ERROR IF RMER2 NOT RESET-IGNORE SKI.DVC 
CLR SGDDAT ;EXPECT ALL ZEROS 

MOV ' 



.'EXPECT TEST BIT ON 



MOVE SP TO USER'S ERROR CALL 
WITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO NO ERROR 



SGDDAT 

RMER2I. SBDDAT ;VERIFY RMER2 



ZKMOeO FCTNL TST 5 MACRO VOA.OO <.-AP«-81 
"CNTRaLER CLEAR STATUS CHECK SUBROUTINE 

115 053264 0A2737 040200 001 U2 BJC 

n6 053272 00K13 BEQ 

''17 05327A 062716 OOOOOA ADD 

113 053300 112776 000174 000000 MOVQ 

119 053306 162716 000002 SU8 

120 053312 004736 JSR 

121 053314 162716 C00010 SUB 

122 053320 000240 NOP 
V3 .-REPORT ERROR 

124 053322 013737 001350 001142 215$: MOV 

125 05^330 042737 ■77^17 001 142 BIC 
'26 053336 0127^7 000600 001140 MOV 
"?7 053544 023737 001140 001142 CMP 
V8 053352 001413 BEQ 

129 055354 062716 000004 ADD 

130 055560 112776 000154 000000 M0V8 
Ml 055566 162716 0000C2 SUB 
'52 055572 004756 JSR 

155 055574 162716 000010 SUB 
■54 C55400 000240 NOP 
M5 055402 062716 000004 22$: ADD 

156 055406 105776 000000 TST8 

157 053412 001403 BEQ 
138 053414 062716 000004 ADD 
M9 053420 000402 BR 
140 05342? 162716 000004 25$: SUB 
U1 055426 000240 24$: NOP 
'4? 053430 000207 RTS 
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iEO 0226 



*SKJ.'DVC.$BDDAT 

215$ 

*4,(SP) 

#174,S(SP) 

#2. (SPy 

PC.a(SP)* 

*10,(SP) 



JGNORE DEVICE ERRORS 
BRANCH If OTHER BITS 0 
MOVE SP TO USER'S ERROR CALL 
WITE ERROR NUMBER IN CALL 
MOVE SP TO RETUiRN fOR ERROR 
REPORT ERROR VIA USER 
MOVk SP BACK TO NO ERROR 



IF RMDS NOT INITIALIZED 

RMDSI.$BDDAT ;TEST DRIVE STATUS REGISTER 
**C<DRY!DPR>.$8DDAT 

*DPR.DRY.$GDDAT .-EXPECTED DRIVE STATUS 

$GDDAT.$8DDAT .-COMPARE EXPECTED ft RECEIVED 

22$ .-BRANCH IF EQUAL 

#4.(SP) .-MOVE SP TO USER'S ERROR CALL 

#154.S(SP) .-WRITE ERROR NUMBER 

«2.(SP) .-MOVE SP TO RETURN FOR ERROR 

PC,a(SP)* ; REPORT ERROR TO USER 

#10. (SP) .-MOVE SP BACK TO NO ERROR 

#4.(SP) .-MOVE SP TO ERROR CALL 

S(SP) .-WAS AN ERROE DETECTED?? 

23$ ;N0:. 

#4,(SP) ;YES - MOVE TO ERROR RETURN 
24$ 

*4,(SP) .-MOVE SP TO NO ERROR RETURN 
PC 



PACK ACKNOWLEnOE S'ATU«i CHECK. 



2 
3 

5 

6 
7 

8 

9 
10 
11 

M! 
M 
u 

15 053A32 

16 

17 

18 053A32 062716 

19 053436 105076 

20 C534A2 162716 
21 

22 

25 053446 032737 
?4 053454 001024 

25 053456 013737 

26 055464 052737 

27 053472 013737 

28 053500 062716 

29 053504 112776 

30 053512 162716 

31 053516 004736 

32 053520 162716 

33 053524 000240 

34 053526 
35 

36 

37 353526 032737 

38 053534 001024 

39 053536 013737 

40 053544 052737 

41 053552 013737 

42 C53560 062716 

43 053564 112776 

44 053572 162716 
«,5 053576 004736 

46 053600 162/16 

47 053604 000240 
<*8 053606 

49 
50 

51 055606 052737 

52 0556U 001570 
55 

54 

55 053616 032737 

56 055624 00 1424 

57 055626 015757 
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000004 
000000 
0C0004 



000100 001350 



001350 
000100 
001350 
000004 
000155 
000002 

000010 



001350 

010000 
001350 
000004 
000041 
000002 

000010 



040000 
001552 



001140 
001140 
001142 

000000 



010000 001350 



001140 

001140 
001142 

000000 



060007 001352 



001552 
001 142 



.58TTL PACK ACKNOWLEDGE STATUS CHECK 

THJS SUBROUTINE CHECKS THE RESULTS Of A PACK ACKNOWLEDGE 
CO««AND USING THE STATUS STORED IN THE GET BUffER. ERRORS ARE 
REPORTED TO THE USER VIA THE USER'S ERROR CALL. 



CALL: 
(1) 



JSR 

BR 

NOP 

ERROR 

jSR 
•»•>■) 



PC.ACKSTS 



Pc.a(SP)* 



ACKSTS: 



.•CLEAR USER'S CRROR CALL 

ADD *4,(SP) 

CcRB a(SP) 

SUB *4,(SP) 

.•REPORT AN ERROR IF "VV IS 0 

BIT /rvV.RMDSI 

BNE IS 

MOV RMDSI.SGDDAT 

BIS *VV.$GDDAT 

MOV RMDSI.SBDDAT 

ADD #4.(SP) 

M0V8 #155.i(SP) 

sue #2.(SP) 

JSR PC.SCSP)* 

sue #10. (sp) 

NOP 

1$: 

.•REPORT AN ERROR IF 'WOL" IS 0 



RETURN HERE IF NO ERROR 

RETURN HERE TO REPORT AN ERROR 

ERROR NUMBER DEFINED BY SUB 

GO BACK TO sue FOR MORE ERROR CHECKS 

RETURN HERE IF NO MORE ERRORS 



MOVE SP TO ERROR f ALL 
CLEAR LOW ORDER BYTE 
MOVE SP BACK 



IS VOLUME VALID SET?? 
YES' ! 

EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO ERROR CALL 

WRITE NUMBER IN ERROR CALL 

MOVE SP TO RETURN FOR ERROR 

REPORT THE ERROR 

MOVE SP BACK TO BRANCH 



BIT 


#MOL.RHDSI 


.•IS MOL SET?? 




BNE 


2S 


.•VES.'i 




MOV 


RMDSI.SGDDAT 


.•EXPECTED STATUS 




BJS 


*MOL.$GDOAT 






MOV 


RMPSI.IBDDAT 


.RECEIVED STATUS 




ADD 


#4.(SP) 


;MOVE SP TO ERROR CALL 




M0V8 


*41 ,i(SP) 


.•WRITE NUMBER OF ERROR 


IN CALL 


SUB 


#2.(SP) 


;MOVE SP TO RETURN FOR 


ERROR 


JSR 


PC.S(SP)* 


.•REPORT TH ERROR 




sue 


#10. (SP) 


.■MOVE SP TO BRANCH 




NOP 









2S: 

.SEE IF *\JNS".'t)Pr'.'"RMR"."lLR". OR ■"ILF" IS SET 
BIT #UNS.0PI.RMR.ILR.ILF.RMER1I 
BEQ 7$ 

; REPORT AN ERROR IF 'DNS" IS SET 

BIT #UNS.RMER1I ;WAS UNS SET?? 

BEQ 3$ .•NO. . 

MOV RMERII.SBDDAT ;RECEIVED STATUS 



PA!« AfKNOWLEOGf STATUS CHECK 
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H 

PAGE 



2 
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58 

59 
60 
61 
62 
63 
64 
65 
66 
£7 
68 
o9 

70 

71 
72 
71 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
Q4 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 



0536^4 

053642 
053650 
053654 
05366? 
053666 
055670 
053674 
055676 



054116 
054124 
054126 
054154 



015757 
042^57 
062716 
112776 
162716 
004756 
162716 
000240 



00155? 
C40000 
000004 

000042 
000002 

UOOCO 



001140 
001 140 

000000 



055676 


052757 


020000 


001552 


055704 


001424 






055706 


015757 


001552 


001142 


055714 


015757 


001352 


001140 


055722 


042757 


02C000 


001140 


055750 


062716 


000004 




055754 


112776 


000043 


000000 


055742 


162716 


000002 




C55746 


004756 






055750 


162716 


000010 




055754 


000240 






055756 









3$. 

.•REPORT 



055756 


052737 


000004 


001352 


055764 


001424 






055766 


015757 


001352 


001142 


055774 


013757 


001352 


001140 


054002 


042757 


000004 


001140 


054010 


062716 


000004 




054014 


112776 


000044 


000000 


054022 


162716 


000002 




054026 


004/56 






054050 


162716 


000010 




054054 


000240 






054056 









4$: 

.•REPORT 



MOV RMERI I .$GDDAT 

BIC #UNS.SGDDAT 

ADD #4.(SP) 

nOVB «42,a(SP) 

SJ9 #2.(SP) 

JSR Pc.a(SP)* 

sue #10. (SP) 

NOP 



ANr OP I ERROR 

BIT #0PJ.RMER1I 

BEQ 4$ 

MOV RMER1I.$8DDAT 
MOV RMER1 I.SGDDAT 
BIC *OPI.$GDDAT 
ADD *4,(SP) 
M0"8 *43.a(SP> 
SUB #2.(SP> 
JSR PC.aCSP)* 
SUB *10.(SP) 
NOP 



.•EXPECTED STATUS 

.•MOVE SP TO ERROR CALL 
.•WRITE NUMBER OF ERROR IN CAii 
;M0VE SP TO RETURN FOR ERROR 
.•REPORT THE ERROR VIA USER 
.•MOVE SP TO NO ERROR RETURN 



SET 



WAS OP I 

NO. . 

RECEIVED STATUS 
EXPECTED STATUS 

MOVE SP TO ERROR CALL 
WRITE NUMBER OF ERROR IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 



AN^ RMR 


ERROR 




BIT 


#RMR.RMER1I 


;WAS RMR SET?? 


BEQ 


5$ 


;N0! . 


MOV 


RMERIKSBDDAT 


.•RECEIVED STATUS 


MOV 


RMERII.SGDDAT 


.•EXPECTED STATUS 


BIC 


/ITRMR.SGDDAT 




ADD 


#4.(SP) 


.•MOVE SP TO ERROR CALL 


M0V8 


*44.a(SP) 


; WRITE NUMBER OF ERROR IN CALL 


SUB 


M?ASP) 


;MOV£ SP TO RETURN FOR ERROR 


JSR 


pc.a(sp)+ 


.•REPORT THE ERROR VIA USER 


SUB 


♦10. (SP) 


.-MOVE SP TO NO ERROR RETURN 


NOP 







5$: 











.•REPORT 


ANV 


ILR ERROR 




054056 


052757 


000002 


001552 


BIT 


tlLR.RMERlI 


;WAS ILR SET?? 


054044 


001424 








BEQ 


6S 


;N0: ! 


054046 


015757 


001552 


001142 
OCUO 
00M40 




MOV 


RMEfill.SBDDAT 


.•RECEIVED STATUS 


054054 
054062 
054070 


013737 


001552 




MOV 


RMFRII.SGDDAT 


.•EXPECTED STATUS 


042757 


000002 




BIC 


*ILR.$GDDAT 




062716 


000004 






ADD 


#4.(SP) 


.•MOVE SP TO ERROR CALL 


054074 


112776 


000045 


000000 




M0V8 


#45.a(SP) 


; WRITE NUMBER OF ERROR IN CALL 


054 1 02 


162716 


000002 






SUB 


*2.(SP) 


.•MOVE SP TO RETURN FOR ERROR 


054106 


00<.756 








JSR 


pc.a(SP)* 


.•REPORT THE ERROR VIA USER 


054110 
054114 


162716 


000010 






SUB 


♦10. (SP) 


.-MOVE SP TO NO ERROR RETURN 


000240 








NOP 






054116 








6$: 









052757 
001424 
015757 
015757 



000001 001552 



001552 
001352 



001142 
001140 



.•REPORT ANY RF ERROR 

BIT tlLF.RMERlI 

BEQ 7S 

MOV RMERII.SBDDAT 

MOV RMERII.SGDDAT 



SET 



WAS ILF 

NO. . 

RECEIVED STATUS 
EXPECTED STATUS 



« ACKNOWLEDGE 



FCTNL TST 5 
STATUS CHECK 



''5 
'16 
- 17 

119 
1^0 
1?1 

V3 

V5 

^27 
1^8 
1?9 
15C 
131 
'^2 



0SA150 

0541 

054162 

054166 

054170 

054174 

054176 



0541 76 
054202 
054206 
054210 
054214 
0542' f 
0542^:- 
054224 



042737 
062716 
1^2776 
162716 
004736 
162716 
000240 



062716 
105776 
001405 
062716 
000402 
162716 
000240 
000207 



000001 
C00004 
000046 
000002 

000010 



000004 
000000 

000004 

000004 



liACRO V04.00 

001140 
000000 



7S: 
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BIC 

ADD 

M0V8 

SUB 

JSR 

SUB 

NOP 



#IlF.$GDDAT 

#4.(SP) 

#46.a(SP) 

#2.(SP) 

pc.a(SP)* 

#10. (SP) 



MOVE SP TO ERROR CALL 
WRITE NUMBER OF ERROR IN cail 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 



; AUGMENT RETURN ADL^RESS IF ERROR WAS FOUND 



8$: 
9$: 



ADD 
TST8 
BEQ 
ADD 
BR 
SUB 
NOP 
R^S 



#4.(SP) 
aCSP) 

ss 

#4.(SP) 
9$ 

4r4,(SP) 
PC 



MOVE SP TO ERROR CALL 
WAS ERROR FOUND?? 
NOI . 

YES - MOVE TO ERROR RETURN 
.-MOVE SP TO NO ERROR RETURN 



000004 
000000 
000004 



022011 001352 



'"ZRMOBO »»K)5/3/2 fr^l ts' 3 HACKQ 
«»€CA4.IBRATE STATUS hKk SJWOUTINE 



1 
2 
3 

5 
6 
7 

8 

9 
10 

11 

1? 

u 

IS 0SA2;6 

16 

17 

IS 054226 062716 

^9 054232 105076 

20 G54236 162716 

21 

22 

23 

24 054242 032737 

25 054250 001553 
26 

27 
28 

29 054252 032737 

30 054260 001430 

31 054262 032737 

32 054270 001024 
53 054272 013737 

34 054300 042737 

35 054306 013737 

36 054314 062716 

37 054320 112776 

38 054326 162716 

39 054332 004736 

40 054334 162716 

41 054340 000240 

42 054342 
43 

44 

45 054342 032737 

46 054350 001424 

47 054352 013737 

48 054360 042737 

49 054366 013737 

50 054374 062716 

51 054400 112776 

52 054406 162716 

53 054412 004736 

54 054414 162716 

55 054420 000240 

56 054422 
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000010 

000010 

001352 
000010 
001352 
000004 
000050 
000002 

000010 



001 3S2 
000001 
001352 
000004 
000071 
000002 

0000^0 



001352 

001400 

001 140 
001140 
001142 

000000 



000001 001352 



001140 
001140 
001142 

OOOCOO 



.S8TTL RECALIBRATE STATUS CHECK SUBROUTINE 

;THIS SUBROUTINE CHECKS THE RESULTS OF A RECALIBRATE OPERATION 
.•USING THE STATUS STORED IN THE GET BUFFER. 



CALL; 
(1) 



JSR 
BR 
NOP 
ERROR 

JSR 

•>•>■> 



PC.RCLSTS 



pc.acsp)^ 



RCLSTS: 



.-CLEAR USER'S ERROR NUMBER 

ADD *4.(SP) 

CLRB a(SP) 

SUB #4.{SP) 



.-CALL SUBROUTINE 

RETURN HERE IF NO ERROR 

RETURN HERE TO REPORT AN ERROR 

ERROR NUMBER DEFINED BY SUB 

GO BACK TO SUB FOR MORE ERROR CHECKS 

RETURN HERE IF NO MORE ERRORS 



.•CLEAR USER'S ERROR CALL 
.•MOVE SP BACK TO BRANCH 



;SEb IF 'T»AR" OR "ILF" OR "OPI" OR "lAE" IS SET 
BIT ffOPI.PAR.lLF.IAE.RMERII 

BEQ 4$ .-NONE ARE SET - GO TO NEXT CHECK 



.■REPORT 
;'T»AR" 



ANv MASSBUS 
1 AND "DPE 
BIT 



1$: 



CONTROL 
- 0 
#PAR,RMER1 I 
BEQ 1S 
BIT #DPE,RMER2I 
BNE 1S 
MOV RMERII.SGDDAT 
BIC #PAfi,$GDDAT 
MOV RMERII.SBDDAT 
ADD #4,(SP) ;MOVE 
MOVB #50.a(SP) 
SUB #2.(SP) 
JSR PC.aCSP)* 
SUB #10. (SP) 
NOP 



BUS PARITY ERROR, I.E. 



SP 



.-REPORT ANY ' 
BIT 
BEO 
MOV 
BIC 
MOV 
ADD 
MOVB 

sue 

JSR 

sue 

NOP 



'ILF" ERROR 
#ILF,RMER1I 
2$ 

RMERII.SGDDAT 

#R.F,$GDDAT 

RMERII.tBDDAT 

#4.(SP) 

#71,a(SP) 

*2.(SP) 

PC.a(SP)* 

*10. (SP) 



WAS 'VAR" SET?? 
NO. ! 

WAS "DPE" SET?? 

YES - NOT A REGISTER ERROR 

EXPECTED STATUS 

RECEIVED STATUS 

TO USER'S ERROR CALL 

WRITE ERROR NUMBER IN CAlL 

MOVE SP TO RETURN FOR ERROR 

GO REPORT ERROR 

MOVE SP BACK TO BRANCH 



WAS "ILF" SET?? 
NO! ! 

EXPECTED STATUS 

RECEIVED STATUS 
MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO BRANCH 
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2 

33-1 



SEO 0?51 



S8 

59 

60 

6^ 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
105 
104 
105 
106 
107 
108 
109 

no 
111 
n2 
113 



REPORT ANr 'tIPl" ERROR AS 



054422 


032737 


020000 


001352 


054430 


00'!433 






054452 


015757 


001352 


001U0 


054440 


042757 


020000 


001140 


054446 


015757 


001552 


001142 


054454 


062716 


000004 




054460 


112776 


000072 


000000 


054466 


052757 


010000 


001350 


054474 


001405 






054476 


112776 


000075 


000000 


054504 


162716 


000002 




054510 


004756 






C54512 


162716 


000010 




054516 


000240 






054520 









3$: 



31$: 



OPl DUE TO 'WOL" 0 
. OPJ BECAUSE ON CYLINDER 

BIT #0PJ.RMER1I 

BEQ 51S 

MOV RMER11,tGDDAT 

BIC #0PJ,$GDDAT 

MOV RMER1I,$8DDAr 

ADD *4,(SP) 

M0V8 *72.a(SP) 

BIT *MOL,RMDSJ 

BEQ 5t 

M0V8 *73.a(SP) 

sue *2,(SP) 

jSR PC,a(SP)* 

sue *io,(SP) 

NOP 



054520 


032737 


002000 


001 3S2 


BIT 


054526 


001424 






BEQ 


054550 


015757 


001552 


001140 


MOV 


054556 


042757 


002000 


001140 


BIC 


054544 


015757 


001552 


001142 


MOV 


054552 


062716 


000004 




ADD 


054556 


112770 


000070 


000000 


M0V8 


054564 


162716 


C00002 




SUB 


054570 


004756 






JSR 


054572 


162716 


000010 




SUB 


054576 


000240 






NOP 


054600 








4$: 










;SEE IF ■•SKI' 


054600 


052757 


050200 


001400 


BIT 


054606 


001517 






BEQ 



.-REPORT AN ERROR IF "lAE" IS SET 
*IAE.RMER1I 
4S 

RMER1I,$GDDAT 
#IAE.tGDDAT 
RnER1I,$8DDAT 
#4.(SP) 
#70.a(SP) 
#2,(SP) 
PC.a(SP)* 
#10, (SP) 



LATCH DIDN'T RESET 
WAS OPJ SET/? 
NO! I 

EXPECTED STATUS 

RECEIVED STATUS 
MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUM3ER IN USER'S CALL 
WAS 'MOL" = 0?? 
YES! ! 

NO - CHANGE ERROR NUTBER 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO BRANCH 



IS "lAE" SET?? 
NO! ! 

EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO ERROR CALL 

WRITE ERROR NLMBER IN USFR'S CALL 

MOVE SP TO RETURN FOR ERROR 

REPORT ERROR 

MOVE SP BACK TO NO ERROR RETURN 



! "IVC" OR •T>VC" IS SET 
#SKI!IVC:DVC,R«ER2I 



C54610 


052757 


010000 


001400 




BIT 


054616 
054620 


001453 








BEQ 


013737 


001400 


001140 




MOV 


054626 


042737 


010000 


001140 




BIC 


054654 


015757 


001400 


001142 




MOV 


054642 


062716 


000004 






ADD 


054646 


M2776 


000074 


000000 




M0V8 


054654 


052757 


000100 


001350 




BIT 


054662 


001405 








BEQ 


054664 


112776 


000075 


000000 




M0V8 


054672 


162716 


000002 




5$: 


sue 


054676 


004756 








JSR 


054700 


162716 


000010 






sue 


054704 


000240 








NOP 


054706 








61: 





8$ 



REPORT ANY "IVC" ERROR AS 
.IVC WITH VV = 0 
ERRONEOUS IVC ERROR 
#IVC,RMER2I 
6$ 

RnER21,$GDDAr 
#IVC,$GDDAT 
RMER2K$BDDAT 

*4,(SP) 
*74,a(SP) 
m,RMOSI 
5$ 

#75.a(SP) 
*2.(SP) 

pc.a(sp)* 

#10, (SP) 



.•NONE OF THE BITS ARE SET 



WAS IVC SET?? 
NO! ! 

EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO USER'S ERROR CALL 

WRITE ERROR NIMBER IN CALL 

WAS VV = 0?? 

YES!! 

NO - CHANGE ERROR NUMBER 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO BRANCH 
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L 

' PAGE 



115 










116 


054706 


032737 


C40000 


001400 


117 


0547K 


001424 






118 


054716 


013737 


001400 


001140 


119 


054724 


042737 


040000 


001140 


120 


054732 


0137V 


001 hOO 


001142 


121 


054740 


0627 6 


000004 




122 


054744 


112776 


000076 


000000 


123 


054752 


162716 


000002 




124 


054756 


004736 






125 


054760 


1o2716 


000010 




126 


054764 


000240 






127 


054766 








128 










129 










130 


054766 


032737 


000200 


001400 


131 


054774 


001424 






132 


054776 


0^3737 


001400 


001140 


133 


055004 


042737 


000200 


001140 


13A 


055012 


013737 


001400 


001142 


135 


055020 


062716 


000004 




136 


055024 


112776 


000077 


000000 


137 


055032 


162716 


000002 




138 


055036 
05^040 


004736 






139 


162716 


000010 




UO 


055044 


0C0240 






U1 


055046 








142 










143 










144 


055046 


013746 


001350 




145 


055052 


042716 


047676 




146 


055056 


022726 


110100 




147 


055062 


00100? 






148 


055064 


000137 


055500 




149 


055070 








15C 










151 










152 










153 


055070 


032737 


010000 


001350 


154 


055076 


001030 






155 


055100 


032737 


020000 


001352 


156 


C55106 


001024 






157 


055110 


013737 
052737 


001350 


001140 


158 


055116 


010000 


001140 


159 


055124 


013737 


001350 


001142 


160 


055132 


062716 


000004 




161 
162 


055136 


112776 


onoloo 


000000 


055144 


162716 


000002 




163 


055150 


004736 






164 


055152 


162716 


000010 




165 


055156 


000240 






166 


05516C 








167 










168 










169 


055160 


032757 


000100 


001350 


KO 


055166 


001030 






171 


055170 


032737 


010000 


001400 



.•REPORT 



7$: 



A 

BI 
BE 

MO^ 
BIG 
MOV 
ADD 
M0V8 

sue 

JSR 
SUB 
NOP 



«2I 



#76,a(SP) 
#2.(SP) 

pc,a(SP)* 

#10. (SP) 



kGDDAT 
.DDAT 
,SBDDAT 



.•REPORT ANV "nvC" ERROR 

BIT #DVC,RMER2I 

BEQ 8$ 

MOV RMER2I,$&DDAT 

BIC #DVC.$GDDAT 

MOV RMER2l,$8DDAT 

ADD #4.(SP) 

M0V8 /»77.a(SP) 

SUB #2.(SP> 

JSR PC.a(SP)* 

SUB #10,<SP) 
NOP 

8S: 

.-SEE If 'T>IP" AND "m" ARE 0. AND "ATA"/MOL" AND 'VV ARE 1 

?10V RhOSI.-(SP) .PUT RMDS ON STACK 

BIC #*C<PiP!«OL!VViOM:ATA>.(SP) 

CMP #ArA!MOL! VV.CSP)* 

BNE 85S 

JMP 13$ 



WAS SKI SET?-' 
NO. . 

EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO USER'S ERROR CALi 

WRITE ERROR NUMBER 

MOVE SP TO RETURN FOR ERROR 

REPORT ERROR VIA USER 

MOVE SP TO BRANCH 



WAS 't)VC" SET?? 
NO! ! 

EXPECTED STATUS 

RECEIVED STATUS 
MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP TO USER'S BRANCH 



85$: 

.•REPORT AN ERROR IF MOL = 0 AND OPI = 0. 
;LJNE AFTER RECALIBRATE WAS INITIATED 



I.E , MEDIUM WENT OFF 



BIT 


#f10L,RMDSI 


;DID MOL DROP?? 


BNE 


9$ 


;N0! : 


BIT 


«0PI.RMER1I 


.-WAS OPI ERROR REPORTED?? 
;YES - DON'T REPORT MOL 0 


BNE 


9S 


MOV 


RMDSI.$GDDAT 


.EXPECTED STATUS 


BIS 


#MOL,SGDDAT 




MOV 


RMDSI.$8DDAT 


.RECEIVED STATUS 
SP TO USER'S ERROR CALL 


ADD 


<f4.(SP) .-MOVE 


M0V8 


#100,a(SP) 


.-WRITE ERROR NUf«ER 


sue 


#2.(SP) 


.-MOVE SP TO RETURN FOR ERROR 


JSR 


pc,a(SP)» 


.•REPORT ERROR VIA USER 

.MOVE SP BACK TO USER'S BRANCH 


SUB 


*10.(SP) 


NOP 





9$; 



.•REPORT AN ERROR IF 'VV = 0 AND 
BIT *VV.RMDSI 
BNE lot 
BIT #IVC.RMER21 



"IVC" = 0 

DID "VV" DROP?? 

NO! . 

WAS THERE A IVC ERROR?? 



0S51 76 


001024 






055200 


01 5737 


00 1 550 


AAi 1 / A 
001 1 W 


055206 


01 3757 


001 550 


AA1 1 / "5 
AAI < / A 

001 hO 


0552K 




AAAi AA 

000100 


'J J JCCC 








055226 


112776 


000101 


000000 


055234 


162716 


000002 




055240 


004736 






055242 


162716 


000010 




055246 


000240 






055250 
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172 

■'75 

17A 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

.87 

188 

189 

190 

191 

19: 

193 

194 

19 

196 

197 

198 

199 

200 

201 

202 

205 

204 

205 

206 





M 


c 




APR-81 


01:15:59 PAGE 


33- 


■3 


oNc 


1 AC 
1U» 






nOv 






.CvDCrTCf\ CTATllC 


nOv 








QIC 








ADD 






;nuvt j" lu UjCn j ckkun lall 


?10va 






• IJDTTC CDDAD kJlMDCD T lu T Al 1 

;WKJ It tHKUK IMUPHtM JIM LALL 


CI 0 

5Ua 






;HUVC j" IU nC 1 UNIM run CnnUn 


J 








sue 


#10. (SP) 




;MOV£ SP BACK TO USER'S BRANCH 


NOP 









207 
208 
209 
210 
211 
212 
.>13 
214 
215 
216 
217 
218 
219 
220 
221 
222 
22^ 
224 
225 
226 
227 
228 



055250 
055256 
055260 
055266 
055274 
055302 
055306 
055314 
055520 
055322 
055^26 

055330 



055330 
055336 
055340 
055346 
055354 
055362 
055366 
055374 
055'«00 
055402 
055406 
055410 



055410 
055416 
055420 
055426 
055430 
055436 
055444 
055452 
055456 
055464 
055470 
055472 
055476 



032737 


100000 


001350 


BIT 


001024 






BNE 


013737 


001350 


001140 


MOV 


052737 


100000 


001140 


BIS 


013737 


001350 


001142 


MOV 


0627-' 6 


000004 




ADD 


112776 


0001 02 


000000 


M0V8 


162716 


000002 




SUB 


004736 






JSR 


162716 


000010 




SUB 


000240 






NOP 



.0$: 

.•REPORT AN ERROR IF ATA IS NOT 
MTA.Rf'DSI 
11$ 

RMDSI.SGDDAT 
#ATA.$GDDAT 
RMDSI.SBDDAT 
*4.(SP) 
#102.a(SP) 
*2.(SP) 

pc.a(SP)+ 

*10.(SP) 



SET 

.-WAS ATA SET DURING RECALIBRATE 
;VES'.' 

.•EXPECTED STATUS 

.•RECEIVCD STATUS 

.•MOVE SP TO USER'S ERROR CALL 

.•WRITE ERROR NUMBER IN CALL 



;MOVE SP TO USER'S BRANCH 



11$: 

.•REPORT AN ERROR IF "DM" IS 
CLEAR OFFSET MODE 



NOT ZERO BECAUSE RECALIBRATE SHOULD 



032737 


000001 


001350 


BIT 


#OM,RMDSI 


;WAS 'W RESET?? 


001424 






BEO 


12$ 


;YES! ! 


013737 


001350 


001140 


MOV 


RMDSI.SGDDAT 


.•EXPECTED STATUS 


042737 


000001 


001140 


BIC 


«)M.$GDDAT 




013737 


001350 


001142 


MOV 


RMDSI.SBDDAT 


.-RECEIVED STATUS 


062716 
112776 


000004 




ADD 


*4,(SP) 


;M0VE SP TO USER'S ERROR CALL 


000103 


000000 


M0V8 


#103,a(SP) 


.•WRITE ERROR NUMBER 


162716 


000002 




SUB 


#2.(SP) 


;MOVE SP TO RETURN FOR ERROR 


004736 






JSR 


pc.a(SP)* 


.•REPORT ERROR VIA USER 
;MOVE SP TO USER'S BRANCH 


162716 


000010 




SUB 


#10. (SP) 


000240 






NOP 







032737 
001430 
032737 
001024 
013737 
042737 
013737 
062716 
112776 
162716 
004736 
162716 
000240 



020000 

040000 

001350 
020000 
001350 
000004 
000104 
000002 

000010 



001350 

CO 1400 

001140 
001140 
001142 

000000 



12$: 

.•REPORT AN ERROR IF *T>IP" IS 
.-fYLINDER 



BIT #PIP,RMDSI 

BEO 13$ 

BIT #SKI.RMER2I 

BNE 13$ 

MOV RMDSJ,$GDDAT 

BIC #PIP.$GDDAT 

MOV RMDSI,$8DDA^ 

ADD #4.(SP> .-MOVE 

MOVB #104.a(SP) 

SUB #2.(SP) 

JSR pc.a(sp)+ 

SUB #10, (SP) 
NOP 



STIL ON. I.E.. DRIVE NOT ON 

;IS DRIVE OFF CYLINDER?? 
;N0! ! 

.-WAS "SKI" DETECTED?? 
;YES-DONT REPORT "TPIP" 
.•EXPECTED STATUS 

.•RECEIVED STATUS 
SP TO USER'S ERROR CALL 
.-WRITE ERROR NUMBER 
;MOVE SP TO RETURN FOR FRROR 

.-MOVE SP BACK TO USER'S BRANCH 



N 2 
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S£0 0?5^ 



?20 055500 

230 

?51 

232 055500 

233 055506 
23A 

255 

236 055510 

237 055516 
^38 055520 
239 055526 
2'«0 05553^ 
2A1 0555A2 
2A2 0555A6 
2^3 05555A 
24A 055560 

245 055562 

246 055566 
24 7 055570 
248 

?49 

250 055570 

251 055576 

252 055600 

253 055606 

254 055614 

255 055622 

256 055626 

257 055634 

258 055640 

259 055642 

260 055646 

261 055650 
262 

265 

.■•64 055650 
265 05C656 
,^66 055660 

267 055666 

268 055670 

269 055676 

270 055/'04 

271 055712 

272 055716 
275 055724 

274 055730 

275 055732 

276 055736 

277 055740 
278 

279 

280 055740 

281 0557^4 

282 05V50 
r85 0^5752 
i>84 055756 
28S OSS 760 



032737 
001514 



032737 
001424 
013737 
042737 
013737 
062716 
112776 
162716 
004736 
162716 
000240 



032737 
001424 
013737 
042737 
013737 
062716 
112776 
162716 
004736 
162716 
000240 



032737 
001430 
052737 
001024 
013757 
042757 
013737 
062716 
112776 
162716 
004736 
162716 
000240 



040006 001552 



000002 001352 



001352 
000002 
001352 
000004 
000105 
000002 

000010 



001140 
001140 
001142 

000000 



000004 001352 



001 352 
000004 
001352 
000004 
000106 
000002 

000010 



040000 

000200 

001352 
040000 
001 352 
000004 
000107 
000002 

000010 



001140 
001140 
001142 

000000 



001352 

001400 

001140 
001140 
001142 

000000 



062716 00000<. 

105776 000000 
00U03 

062716 000004 
000402 

162716 000004 



13S: 
.-SEE IF 



"ILR" OR "RMR" OR "UHS" IS SET 
BIT «ILR!RnR!UNS.RnER1I 
BEO 16S 



.-REPORT AN ERROR IF "ILR" IS SET 



BIT 


«ILR,RnER1I 


.-WAS ILR SET DURING RECALIBRATE?? 


BEO 


14S 


;N0! 1 


MOV 


RftRII.SGDDAT 


.-EXPECTED STATUS 


eic 


#ILR.$GODAf 




nov 


RnERII.SBDDAT 


;RECEIVED STATUS 


ADD 


»4.(SP) .-MOVE 


SP TO USER'S ERROR TALL 


novB 


#105.a(SP) 
#2.(SP) 


.•WRITE ERROR NUMBER IN CALL 


SUB 


.•MOVE SP TO RETURN FOR ERROR 


JSR 


pc,a(SP)+ 




SUB 


#10. (SP) 


.•MOVE SP TO USER'S BRANCH 


NOP 







14$: 

.-REPORT AN ERROR If "Rm" IS SET 

BIT ^RMR.WRII 

BEO 15S 

MOV RMERII.SGDDAT 

BIC *RMR,$GDDAT 

MOV RMERII.SBDDAT 

ADD *4,(SP) 

M0V8 *106.a(SP) 

SiB #2,(SP) 

JSR PC.S(SP)+ 

SUB *10,(SP) 
NOP 

15$: 

.•REPORT AN ERROR JF 'UNS" IS SET 

BIT #UNS,RMER1I 

BEO 16$ 

BIT *DVC,RMER2I 

8NE 16$ 

MOV RMER1 1 .$GDDAT 

BIC #UNS.$GDDAT 

MOV RMER1I,$8DDAT 

ADD #4,(SP) 

M0V8 #107.a(SP) 

SUB #2.(SP) 

JSR PC.a(SP)* 

Stfi #10. (SP) 
NOP 



WAS RMR SET?? 
NO! ! 

EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO USER'S ERROR CALL 

WRITE ERROR NUMBER IN USER'S CALL 

MOVE SP TO RETURN FOR ERROR 

REPORT ERROR VIA USER 

MOVE SP TO USER'S BRANCH 



AND "DVC" IS 0 
WAS UNSAFE ON?? 
NO: I 

WAS THERE A DEVICE CHECK?? 
YES - DON'T REPORT UNSAFE 
EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO USER'S ERROR CALL 

WRITE ERROR NUMBER 

MOVE SP TO RETURN FOR ERROR 

REPORT ERROR VIA USER 

MOVE SP BACK TO USER'S BRANCH 



16$: 

.AUGMENT THE RETURN ADDRESS IF ANV ERROR WAS DETECTED 



'I 



ADD 
TST9 
BEO 
ADD 
BR 
SLfi 



#4,(SP) 

a(SP) 

17$ 

#4.(SP) 
18$ 

#<..(SP) 



MOVE SP TO USER'S ERROR CALL 
WAS AN ERROR REPORTED'? 

no: ! 

rES - AUGMENT SP RETURN 



;N0 ERROR - RETURN SP TO BRANf H 



B 3 

'ZPMOeC W05/^/2 FCTNL rST 3 MACHO VOC.OO 4-APR-81 01:15:59 PAGE 35-5 

oe'AlIBRate status check SUBRCWTINE SeO 0^'^ 

^^86 05576<. 0002^.0 "'8$: MOP 

?87 0S5766 OOOaO? R^S PC .-STATUS CECK IS COMPLETE 



czawoeo rmos/'^/? fctnl tst 3 i^CRO voa.oo 

WIVE CLEAR STATUS CHfCK SUBROUTINE 



C 3 

4-APR-81 01:15:b9 PAGE 34 



SEO 0236 



1 
? 
3 

5 
6 
7 

8 
9 

TO 

n 
12 
13 
'4 

15 

16 05600A 

17 C56012 
^8 056020 

19 056026 

20 C5603A 
056036 
0560A2 

25 056050 
2A 05605A 
056056 
05606? 



055770 



055770 
05 5 77A 
056000 



21 
22 



25 
26 
27 
28 
29 



056064 
C5607? 

30 056100 

31 056106 

32 0561 K 

33 056116 

34 056122 

35 056130 

36 056134 

37 056136 

38 056142 
39 

40 056144 

41 056150 

42 056156 

43 056160 
056164 
056172 

46 056176 

47 056200 

48 056204 
49 

50 056206 

51 056214 

52 056216 

53 056220 
056224 
056230 
C56234 



44 
45 



54 

55 

56 



57 056236 



062716 
105076 
1627(6 

013737 
042737 
012737 
023737 
001443 
062716 
112776 
162716 
004736 
162716 
000240 

013737 
042737 
012737 
023737 
001413 
062716 
112776 
162716 
004736 
162716 
000240 

005037 
013737 
001413 
062716 
112776 
162716 
004736 
162716 
000240 

013737 
010146 
010246 
013701 
M6102 
042702 
005102 
040237 



000004 
000000 
000004 

001336 
1 73700 
004010 
001140 

000004 
000141 
000002 

000010 



001350 
021101 
010600 
001140 

000004 
000142 
000002 

000010 



001140 
001352 

000004 
000143 
000002 

000010 



001142 
001142 
001140 
001142 



000000 



001142 
001142 
001140 
001142 



000000 



.S8TTL DRIVE CI EAR STATUS CHECK SUBROUTINE 



BR 
NOP 
ERROR 
JSR 



■)■)■) 



pc.a(sp)* 



RtTURN HERE IF NO ERROR 

RETURN HERE TO REPORT AN ERROR 

ERROR NLM8ER DEFINED BY SUB 

GO BACK TO SUB FOR MORE ERROR CHECKS 

RETURN HERE IF NO MORE ERRORS 



DRVSTS: 



001142 
000000 



001354 00r42 



001466 
000001 
1 77400 



001142 



.■CLEAR USER'S 
ADD 
CLRB 

sue 

.•REPORT ERROR 
4$: MOV 
BIC 
MOV 
CMP 
BEO 
ADD 
MOVB 
SII3 
JSR 
SUB 
NOP 

.•REPORT ERROR 
5S: MOV 
BIC 
MOV 
CMP 
BEQ 
ADD 
MOVB 
SUB 
JSR 
SUB 
NOP 

; REPORT ERROR 
6$: CLR 
MOV 
BEO 
ADD 
MOVB 
SUB 
JSR 
SUB 
NOP 

.•REPORT ERROR 
8S: MOV 
MOV 
MOV 
MOV 
MOVB 
BIC 
COM 
BIC 



ERROR CALL 
*4.(SP) 
S(SP) 
#4,(SP) 

IF RMCSl NOT INITIALIZED 

RMCSII.SBDDAT .'CHECK RMCSl 
#*C<DVA:FNCMSK>.$8DDAT .-CLEAR DONT CARES 

#dva:drvclr,$gddat ; expect DVA 



MOVE SP TO ERROR CAI L 

CLEAR ERROR CALL 

MOVE SP TO USER'S BRANCH 



SGDDAT.SBDDAT 
6$ 

#4,(SP) 
#141.a(SP> 
♦2.(SP) 

pc.a(SP)* 

*10.(SP) 



COMPARE EXPECTED I RECEIVED 
BRANCH IF EQUAL 
MOVE SP TO ERROR CALL 
WRITE NUMBER OF ERROR IN CALL 
MOVE SP 10 RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 



IF RMDS NCT INITIALIZED 

RMDSKSBDDAT ;CHECK RMDS 

#PGM;oH:w:PiP.$eDOAT .clear dont cares 

#f10L!DPRIDRr.$GD0AT .-EXPECT DRY t DPR 



SGDDAT.SBDDAT 
6S 

#4.(SP) 
#142.a(SP) 
#2.(SP) 
PC,8(SP)» 
#10. (SP) 



COMPARE EXPECTED ft RECEIVED 
BRANCH IF EQUAL 
MOVE SP TO ERROR CALL 
WRITE NlfBER OF ERROR IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 



IF RMER1 NOT INITIALIZED 



SGDDAT 
RMER11,SBDDAT 
8S 

#4.(SP) 

*i43.a(SP) 

#2.(SP) 

pc.a(sp)* 

#10.(SP) 



EXPECT O'S 
CHECK RMER1 
BRANCH IF EQUAL 
MOVE SP TO ERROR CALL 
WRITE NUMBER OF ERROR IN CALl 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 



IF ATA NOT INITIALIZED 



RnASI.SBODAT 
R1,-(SP) 
R2,-(SP) 
TST0UE.R1 
1(R1).R2 
#*CATNHSK.R2 
R2 

R2.S6DDAT 



CHECK ATTENTION BIT 
;PUSH R1 ON STACK 
;PUSH R2 ON STACK 



/R»1CieO RM05/?/a FCTNL TST 3 MACRO vO^..OO <.-APR-81 0' 
r^RWE CLEAR STATUS CHECK SUBROUTINE 



D 3 
15:^9 PAGE ^<.-1 



SEO 0257 



58 


056242 


012602 






59 


056244 


012601 






60 


056246 


005737 


001142 




61 


056252 


001413 






62 


056254 


062716 


000004 




63 


056260 


112776 


000144 


000000 


64 


056266 


162716 


000002 




t5 


056272 


004756 






66 


U56274 


162716 


000010 




67 


056300 


000240 






68 




ft 






o9 


056302 


013737 


001 562 


001142 


''0 


056310 


042737 


000046 


001142 


71 


056316 


012737 


000010 


001140 


72 


056324 


023757 


001140 


001142 


73 


056332 


001415 






7A 


056334 


062716 


000004 




75 


056340 


112776 


000145 


000000 


76 


056346 


162716 


000002 




77 


C56352 


004756 






78 


056354 


162716 


000010 




79 


056560 


000240 






80 










81 


056562 


015757 


001576 


001142 


82 


056570 


042757 


140000 


001142 


83 


056576 


012757 


011777 


OOTUO 


8A 


056404 


023737 


001140 


001142 


85 


056412 


001413 






86 


056414 


062716 


000004 




87 


056420 


112776 


000146 


000000 


88 


056426 


162716 


000002 




89 


056452 


004756 






90 


056434 


162716 


000010 




91 


056440 


000240 






92 


056442 


005057 


001140 




93 










94 


056446 


013757 


001404 


001142 


95 


056454 


001415 






96 


056456 


062716 


000004 




97 


056462 


112776 


0001 50 


000000 


98 


056470 


162716 


000002 




99 


C56474 


004736 






100 


056476 


162716 


000010 




101 


056502 


000240 






102 










103 


056504 


013757 


001400 


001142 


104 


056512 


001415 






105 


056514 


062716 


000004 




'06 


056520 


112776 


000147 


000000 


107 


056526 


162716 


000002 




108 


056552 


004756 






T09 


056554 


162716 


000010 




110 


056540 


000240 






111 


056542 








'12 










113 


056542 








1 U 











.•REPORT 
9$: 



.■REPORT 
11$: 



15$: 
; REPORT 



.•REPORT 
17$: 



18$: 
^9$: 



MOV 
MOV 
TST 
BEC 
ADD 
M0V8 

sue 

JSR 

SUB 

NOP 

ERROR 

MOV 

BIC 

MOV 

CMP 

BFC 

ADD 

MOVB 

SUB 

JSR 

SUB 

NOP 

ERROR 

MOV 

BIC 

MOV 

CMP 

BEO 

ADD 

MOVB 

SUB 

JSR 

SUB 

NOP 

CLR 

ERROR 

MOV 

BEO 

ADD 

MOVB 

SUB 

JSR 

sue 

NOP 

ERROR 

MOV 

BEO 

ADD 

MOVB 

sue 

JSR 
SUB 
NOP 



(SP)*.R2 
(SP)*.R1 
$8DDAT 
9$ 

#4.(SP) 

#144.a(SP) 

*2.(SP) 

pc-a(SP)» 

*10.(SP) 



;POP STACK INTO R2 

;POP STACK INTO R1 

IS ATTENTION CLEARED?? 

BRANCH IF ATTENTION CLEARED 

MOVE SP TO ERROR CALL 

WRITE NUmER OF ERROR IN CAil 

MOVE SP TO RETURN FOR ERROR 

REPORT THE ERROR VIA USER 

MOVE SP TO NO ERROR RFTURN 



IF RMMRl NOT INITIALIZED 



rmmr1i.$8ddat 
#uc:ls:lst.$8ddat 
#mwd.$gddat 

$GDDAT.$8DDAT 
11$ 

#4.(SP) 
#145.a(SP) 
#2.(SP) 

pc.a(SP)» 

#10. (SP) 



CHECK RMMR 

.■CLEAR DONT cares 
EXPECT WRITE DATA ON 
COMPARE EXPECTED AND RECEIVED 
BRANCH IF ZERO 
MOVE SP TO ERROR CALL 
WRITE NUMBER OF ERROR IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 



IF RMMR2 NOT INITIALIZED 



RMnR2I.SeDDAT 
fRQA.'RQB.SBDDAT 
#TSTJ1777,$GDDAr 
$GDDAT,S8DDAT 
15$ 

#4.(SP) 

#146.a(SP) 

#2.(SP) 

pc.a(sp)* 

#10. (SP) 

$GDDAT 
IF RMEC2 NOT RESET 
RnEC2I.S8DDAT 
17$ 

#4.(SP) 

#i50.a(SP) 

#2.(SP) 

pc.a(SP)* 

#10. (SP) 

IF RMER2 NOT RESET 
RMER2I .$BDDAr 
18$ 

#4.(SP) 
#147.a(SP) 
#2.(SP) 
pc.a(SP)* 
#10, (SP) 



CHECK RMMR2 
CLEAR REOA, REQB 

.•EXPECT TEST BJT ON 
COMPARE EXPECTED t RECEIVED 
BRANCH IF EQUAL 
MOVE SP TO ERROR CALL 
WRITE NlfBER OF ERROR IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 

EXPECT ZEROS 

CHECK RMEC2 

BRANCH IF 0 

MOVE SP TO ERROR CALL 

WRITE NUMBER OF ERROR IN CALL 

MOVE SP TO RETURN FOR ERROR 

REPORT THE ERROR VIA USER 

MOVE SP TO NO ERROR RETURN 



CHECK RMER2 

BRANCH IF NO ERROR 

MOVE SP TO ERROR CALL 

WRITE NLMBER OF ERROR IN CALL 

MOVE SP TO RETURN FOR ERROR 

REPORT THE ERROR VIA USER 

MOVE SP TO NO ERROR RETURN 



nRi^p Clear status check subrcxjtjne 



.00 A-APR-81 01:15:59 
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3 
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n5 

1*) 0565A2 062716 C00004 

'17 056546 105776 000000 

'18 056552 001403 

'19 056554 062716 000004 

120 0S6560 000402 

121 056562 162716 000004 

122 056566 000240 
'23 05657C 000207 



.AUGMENT RETURN ADDRESS JF ANV 



21$: 
2^5$: 



ADD 
TST8 
BEQ 
ADD 
BR 

sue 

NOP 
RTS 



#4.(SP) 

a(SP) 
21$ 

#4,(SP) 
23$ 

#4.(SP) 
PC 



ERROR WAS FOUND 
;MOVF SP TO ERROR CALL 
;WAS AN ERROR DETECTED?? 
/JO. ! 

;rES - MOVE SP TO ERROR R£TU«N 



.•MOVE SP BACK TO NO ERROR RETuRN 
; RE TURN TO USER 



rZRMOeO RM05/?/? F(TNL TST 3 
DATA TRANSFER COMMAND STATUS 



1 

? 

3 

<. 

5 

6 

7 

8 

9 
10 
11 
12 
13 
u 

15 
16 

17 05657? 

18 

19 

20 C56572 062716 

21 056576 105076 

22 056602 162716 

23 056606 005037 
24 

25 
26 

27 056612 032737 

28 056620 00U22 

29 056622 013737 

30 C56630 0A2737 

31 056636 013737 

52 0566^4 062716 
55 056650 112776 

34 056656 162716 

35 056662 004736 

36 056664 000466 

37 056666 
38 

39 
40 

41 056666 032737 

42 C5667A 001435 

43 056676 032737 

44 056704 001031 

45 056706 013737 

46 056714 042737 

47 056722 013737 

48 056730 062716 

49 056734 112776 

50 056742 032737 

51 056750 001003 
5? 056752 112776 

53 056760 162716 

54 056764 004736 

55 056766 000425 
56 

57 



MAC WO V04.00 
CHECK SUBROUTINE 
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F 
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3 

35 



0G0004 
000000 
000004 
062166 



020000 001336 



001336 
020000 
001336 
000004 
00001 3 
000002 



000010 

000010 

001352 
000010 
001352 
000004 
000050 
001 OCO 

000274 
000002 



00r40 

oor4o 

001 '42 
000000 



001352 

001400 

001140 
001140 
00114? 

000000 
001346 

000000 



,S8TTL DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE 

THIS SUBROUTINE VERIFIES THE RESULTS OF ALL DATA TRANSFER COMMANDS, 
USING STATUS STORED IN THE GET BUFFER AND TEST PARAMETERS 
STORED IN THE PUT BUFFER. ERRORS ARE REPORTED Br WRITING 
THE ERROR NUMBER IN THE USERS ERROR CALL. 



USER'S SUBROUTINE CALL: 
PC.DTASrs 



pc.a(SP)* 



(1) 


JSR 


(2) 


BR 


(3> 


NOP 


(4) 


ERROR 


(5) 


JSR 


(6) 


■> •> 



RETURN HERE IF NO DATA ERRORS 
RETURN HERE TO REPORf AN ERROR 
SOB WRITES ERROR NUMBER 
USER RETURNS FOR MORE CHECKS 

RETURNS HERE AFTER ALL 
ERRORS ARE REPORTED 



DTASTS; 



.•CLEAR USER'S ERROR CALL AND ERROR FLAGS 



ADD 

CLRB 

SUB 

C! R 



*4.(SP) 
a(SP) 
#4.(SP) 
500$ 



MOVE SP TO USER'S ERROR 
CLEAR LOU ORDER BYTE OF 
RESTORE SP TO NO ERROR 
CLEAR ERROR FLAGS 



rRAP 



.•REPORT ANY CONTROL BUS PARITY ERROR WHILE READING REMOTE REGISTERS. 



.I.E.. 



10$: 



MCPE = 1 

BIT *MCPE.RMCS1I 

BEQ 10$ 

MOV RMCS1I.$GDDAT 

BIC *MCPE.$GDDAT 

MOV RMCS1I.$BDDAT 

ADD *4.(SP) 

MOVB *13.a(SP) 

sue #2.(SP) 

JSR PC.a(SP)* 

BR 30$ 



WAS THERE A PARITY ERROR''? 
NO! . 

EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO USER'S ERROR CALL 

WRITE ERROR NUMBER 

MOVE SP TO RETURN IF ERROR 

REPORT ERROR AND RETURN 



.•REPORT ANY CONTROL BUS PARITY ERROR WHILE WRITTING REMOTE REGIS'ERS. 
.•I.E., PAR - 1 AND DPE 



BIT 


#PAR.RMER1I 


WAS THERE A PARITY ERROfi"" 


BEQ 


20$ 


•NO! : 


BIT 


*DPE,RMER2I 


DATA PARITY ERROR ? 


6NE 


20$ 


YES! : 


MOV 


RMER1I.$GDDAT 


■EXPECTED STATUS 


BIC 


*PAR.$GDOAT 




MOV 


RMER1I,$6DDAT 


RECEIVED STATUS 


ADD 


*4,(SP) 


MOVE SP TO USER'S ERROR 


MOVB 


#50.S(SP) 


•WRITE ERROR NUMBER 


L>IT 


*MXF.RMCS?I 


DID MXF GET SET?? 


BNE 


15$ 


YES! ! 


MOVB 


#274.a(SP) 


NO - CHANGE ERROR NU^BER 


SUB 


*2.(SP) 


■MOVE SP TO RETURN IF ERROR 


JSR 


PC,a(SP)* 


•REPORT ERROR AND RETURN 


BR 


50$ 





15$: 



;LOOK FOR ANY ERRORS WHICH MAY HAVE OCCURRED DURING COMMAND IM'IA'I'N k 



032737 
OOU25 
013737 
042737 
013737 
062716 
V277(i 
162716 
004756 



162716 
0001 37 



052737 
00KA7 
013737 
042737 
013737 
032737 
001404 
032737 
001013 
062716 
112776 
162716 
004756 
162716 
000413 



062716 
112776 
162716 
004736 
162716 
000240 



032737 
001432 



000010 
062140 



''«<*WBO WCS/5/2 KTNl TST 3 
DA'A TRANSFER COWAfJ) STATUS 



58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
o9 
'0 
71 
72 
75 
74 
75 
76 
77 
78 
79 
80 
81 
82 
85 
84 
85 
86 
87 
88 
8V 
90 
91 
92 
95 
94 
95 
96 
97 
98 
99 
100 
101 
102 
105 
104 
105 
106 
107 
108 
109 

no 

111 
112 
115 
114 



•nACHO V04.00 
CHECK SUBROUTINE 
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3 

3S-1 



SEO 0240 



056770 
C56770 
056776 
057000 
05/006 
057014 
057022 
057026 
057034 
057040 
0570^^2 



057042 
057046 

057052 



057052 
C 5 7060 
05706? 
057070 
057076 
057104 
057112 
057114 
057122 
057124 
057130 
057156 
057142 
057144 
057150 
05715? 



057152 
057156 
057164 
057170 
057172 
057176 
057200 



057200 
057*>06 



001552 
020000 
001352 
010000 



057210 013757 



000004 
000276 
000002 

000010 



000004 
000277 
000002 

000010 



010000 
001400 



.-nECHANICAL POSITIONING 



.-FIRST TEST MXF WHICH WOULD INDICATE COMPOSITE ERROR SET WHEN FUNCTION 

:CODE AND GO BJ T WERE LOADED 
^0$: 



001000 


001546 


BIT 


*MXf .RMCS2I 


•WAS '*1ISSED TRANSFER" SET'? 






BEO 


40$ 


•NO. . 


001346 


001 uo 


MOV 


RMCS2I,$GDDAT 


■EXPECTED STATUS 


001000 


001 /«o 


BIC 


*MXF,$GDDAT 




001 546 


001 142 


MOV 


rm:s2i,S8DDat 


.RECEIVED STATUS 

;MOVE SP TO USER'S ERROR CALL 


000004 




ADD 


#4.(SP) 


000275 


OOOOGO 


M0V8 


*275.a(SP) 


;WRITE ERROR NUMBER 


000002 




SUB 


#2.(SP) 


;MOVE SP TO RETURN IF ERROR 




JSR 


pc.a(SP)* 


; REPORT ERROR AND RETURN 



020000 001552 



001 UO 
001140 
001 U2 
001550 



000100 001550 



000000 



000000 



001400 
001140 



30$: 

.-RESTORE SP TO NO ERROR RETURN AND BYPASS FURHTER SMTUS CHECKING 
SUB *10.(SP) .-WOVE SP TO NO ERROR 

JMP 580$ ;SKIP TO END OF SUB 



40$: 



REPORT AN 
AND 'MOL" 
•1<10l' 



ERROR IF 
ARE SET. 



■■OPI" ERROR 
BUT "VV" IS 



45$: 



50$: 



BIT #0PI.RMER1I 

BEO 60$ 

MOV RMER1I.$GDDAT 

BIC #ODJ.$GDDAT 

MOV RMER1I.$BDDAT 

BIT #MOL.RMDSI 

BEO 45$ 

BIT #VV.RMDSI 

BNE 50$ 

ADD *4,(SP) 

M0V8 #276. a (SP) 

SUB #2.(SP) 

JSR PC.a(SP)* 

SUB #10. (SP) 

BR 60S 



OCCURRED PUE TO 'WOL" - 0. OR U 'TOPI" 
RESET, INDICATING AN INTERMITTENT 

IS *10PI" SET?? 
NO. ! 

EXPECTED STATUS 

RECEIVED STATUS 

WAS MEDIUM OFF LINE?? 

YES ' ' 

was'">10l" intermittent?? 

no: ! 

move sp to user's error call 
write error number in call 
move sp to return if error 
report error and return 
restore sp to no error 



.-REPORT 'IDPI" ERROR. WHICH IS DUE TO *t3N 
.-"RUN" TIMEOUT (20 MS) OR SEARCH TIMEOUT 
#4,(SP; 
#277. aCSP) 
#?.(SP) 

pc.a(SP)* 

#10. (SP) 



60$: 



ADD 
MOVB 
SUB 
JSR 
SUB 
NOP 



CYLINDER" NOT DROPPING OR 
(50 MS) 

MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN IF ERROR 
REPORT ERROR AND RETURN 
RESTORE SP TO NO ERROR 



INITIATION 
THERE AN "IVC 



ERROR"? 



.-LOOK FOR "IVC" ERROR DURING COMMAND 

BIT #IVC.RHER2I ;WAS 

BEO 70$ ;N0.. 
;REPORT "WC" ERROR DUE TO "Vv" " 0. OR REPORT ERRONEOUS 

MOV RMER2I.$GDDAT .-EXPECTED STATUS 



057216 


0A2737 


010000 


001 uo 




9JC 


05 722A 


013737 


COUOO 


001 142 




MOV 


057232 


062716 


OOOOOA 






ADD 


057236 


112776 


000300 


000000 




M0V8 


0572A4 


032737 


000100 


001350 




BJT 


05725? 


00 l*»03 








DC n 

DCU 


057254 


112776 


000301 


000000 




M0V8 


057262 


162716 


000002 




65$: 


SUB 


057266 


004736 








JSR 


057270 


162716 


000010 






sue 


05 72 7A 








70$: 












.-SEE 


JF ■■JLF' 


05 727A 


032737 


000007 


001352 




BJT 


057302 


001510 








BEO 



057304 
057312 
057314 
C57322 
057330 
057336 
057342 
057350 
057354 
057356 
057362 
057364 



032737 
001424 
013737 
042737 
013737 
062716 
112776 
162716 
004736 
162716 
000240 



001352 
0C0002 
001352 
000004 
000302 
000002 

000010 



FCTNL TST 3 
A TRANSFER COMMAND STATUS 



ns 

n? 
'18 
119 
120 
121 
122 
123 
V4 
125 
'26 
127 
128 
129 
130 
131 
^32 
153 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
14b 
147 
148 
'49 
'50 
'51 
152 
153 
154 
155 
156 
157 
158 
15Q 
160 
161 
162 
163 
164 
165 
166 
167 
168 
'69 
UO 

' 7-, 



MACRO ;0^.00 
CHECK SUBROUTINE 
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#JVC.$GDDAT 

RMER2I .$8DDAT 

#4.fSP) 

#300.a(SPJ 

♦VV.RMDSI 

65$ 

#301 ,a(SP) 

#2.(SP) 

pc.a(sp)* 

#10. (SP) 



RECEIVED STATUS 

MOVE SP TO USER'S ERROR 

WRITE ERROR NUMBER IN CALL 

WAS VOLl^ VALID?? 

NO. . 

CHANGE ERROR NUMBER 
MOVE SP TO RETURN IF ERROR 
REPORT "IVC" ERROR AND RETURN 
RESTORE SP TO NO ERROR 



000002 001 552 



OR "T^MR" IS SET 

*ILR:ILF .RMR, RMER1I 
100$ ;N0 ERRORS DETECTED 

.•REPORT AN ERROR IF '"ILR" IS SET 



001140 
001140 
001142 

000000 



80$: 



BIT #ILR,RMER1I 

BFO 80$ 

MOV RMER1I.$GDDAT 

BIC *ILR,$GDDAT 

MOV RMER1I.$8DDAT 

ADD #4.(SP) 

Move *302.a(SP) 

SUB #2.(SP) 

JSR Pc.a(SP)* 

sue #10. (SP) 

NOP 



WAS ■■ILR" DETECTED?? 
NO. I 

EXPECTED STATUS 

RECEIVED STATUS 
MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN IF ERROR 
REPORT ERROR AND RETURN 
RESTORE SP TO NO ERROR 



.-REPORT AN ERROR IF "ILF"' IS SET 



057364 


032737 


000001 


001352 


BIT 


#ILF.RMER1I 


.-WAS "ILF" DETECTED-" 


057372 


001424 






BEQ 


90$ 


;N0. ! 


057574 


013737 


001352 


001 UO 


MOV 


RMER1I.$GDDAT 


.•EXPECTED STATUS 


057402 


042737 


000001 


001140 


BIC 


#JLF,$GDDAT 




057410 


013737 


001352 


001142 


MOV 


RMER1I.$BDDAT 


.•RECEIVED STATUS 


057416 


062716 


000004 




ADD 


#4.(SP) 


.-MOVE SP TO USER'S ERROR CALL 


057422 


112776 


000303 


000000 


Move 


#303,a(SP) 


.•WRITE ERROR NUMBER IN CALL 


057430 


162716 


000002 




sue 


#2,(SP) 


;MOVE SP TO RETURN IF ERROR 


057434 


004736 






JSR 


PC.a(SP)* 


.•REPORT ERORR AND RETURN 


057436 


162716 


000010 




sue 


#10. (SP) 


.•RESTORE SP TO NO ERROR 


057442 


000240 






NOP 






057444 








90$: 







057444 


032737 


000004 


001352 


057452 


001424 






057454 


013737 


001352 


001140 


057462 


042737 


000004 


001140 


057470 


015757 


001352 


001142 


057476 


062716 


000004 




057502 


112776 


000504 


000000 


057510 


162716 


000002 




057514 


004736 






057516 


162716 


000010 




057522 


000240 






057524 









.■REPORT AN ERROR IF '"RMR" IS SET 

BIT #RMR.RMER1I 

BEQ 100$ 

MOV RMER1I ,$GDDAT 

BIC #RMR,$GDDAT 

MOV RMER1I.$BDDAT 

ADD #4.(SP) 

M0V8 #304,a(SP) 

Sie #2,(SP) 

JSR pc.a(sp)* 

sue #10, (SP) 

NOP 



WAS "Rm" DETECTED?? 
NO! . 

EXPECTED STATUS 

RECEIVED STATUS 
MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NU^BER IN CALL 
MOVE SP TO RETURN IF ERROR 
REPORT ERROR AND RETURN 
RESTORE SP TO NO ERROR 



100$: 

.•DETERMINE 



WHETHER OR NOT "lAE" SHOULD BE SE^ AND ChEU FOR ERROR 



/MMffiC FCTNL TST 5 f^ZHO V04,00 4-APR-81 

-A'A TRANSFER COMMAND STATUS CHECK SUBROUTINE 

V? 
V3 
174 
175 
176 
1 V 
178 
U9 
'80 
181 
182 
'33 
184 
18S 
186 
187 
188 
'89 
190 
191 
^92 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
20i 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
22C 
221 
222 
223 
224 
225 
226 
227 
228 
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SfO 0242 



057524 


012737 


002000 


001140 




MOV 


057532 


052737 


040000 


062166 




BIS 


057540 


023727 


001446 


001466 




CMP 


057546 


101025 








BHI 


057550 


042737 


040C00 


062166 




BIC 


057556 


123737 


001421 


001335 




CMP8 


057564 


101016 








BHI 


057566 


123727 


001420 


000035 




CMP8 


057574 


101410 








BLOS 


057576 


032737 


010000 


001444 




BIT 


057604 


001406 








BEO 


057606 


123727 


001420 


000057 




CMP8 


057614 


101002 








BHI 


057616 


005037 


001140 




1051: 


CLR 


057622 


013737 


001352 


001142 


1101: 


MOV 


057630 


042737 


175777 


001142 




BIC 


C 5 7636 


023737 


0C1140 


001142 




CMP 


057644 


001004 








BNE 


057646 


042737 


040000 


062166 




BIC 


057654 


000412 








BR 


057656 


062716 


000004 




115$: 


ADD 


057662 


112776 


000305 


000000 




M0V8 


057670 


162716 


000002 






sue 


057674 


004736 








JSR 


057676 


162716 


000010 






sue 


057702 








120$: 





#IAE.$GDDAT 
#SKI.500$ 
RMDCO.#822. 
110$ 

#SKI.500$ 

RMDA0*1 .LSTR»C*1 
110$ 

RMDA0.#29. 
105$ 

#FMT16.RM0F0 
110$ 

RMDA0.#31. 

110$ 

$GDDAT 

RMER1I,$BDDAT 
#*CIAE.$8DDAT 
$GDDAT.$8DDAT 
115$ 

*SKI.500$ 

120$ 

*4,(SP) 

#305.a(SP) 

*2.(SP) 

pc,a(SP)* 

*10,(SP) 



SETUP FOR "lAE" 
SETUP FOR "SKI" 
GREATER THAN lAST 
YES - CYLINDER IS 
RESET SKI FLAG 



1 

- 1 



CYLINDER ? 
INVALID 



.•GREATER THAN LAST TRACK 
;YES - TRACK IS INVALID 

IS SECTOR > 29. ? 
NO 

18 BIT FORMAT ? 

YES - SECTOR IS INVALID 

IS SECTOR > 31. ? 

YES - SECTOR IS INVALID 

"lAE" SHOULD = 0 



FOR 18 BIT MODE 



;GET RECEIVED STATUS 
IS "lAE" STATUS OK?? 

no: . 

lAE OK - SKI SHOULD BE 0 

MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER 
MOVE SP TO RETURN IF ERROR 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 



057702 


013737 


001400 


001142 


057710 


042737 


137777 


001142 


057716 


013737 


062166 


001140 


057724 


042737 


137777 


001140 


057732 


032737 


040000 


001400 


057740 


001417 






057742 


032737 


040000 


062166 


057750 


001032 






057752 


062716 


000004 




057756 


112776 


000306 


000000 


057764 


162716 


000002 




057770 


004736 






057772 


162716 


000010 




057776 


000417 






060000 









.•REPORT AN ERROR IF "SKI" IS SET AND "lAE" STATUS WAS OK 



MOV 


RMER2I.$BDDAT 
#*CSKI,$8DDAT 


RECEIVED STATUS 


BIC 




MOV 


500$,$GDDAT ; EXPECTED STATUS 


BIT 


**CSKI,$GDDAT 




BIT 


*SKI.RMER2I 


WAS "SKI" SET?? 


BEO 


140$ 


NO! ! 


BIT 


*SKI.500$ 


WAS SKI CAUSED BY lAE - 0?? 
•YES - DON'T REPORT SKI 


BNE 


150$ 


ADD 


*4.(SP) 


•MOVE SP TO USERS ERROR CALL 


M0V8 


*306.a(SP) 


•WRITE ERROR NU^BER 


S\J3 


#2,(SP; 


•MOVE SP TO RETURN IF ERROR 


JSR 


PC.a(SP)+ 


•REPORT ERROR AND RETURN 


sue 


#10. (SP) 


•MOVE SP TO NO ERROR 


BR 


150$ 





060000 
060006 
060010 
060014 
060022 
060026 
060030 
060034 



032737 
001413 
062716 
112776 
162716 
004736 
162716 
000240 



040000 062166 
000004 

000307 000000 
000002 

000010 



140$: 

.-REPORT AN ERROR IF SKI 0 AND 



BIT 
BEO 
ADD 
M0V8 

sue 

JSR 

sue 

NOP 



#SKI ,500$ 
150$ 
#4,(SP) 
*307.a(SP) 
#2.(SP) 

PC.a(SP)*- 

*10.(SP) 



lAE WAS NOT DETECTED 
SHOULD SKI BE SET?? 
NO! . 

MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUr«ER IN CALL 
MOVE SP TO RETURN IF ERROR 
REPORT ERROR AND RETURN 
RESTORE SP TO NO ERROR 



CZRMOeO RM05/3/2 FCTNIL TST 3 
DAT it TRANSFER COMMAND STATUS 



MACHO V04.00 
CHECK SUBROUTINE 

150$: 

.•LOOK 
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SEO 0243 



?29 


060036 








230 










231 










232 


060056 


032737 


006200 


001400 


233 


060044 


001512 






234 










235 










256 


060046 


032737 


000200 


oouoo 


237 


060054 


001424 






238 


060056 


013737 


001400 


001140 


239 


060064 


042737 


000200 


001140 


2nO 


060072 


013737 


001400 


001142 


241 


060100 


062716 


000004 




242 


060104 


112776 


000310 


000000 


243 


060112 


162716 


000002 




244 


060116 


004736 






245 


060120 


162716 


000010 




246 


060124 


000240 






247 


060126 








248 










249 










250 


060126 


032737 


002000 


001400 


251 


060134 


001430 






252 


060136 


032737 
001424 


010000 


001350 


253 


060144 






254 


060146 


013737 


001400 


001140 


255 


060154 


042737 
013737 


002000 


001140 


256 


060162 


001400 


001142 


257 


060170 


062716 


000004 




258 


0601 74 


112776 


00031 1 


000000 


259 


060202 


162716 


000002 




26U 


060206 


004736 






261 


060210 


162716 


000010 




262 


060214 


000240 






263 
264 


060216 
















265 










266 


060216 


032737 


004000 


001400 


267 


060224 


001422 






268 


060226 


013737 


001400 


001140 


269 


060234 


042737 


004000 


001140 


270 


060242 


013/37 


001400 


001142 


271 


060250 


062716 


000004 




272 


060254 


112776 


000312 


000000 


273 


060262 


004736 






274 


060264 


162716 


000010 




275 


060270 


000240 






276 


060272 








277 










278 










279 


060272 


032737 


054000 


001352 


280 


060300 


001527 






231 










282 


060302 


032737 


040000 


001352 


283 


060310 


001427 






284 


060312 


032737 


000200 


001400 


285 


060320 


001023 







FOR "LSC" OR 'IBC" OR "DVC" IN ERROR REGISTER *2 

BIT #lsc:lbc:dvc.rmer2i 

BEQ 180S ;N0 ERRORS SET 



.•REPORT ANY DEVICE FAULT. I.E. 

BIT 4rDVC,RMER2I 

BEQ 160$ 

MOV RM£R2I.$GDDAT 

BIC #DVC.$GDDAT 

MOV RMER21.$BDDAT 

ADD #4.(SP) 

M0V8 #3lO,a(SP) 

SUB #2.(SP) 

JSR PC.a(SP)* 

SUB #10.(SP> 
NOP 



160$: 
.REPORT 



170$: 



LOSS OF BIT CLOCK. I.E. 

BIT #LBC.RnER2l 

BEO 170$ 

BIT M10L.RMDSI 

BEQ 170$ 

MOV RMER21.$GDDAT 

BIC 4rLBC,$GDDAT 

MOV RMER2I.$BDDAT 

ADD #4,(SP) 

M0V8 #311,8(SP) 

SUB #2.(SP) 

JSR PC.a(SP)* 

SUB #10. (SP) 

NOP 



"DVC" = 1 

;IS "DVC" = 1?? 

;N0! : 

.•EXPECTED STATUS 

.•RECEIVED STATUS 
.•MOVE SP TO USERS ERROR 
.-WRITE ERROR NUMBER IN CALL 
.'MOVE SP TO RETURN IF ERROR 
; RE PORT ERROR AND RETURN 
.•RESTORE SP TO NO ERROR 



•IBC" = 1. IF "HfX" = 1 
IS L8C SET?? 
NO! I 

WAS LSC ERROR Br MOL = 0 

VES!! 

EXPECTED STATUS 

RECEIVED STATUS 
MOVE SP TO USER'S ERROR CALL 
WRITE ERROR Nl^ER IN CALL 
MOVE SP TO RETURN IF ERROR 
REPORT ERROR AND RETURN 
RESTORE SP TO NO ERROR 



.•REPORT LOS Of SYSTEM CLOCK. I.E.. 'ISC" = 1 



180$: 



BIT #LSC.RMER2I 

BEQ 180$ 

MOV RMER2I,$GDDAT 

BIC #LSC.$GDDAT 

MOV RMER2I.$8DDAT 

ADD #4.(SP) 

MOVB /r312.a(SP) 

JSR PC.a(SP)* 

SUB #10, (SP) 
NOP 



IS "ISC" = 1?? 
NO!! 

EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO USER'S ERROR CALL 

WRITE ERROR NUMBER 

REPORT ERROR AND RETURN 

RESTORE SP TO NO ERROR 



;L0OK FOR •\JNS" OR 'DTE" OR 'UE" IN ERROR REGISTER #1 

BIT #uns:dte.wle.rmerii 

BEQ 220$ ;N0 BITS «;ET 

.•report 'l/NS" ERROR IF 'DvC" - 0 

BIT #UNS.RMER1I ; IS "UNS" SE T?? 
BEQ 190$ ;N0:. 

BIT #DVC.RMER2J ;WAS 'UNS" CAUSED BV "Dvf"?: 
BNE 190$ ;rE5.. 



ZRMOeO RMC5/1/2 FCTNL TST 3 
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286 


060322 


015757 


001552 


001140 


287 


060330 


042757 


C40000 


001140 


?88 


060536 


015757 


001352 


001142 


289 


060344 


062716 


000004 




290 


060550 


112776 


000515 


000000 


291 


060556 


162716 


000002 




292 


060562 


004736 






293 


060364 


162716 


000010 




294 


060370 








295 










296 










297 


060370 


052757 


010000 


001352 


298 


060576 


001425 






299 


060400 


015757 


001552 


001 140 


300 


060406 


042757 


010000 


001140 


301 


060414 


015757 


001552 


001142 


302 


060422 


062716 


000004 




503 


060426 


112776 


000514 


000000 


304 


060454 


162716 


000002 




305 


C60440 


004756 






306 


060442 


162716 


000010 




307 


060446 








308 










309 










310 










311 


060446 


052757 


004000 


001352 


312 


060454 


001441 






313 


060456 


015757 


0C1552 


001142 


3U 


060464 


015757 


001552 


001140 


315 


060472 


052757 


004000 


001140 


316 


060500 


062716 


000004 




317 


060504 


112776 


000315 


OOOOUO 


318 


060512 


052757 


004000 


001550 


319 


060520 


001404 






320 


060522 


052757 


000010 


001412 


321 


060530 


001406 






322 


060552 


112776 


000516 


000000 


323 


060540 


042757 


004000 


001140 


324 


060546 


162716 


000002 




325 


060552 


004756 






326 


060554 


162716 


000010 




327 










328 


060560 








329 










3^0 










331 


060560 


062716 


000004 




332 


060564 


105776 


000000 




333 


060570 


001404 






334 


06057? 


162716 


000004 




335 


060576 


000157 


061600 




336 


060602 


162716 


000004 




337 










338 










330 










340 


060606 


013757 


001412 


0621 70 


341 


060614 


042757 


1 77700 


0621 70 


342 


060622 


022737 


000063 


062170 



190t: 
.■REPORT 



200S: 



MOV RMER1 I .SGDDAT 

BIC #UNS,$GDDAT 

MOV RMERII.SBDDAT 

ADD #4.(SP) 

M0V8 #513,a(SP) 

sue #2.(sp) 

JSR pc.a(sp)* 

SOB *10.(SP) 



ANY DRIVE TIMING ERROR, 

BIT *DTE,RMER1I 

BEQ 200S 

MOV RMER1I.$GDDAT 

BIC #DTE,fGDDAT 

MOV RMERII.SBDDAT 

ADD #4.(SP) 

M0V8 *314,a(SP) 

SOB #2.<SP) 

JSR PC,a(SP)* 

sue *io,(SP) 



.•EXPECTED STATUS 

.■RECEIVED STATUS 

;M0VE SP TO USERS ERROR CALL 

; WRITE ERROR NUMBER 

;M0VE SP TO RETURN IF ERROR 

.■REPORT ERROR AND RETURN 

.•RESTORE SP TO NO ERROR 



I.E., "DTE" = 1 
IS DTE SET?? 
NO!.' 

EXPECTED STATUS 

RECEIVED STATUS 
MOVE SF TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO RCTURN IF ERROR 
REPORT ERROR VJD RETURN 
MOVE SP TO NO ERROR 



.•REPORT AN ERROR IF WRITE LOCK ERROR IS SET. SEE IF DRIVE iS NOT 
.•WRITE PROTECTED. OR IF FUNCTION UAS NOT A WRITE 



205$: 
210$: 



220$: 



BIT iTULE.RMERIl 

BEQ 220S 

MOV RMER1 I .SBDDAT 

MOV RMERII.SGDDAT 

BIS #WLE,$GDDAT 

ADD #4,(SP) 

M0V8 #3l5,a(SP) 

BIT ^WRL.RMDSI 

BEQ 205$ 

BIT #8IT3.RMCS10 

BEO 210$ 

M0V8 #316,a(SP) 

BIC #WLE,$GDDAT 

sue ir2.(SP) 

JSR PC.a(SP)* 

sue irio.<sp) 



;0«IT DATA ERROR CHECKS If ANY 



225$: 



ADD 
TST8 
BEO 
SUB 
JMP 
SUB 



#4,<SP) 
a(SP) 
225$ 
#4,(SP) 
340$ 
*4,(SP) 



UAS 'MLV SET?? 
NO! ! 

RECEIVED STATUS 
EXPECTED STATUS 

MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER IN CALL 
WAS DRIVE WRITE PROTECTED?? 
NO!! 

WAS COMMAND A WRITE?? 
YES' ' 

CHANGE ERROR NlfQER 

MOVE SP TO RETURN IF ERROR 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 



PREVIOUS ERRORS HAVE BEEN DETEcTED 
;MOVE SP TO USER'S ERROR 
:WAS ERROR DETECTED?? 
;N0 - DO DATA CHECKS 
; RE STORE SP 
SKIP DATA CHECKS 
: RE STORE SP 



.-CHECK HEADER ERRORS IF FUNCTION WAS NOT WRITE HEADER AND DATA. AND 
;IF HEADER COMPARE IS NOT INHIBITED 

MOV RMCS10.510$ ;STRIP AND STORE FUNCTION '"DE 

BIC **CFNCMSK.510$ 

CMP #WH!G0.510$ ;WAS FUNCTION WRl TE hEADEF - OATA?' 
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SEO 0?4S 



5^3 060630 
SA^ 060632 
5A5 0606AU 
34.6 
347 

3A8 0606A? 
3<.9 O606';0 
350 
3S1 

352 060652 

353 060660 
35A 060662 

355 060670 

356 060676 

357 06070A 

358 060710 

359 060716 

360 060722 

361 06072A 

362 G60726 
363 

36A 

365 060726 

366 06073A 

367 060736 

368 C607A4 

369 060752 

370 060760 

371 060764 

372 060772 

373 060776 

374 061000 

375 061002 
376 

377 

378 061002 

379 061010 

380 061012 

381 061020 

382 061026 

383 061034 

384 061040 

385 061046 

386 061052 

387 061054 
388 

389 
390 

391 061056 

392 061064 

393 061066 

394 061074 

395 061102 

396 061110 

397 061114 

398 061122 

399 061126 



0015^2 
032737 
001106 



032737 
001533 



032737 
001422 
013737 
042737 
013737 
062716 
112776 
162716 
004736 
000501 



032737 
001422 
013737 
042737 
013737 
062716 
112776 
162716 
004736 
000453 



032737 
001453 
013757 
042737 
013737 
062716 
112776 
162716 
004736 
000425 



032737 
001425 
013737 
042757 
013737 
062716 
112776 
162716 
004736 



C02000 001 370 



000620 001352 



000400 001 352 



001352 
000400 
001352 
000004 
000317 
000002 



001352 
000020 
001352 
000004 
000320 
000002 



001352 
000200 
001352 
000004 
000321 
000002 



001352 
000620 
001352 
000004 
000322 
000002 



001140 
001140 
001142 

000000 



000020 001 352 



001140 
001140 
001142 

000000 



000200 001 352 



001140 
001140 
001142 

000000 



001140 
001140 
001142 

000000 



SEE IF 



BEG 
BIT 
BNE 

ANV 
BIT 
BEQ 



250$ 

*HCi,RM0FI 
250$ 



VES - SKIP HEADER CHECKS 

WAS HCI SET?-' 

VES - SKIP HEADER CHECKS 



HEADER ERRORS ARE SET. I.E.. "FER" OR "HLRf" OR 'Wf 
*HCftC!FER.HCE.RMERl] 
270$ ;N0 ERRORS SET 



.•REPORT 



230$: 



HEADER CRC ERROR IF SET 

BIT #HCRC,RMER1I 

BEQ 230$ 

MOV RMER1I.$GDDAT 

BIC #HCRC,$GDDAT 

MOV RMER1I.$8DDAT 

ADD #4.(SP> 

M0V8 #317,a(SP) 

sue #2,(SP) 

JSR Pc,a(SP)* 

BR 260$ 



;WAS HCRC 
;N0! ! 
.EXPECTED 



SET?? 
STATUS 



.REPORT FORrWT ERROR IF SET 

BIT 4rFER,RMER1I 

BEQ 240$ 

MOV RMER1I.$GDDAT 

BIC #FER.$GDDAT 

MOV RMER1I.$BDDAT 

ADD #4,(SP) 

M0V8 #320. a (SP) 

SUB #2.(SP) 

JSR PC.aCSP)* 

BR 260$ 

240$: 

.•REPORT HEADER COMPARE ERROR IF 



RECEIVED STATUS 

MOVE SP TO USERS EhROR 

WRITE ERROR NU1BER 

MOVE SP TO RETURN IF ERROR 

REPORT CRROR AND RETURN 



.WAS 'TER" SET?? 
;N0!: 

.•EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO USERS ERROR 

WRITE ERROR NlfCER 

MOVE SP TO RETURN IF ERROR 

REPORT ERROR AND RETURN 



SET 

;WAS •>^CE" SET?? 
'NO ' ' 

•EXPECTED STATUS 



000620 001352 250$: 



BIT /THCE.RMERll 

BEO 270$ 

MOV RMER1J.$GD0AT 

BIC #HCE. $GDDAT 

MOV RM€R1I,$BDDAT 

ADD #4.(SP> 

M0V8 #321.a(SP) 

SUB #2.(SP) 

JSR PC.aCSP)* 

BR 260$ 

THERE SHOULD BE NO HEADER ERRORS BECAUSE 

•COMMAND WAS WRITE HEADER AND DATA, 
HEADER COMPARE INHIBIT WAS SET 



RECEIVED STATUS 
MOVE SP TO USER'S ERROR 
WRITE ERROR NUMBER 
MOVE SP TO RETURN IF ERROR 
REPORT ERROR AND RETURN 



OR 



BIT 
BEQ 
MOV 
BIC 
MOV 
ADD 
M0V8 

sue 

JSR 



#hce!fer:hcrc.rmerii 
270$ ;n0 errors were set 

rmer11.sgddat ;expected status 
#hce! per! hcrc. $gddat 



RMER1I,$8DDAT 
#4.(SP) 
#322. a (SP) 
#2,(SP) 
PC.a(SP)* 



RECEIVED STATUS 
MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER 
MOVE SP TO RETURN IF ERROR 
REPORT ERROR AND RETURN 



M 3 
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••uu 


wo • 1 Jv 




UVvv • U 






n/vi 1 7A 

UO 1 1 JH 


nnm X7 






Art? 












UO 1 1 hV 








HI/** 
































fv»i 1 An 
yo 1 1 hu 




noon 10 


06P1 70 

vOC ' ' V 


/.OR 


riAl 1 AA 
UO 1 1 HO 


nni nn? 






/.no 


fv»i 1 sn 


nnni 37 


061 X66 




A1 fi 


fVsl 1 •i4 

VO ' 1 ^H 








All 










A1 ? 










H 1 J 


n^i 1 S4 

VD 1 1 JH 


\J JC 1 J f 


1 00000 


001 35P 

WW I i/ J C 


H 1 H 


(JO 1 1 Oc 


0014S0 

\J\J 1 H JV/ 






H 1 J 


n^i 1^4 

VO 1 1 OH 


01 ^7^7 


001 35P 

WW 1 J ^C 


001 140 

WW ' • ~W 


Al A 


fVsl 1 7? 


0457X7 

V/HC 'J' 


1 00000 

1 VV/www 


001 140 

Ww i 1 ■•w 


7 


vO < c vw 


01 X737 


001 75P 

WW I J JC 


001 142 

VW 1 ' "C 


^1 R 

•f 1 O 




06P716 

wWC » 1 w 


000004 

wwwww~ 




H 1 ~ 


WO I C 1 c 


1 1P776 

1 1 C » ' w 


OC03P3 

WWW JC J 


000000 

VWwWWW 


L?0 


VO ■ c c v 


075777 

\JJC f Jf 


004000 

WWHWwW 


001370 

VW 1 J r V 


i?1 
HC 1 


vO I c c o 


001 OPI 

WW I \JC I 










1 1P776 


000324 

WWW JC ~ 


000000 

WWWW WW 


4P3 

He J 


WW 1 C Jw 


03P737 

W JC f J r 


000100 

www 1 WW 


001352 

WW 1 J >b 






001007 

WW I WWr 






■4 c 












V/O 1 CHO 


0^P737 

W JC r J ' 


000020 

WWWWC w 


062170 

WWk 1 » w 


He r 


061 P54 

Vw 1 C J*» 


001406 

WW ' ~ww 






*« c o 


061 ?56 

VvJ 1 C Jw 


16P716 


000004 

www ww^ 




He ~ 


061 P6? 

WW 1 cue 


0004 1 0 

WWW~ I w 








061 P64 

WW 1 


1 12776 


000325 

WWW-^t 


000000 

wwwww w 




061 ?7? 

WW 1 C * C 


162716 

1 WC ' 1 w 


000002 

wwwwwc 




H JC 


061 P76 

WW 1 C r W 


004736 

ww"t • JW 






H J J 


061 300 

wW 1 Jww 


16P716 

1 WC ' I u 


000010 

WWWW 1 w 




H ^H 










H ? » 


wW 1 JwH 








H JO 




















H JO 


wD 1 JV** 


0XP737 

w JC r J r 


000400 

WWW"t Ww 


001 346 

WW 1 JtW 


J" 


wO 1 J 1 c 


001 ^P7 

WW 1 c J 






^^n 


WW 1 J 1 


01 7777 

W 1 J r J f 


001 X46 

WW 1 JHW 


001 140 

VW I I tw 


1 


0A1 

wW 1 Jl C 


04P737 

W*»C r J r 


000400 

WWW" WW 


001 140 

WW 1 1 ^ V 


HHc 


0^1 770 

WW 1 J Jw 


01 3737 

W 1 J ' J • 


001 346 

WW 1 Jtw 


001 142 

WW 1 1 ~ t 


HH J 


HAI 77^ 

WW 1 J JW 


UWC r 1 n 


00000^ 

wwwww*t 






0A1 7AP 

WW 1 J*vc 


1 1P776 

I 1 C ' • w 


000326 

WwW JC w 


000000 

vwvvww 


■♦•t J 


061 350 

WW 1 J Jw 


16P716 

1 WC r 1 W 


000002 

WWWWwC 




446 


061354 

wW I J J^ 


004736 

WW^ r JW 






447 


061356 

wW I J JW 


162716 

1 WC ' I w 


000010 

WWWW 1 w 




448 


061 362 

WW I JWC 


000137 

WWw I J ' 


061600 

WW I www 














4 SO 


061366 








45; 










452 










453 


061366 


032737 


000001 


001350 


454 


061374 


00U23 






455 


061376 


013737 


001 350 


001140 


456 


06U04 


042737 


000001 


001 KO 



260$: 



270$: 



SU8 
JW> 



#10. (SP) 
340$ 



.•MOVE SP TO NO ERROR 
;OMIT FURTHER DAM CHECKS 



;IF COMMAND WAS A WRITE C0W.1AND. GO DO WRITE ERROR CHECKS. OTHERUlSf 
;D0 READ ERROR CHECKS 

*8IT3.510$ .-WAS THIS A WRITE COMMAND' 

275$ ;N0., 

310$ ;G0 DO WRITE STATUS CHECK 



275$: 



BIT 
dNE 
JMP 



CHECK If SET 



BIT 


#DCK.RMER1I 


DATA CHECK ERROR?? 


BEQ 


290$ 


NO. : 


MOV 


RMER1I.$GDDAT 


■EXPECTED STATUS 


SIC 


#DCK.$6DDAT 




MOV 


RMER1I.$BDDAT 


•RECEIVED STATUS 

•MOVE SP TO USER'S ERROR 


ADD 


#4.(SP) 


M0V8 


#323,a(SP) 


•WRITE ERROR NUMBER 


BIT 


#ECI.RM0FI 


•WAS ECC CORRECTION DISABLED?? 


BNE 


280$ 


;YES! ' 


M0V8 


#32A.a(SP) 


; CHANGE TO RECOVERABLE ERROR 


BIT 


#ECH,RMER1I 


;IS ERROR RECOVERABLE?? 


BNE 


276$ 


;N0 ! ' 


REPORT 


RECOVERABLE ERROR 


IF READ COMMAND 


BIT 


#en4.510$ 


;WAS THIS A READ COMMAND ■>? 


BEQ 


280$ 


;N0 !! 


SUB 


#4.(SP) 


.•RESTORE SP 


BR 


290$ 


;SKIP ERROR - DATA WILL BE CORRECTED 


Move 


#325.a(SP) 


.•CHANGE TO NON RECOVERABLE 


SUB 


#2.(SP) 


;MOVE SP TO RETURN IF ERROR 


JSR 


pc.acsp)* 


.•REPORT ERROR AND RETURN 


SUB 


#10. (SP) 


.•RESTORE SP TO NO ERROR 



276$: 
280$: 



290$: 

.•REPORT DATA BUS PARITY ERROR 

BIT #MDPE,RMCS2I 

BEQ 300$ 

MOV RMCS2I .$GDDAT 

BIC #MDPE,$GDOAT 

MOV RMCS2I.$8DDAT 

ADD #4.(SP) 

M0V8 #326, a (SP) 

SUB #2,(SP) 

JSR pc.acsp)* 

SUB #10. (SP) 

JMP 340$ 



300$: 
310$: 
.•TEST 



TO SEE THAT OFFSET MODE 
BIT #OM.RMDSI 
BEQ 320$ 
MOV RMDSI.$GDDAT 
BIC #OM.$GDDAT 



;f set. i.e., mdpe - i 

rPARITV ERROR SET?? 
;N0' ! 

;EXPECTED STATUS 

RECEIVED STATUS 
MOVE SP TO USER'S ERROR 
WRITE ERROR NUMBER 
MOVE SP TO RETURN IF ERRO'< 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 
SKIP WRITE STATUS CHECK 



WAS RESET; REPORT ERROR IF 
IS OFFSET ON?? 
;N0 

;EXPECTED SIATUS 
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SEO 0?A 



A57 

A58 

A59 

460 

A61 

A62 

A63 

464 

465 

466 

467 

4o8 

469 

470 

471 

472 

473 

474 

4/5 

476 

477 

478 

4 79 

480 

481 

482 

485 

484 

485 

486 

487 

488 

489 

490 

491 

492 

49^ 

494 

495 

496 

497 

498 

499 

500 

501 

502 

50^ 

504 

505 

506 

507 

508 

S09 

510 

«>n 



061412 
061420 
061424 
061432 
061436 
061440 
061444 



061444 
061452 
061454 
061462 
061470 
061476 
061502 
061510 
061514 
061516 
061522 



061522 
061530 
061532 
061540 
061546 
061554 
061 560 
061566 
061572 
061574 
061600 



061600 
061606 
061610 
061616 
061624 
061f32 
061 o36 
061644 
061650 
061652 
061656 

061656 
061662 
061666 
061672 



061674 

061702 



013737 
062716 
112776 
162716 
004736 
162716 



032737 
001423 
013737 
042737 
013737 
062716 
112776 
162716 
004736 
162716 



032737 
001423 
013737 
042737 
013737 
062716 
112776 
162716 
004736 
162716 



032737 
001423 
013737 
042737 
013737 
062716 
112776 
162716 
004736 
162716 



013746 
042716 
022726 
001522 



052737 
00U30 
052737 



001350 

000004 
000327 
000002 

000010 



001142 

000000 



320$: 



nov 

ADD 

novB 

SUB 
JSR 
SUB 



RHDSKSBODAT 
#4,(SP) 
#327,a(SP) 
#2,(SP) 

pc,a(SP)* 

#10. (SP) 



RECEIVED STATUS 
MOVE SP TO USER'S ERROR CALL 
URITE ERROR Nl/QER IN CALL 
MOVE SP TO RETURN IF ERROR 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 



;TEST FOR DATA BUS PARITY ERROR; REPORT ERROR IF 'DPE" = 1 



OGOOlO 


001400 


BIT 


#D?E.RMER2I 


;DATA PARITY ERROR?? 




BEO 


330$ 


;N0! I 


001400 


001140 


MOV 


RMER2I.$GDDAT 


.•EXPECTED STATUS 


000010 


001140 


BIC 


WPE.$GDDAT 




001400 


001142 


MOV 


RMER2I.$8DDAT 


.•RECEIVED STATUS 

.-MOVE SP TO USER'S ERROR CALL 


000004 




ADD 


#4.(SP) 


000330 


000000 


MOVE 


#330.a(SP) 


;WRITE ERROR NUMBER 


000002 




SUB 


*2,(SP) 


.•MOVE SP TO RETURN IF ERROR 




JSR 


pc,a(sp)* 


.•REPORT ERROR AND RETURN 


000010 




SUB 


#10, (SP) 


.•MOVE SP TO NO ERROR 



000040 001352 



330$: 
.-TEST 



001352 
000040 
001352 
000004 
000331 
000002 

000010 



001140 
001140 
001142 

000000 



340$: 



FOR WRITE 
BIT 
BEQ 
MOV 
BIC 
MOV 
ADD 
MOVB 
SUB 
JSR 
Slfi 



CLOCK FAILURE; 
#UCF .RMERl I 
340$ 

RMER1I.$GDDAT 

#WCF.$GDDAT 

RMER1I.$BDDAT 

#4.(SP) 

#331.a(SP) 

#2,(SP) 

PC,a(SP)* 
#10, (SP) 



REPORT ERROR IF "UCF" - 1 
IS 'MCf" SET?? 
;N0; ! 

; EXPECTED STATUS 

RECEIVED STATUS 
MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER 
MOVE SP TO RETURN IF ERROR 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 



100000 001346 



001346 
100000 
001346 
000004 
000332 
000002 

000010 



001350 
147(77 
010100 



020000 
0<0000 



001140 
001140 
001142 

000000 



; REPORT 'DATA LATE" ERROR IF 'DlT" = 1 

IS ""DLT" SET?? 

;N0! 

; EXPECTED STATUS 



350$: 
;l OOK 



BIT #DLT.RMCS2I 

BEQ 350$ 

MOV RMCS2I.$GDDAT 

BIC #DLT.$GDDAT 

MOV RMCS2I ,$8DDAT 

ADD #4,{SP) 

MOVB #332, a (SP) 

SUB #2.(SP) 

JSR PC.a(SP)* 

SIB #10. (SP) 

FOR UNEXPECTED CHANGES IN 

MOV RMDSI,-(SP) 

BIC #»C<PIP!MOL'VV>, 

CMP #mol:vv,(sp)* 

BEO 380$ 



RECEIVED STATUS 

MOVE SP TO USERS ERROR CALL 

WRITE ERROR NUMBER 

MOVE SP TO RETURN IF ERROR 

REPORT ERROR AND RETURN 

MOVE SP TO NO ERROR 

DRIVE STATUS 
; STACK DRIVE STATUS 
(SP) ; CLEAR DONT CAPES 
;IS DRIVE STATUS OK?? 
;VES! . 



;9EP0RT ERROR IF POSITIONING IN PROGRESS AND NO SEEK INCOMPLETE FhROR. 



001350 
OOUOO 



;1.E. PIP - 1 
BIT 
BtO 
BIT 



AM) SKI 0 
#PIP.R«DSI 
560$ 

#SKl.RMEft2! 



IS 'VIP'' 

NO. 1 

WAS "SKI' 



SET?? 

• ERROR REPORTED?? 



i 
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5U 061^2 

515 0617K 

516 061722 

517 061730 

518 061736 

519 061742 
5?0 061750 

521 061754 

522 061756 

523 061762 

524 061764 
525 

526 
527 

528 061764 

529 061772 

530 061774 

531 C62002 

552 062004 

553 062012 

534 062020 

535 062026 

536 062032 

537 062040 

538 062044 

539 0t)2046 

540 062052 
541 

542 
543 

544 062052 
54^ 062060 

546 062062 

547 062070 

548 062072 

549 062100 

550 062106 

551 062114 

552 062120 

553 062126 

554 062132 

555 0621 34 

556 062140 
557 

558 

559 062140 

560 062144 

561 062150 

562 062152 

563 062156 

564 062160 
565 

566 062164 
567 

568 062166 

569 362170 



001024 

013737 G01350 001140 

042737 020000 00^140 

013737 001350 001142 

062716 000004 

112776 000333 000000 

162716 000002 
004736 

162716 000010 
000240 



032737 
001027 
032737 
001023 
013737 
052737 
013737 
062716 
112776 
162716 
004736 
162716 



032737 
001027 
032737 
001033 
013737 
052737 
013737 
062716 
112776 
162716 
004736 
162716 



062716 
105776 
001403 
062716 
000402 
162716 

000207 

000000 
000000 



010000 

020000 

001350 
010000 
001350 
000004 
000334 
000002 

000010 



000100 

010000 

001350 
000100 
001350 
000004 
000335 
000002 

000010 



000004 
000000 

000004 

000004 



001350 

001352 

001140 
001140 
001142 

000000 



001350 

001400 

001140 
001140 
001142 

000000 



360$: 



BNE 360$ 

MOV RMDS].$GDDAT 

BIC #P]P.$GDDAT 

MOV RMDSI.$8DDAT 

ADD #4.(SP) 

M0V8 #333.a(SP) 

SU3 #2,(SP) 

JSR PC.aCSP)* 

SUB #10. (SP) 
NOP 



.•REPORT ERROR IF 
.•REPORTED. I.E.. 

BIT 

BNE 

BIT 
BNE 
MOV 
BIS 
MOV 
ADD 
M0V8 

sue 

JSR 
SUB 

370$: 



MEDIUM IS 
MOL = OPI = 

•MOL.RMDSI 

370$ 

#0PI.RMER11 
370$ 

RMDSI.$GDDAT 
#M0L.$GDDAT 
RMDSI .$8DDAT 
#4,(SP) 
#334.a(SPJ 
#2,(SP) 
PC.a(SP)* 
#10. (SP) 



NOT 

= 0 



VFS-DONT REPORT PIP 
lXPECTFD STATUS 

RECEIVED STATUS 

MOVE SP TO USERS ERROR CALL 

WRITE ERROR NUMBER 

MOVE SP TO RETURN IF ERROR 

REPORT ERROR AND RETURN 

MOVE SP TO NO ERROR 



ON LINE AND OPI ERROR WAS NOT 



IS MEDIUM ON LINE'? 
YES! ! 

WAS OPI ERROR REPORTED''? 
YES. . 

EXPECTED STATUS 

RECEIVED STATUS 

MOVE SF TO USER'S ERROR 

WRITE iRROR WJMBER 

MOVE fP TO RETURN IF E^^OR 

REPORT ERROR AND RETURN 

MOVE SP TO NO ERROR 



.REPORT ERROR IF VOLUME IS NOT VALID AND "IVC" ERROR WAS NOT 



.REPORTED. I.E. 
BIT 
BNE 
BIT 
BNE 
MOV 
BIS 
MOV 
ADD 
MCVB 
SUB 
JSR 
SUB 

380$: 



VV = IVC = 0 
#VV.RMOSI 
380$ 

#IVC.RMER2I 
390$ 

RMDSI.$GODAT 

#VV,$GDDAT 

RM0SI.$6DDAT 

#4,(SP) 

#335. a (SP) 

#2.CSP) 

pc.acsp)* 

#10. (SP) 



IS VOLUME VALID?? 
YES! ! 

WAS IVC ERROR REPORTED" 
YES' ' 

EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO USERS ERROK CALL 

WRITE ERROR NUMBER 

MOVE SP TO RETURN IF ERROR 

REPORT ERROR AND RETURN 

MOVE SP TO NO ERROR 



.AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS FOUND 



390$: 


ADD 

TSf'B 

BEO 

ADD 

BR 

SUB 


#4.(SP) 
a(SP) 
390$ 
#4.(SP) 
400$ 
#4.(SP) 


;M0VE SP TO ERROR CALL 
.•ANY ERROR?? 
;N01 ! 

;YES - MOVE SP TO ERROR RETURN 
;MOVC SP TO NO ERROR RETURN 


400$: 


RTS 


PC 


.•RETURN TO USER 


500$: 
S10$: 


.WORD 
.WORD 




; ERROR FLAGS 
.•TEMPORARY STORAGE 



STATIC DRIVE STATUS ChECK SUBROUTINE 



2 

3 

4 

5 

6 

7 

8 

9 
TO 
11 

12 
13 
K 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
?6 

27 062172 

28 

29 

30 062172 062716 

31 062176 105076 

32 062202 162716 
33 

34 062206 013746 

35 062212 042716 

36 062216 022726 

37 062222 001524 
38 

39 

40 062224 032737 

41 062232 001030 

42 062254 032737 

43 062242 001024 

44 062244 013737 

45 062252 052737 

46 062260 013737 

47 062266 062716 

48 062272 112776 

49 062300 162716 

50 062304 004736 

51 062306 162716 

52 062312 000240 

53 062314 
54 

55 

56 062314 032737 

57 062322 001030 
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C 
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SFO 0249 



000004 
000000 
000004 

001 350 
147677 
010100 



01 0000 

020000 

001350 
010000 
001350 
000004 
000207 
000002 

000010 



,S8TTL STATIC DRJVE STATUS CHECK SUBROUTINE 

THIS SUBROUTINE LOOKS FOR UNEXPECTED CHANGES IN DRIVE 
STATUS. SUCH AS THE DRIVE LOSING VOLUME VALID. THE SUBROUTINE 
CAN BE USED BY HOUSEKEEPING AND OTHER COMMANDS DURING WHICH THfRE 
SHOULD NOT Bk ANY DRIVE ERRORS OR CHANGES IN STATE. 

THE FOLLOWING CONDITIONS ARE TESTED AND REPORTED AS ERRORS 
IF TRUE: 

,MOL = 0. INDICATES DRIVE WENT OFFLINE, NOTE 
THAT MOL IS ASSUMED ^0 HAVE BEEN SET 

.VV - 0. INDICATES THE DRIVE LOST VOLUME VALID 
.PIP = 1. INDICATES THAT THE DRIVE IS OFF CYLINDER 
.SKI - 1. INDICATES THE DRIVE HAS AN UNEXPECTED SKI ERROR 
.DVC = 1. INDICATES AN UNEXPECTED DEVICE FAULT 

THE SUBROUTINE IS CALLED AFTER STORING STATUS IN THE GET BUFFER. 



(1) JSR 
BR 
NOP 
ERROR 

JSR 

? ?? 

STCDRVSTS: 

.•CLEAR USER'S 
ADD 
CLR6 

sue 

.-SEE IF -WOL" 
MOV 
BIG 
CMP 
BEO 



PC. STCDRVSTS 



PC.a(SP)* 



ERROR CALL 
#4.(SP) .-MOVE 
a(SP) 
#4.(SP) 
= 'VV" = 1. AND 
RMOSI.-(SP) 



#*C <PIP! MOL !VV>.(SP) 
*M0L1VV.(SP)* ;ARE MOL.VV 
30$ .-YES.'; 



RETURN HERE IF NO ERROR 

RETURN HERE TO REPORT AN ERROR 

ERROR Nll«ER DEFINED BY SOB 

GO BACK TO SUB FOR MORE ERROR CHECKS 

RETURN HERE IF NO MORE ERRORS 



SP TO USfO'S ERROR CALL 
; CLEAR ERROR NUBER 
.•MOVE SP BACK TO NO ERROR RETURN 
•T'lP" = 0 

;PUT DRIVE STATUS ON STACK 



AND PIP O.K.?'' 



001350 

001352 

001140 
001140 
001142 

000000 



; REPORT AN ERROR IF MOL = 0 AND 

BIT #MOL,RMDSI 

BNE 10$ 

BIT #0PI.RMER1I 

BNE 10$ 

MOV RMDSI.$GDDAT 

BIS #MOL.$GDDAT 

MOV RWSI.$80DAT 

ADD #4,(SP) 

M0V8 *207. a (SP) 

SUB *2.<SP) 

JSR Pc.a(SP)* 

SUB *10.(SP) 
NOP 

10$: 



•lOPI" = 0 
;IS MOL ON ?? 
;YES.' : 

;WAS "DPI" SET?? 
;YES-DONT REPORT "liOL" 0 
.•EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO USER'S ERROR CALL 

WRITE ERROR NUMBER IN CA,.L 

MOVE SP TO RETURN F0« ERROR 

REPORT ERROR VIA USER 

MOVE SP BACK TO NO ERROR RETURN 



000100 001350 



.•REPORT AN ERROR IF VOLUME VALID IS NOW ZERO AND 
8JT m.RMDSI ;IS 'VV = 0?? 

BNE 20$ ;N0. 



••IVC* 



rZRIOeO RM05/3/2 fCTML TST 3 f^CRO 
STAMC DHivE STATUS CHECK SUBRCXiTINE 
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?o 






ni nnnn 


nni z.on 

UU 1 "lUU 












<.n 
OU 


VOCJJ'* 


m 77T7 


nni 7sn 

UU 1 J jU 


noi 1 L(\ 

UU 1 


^1 




U jcf jf 


nnn 1 OO 
UUU 1 uu 


OOI 7SO 
UU 1 J jU 




OA57SO 


01 '77'77 


001 7S0 
UU 1 J jU 


OOI 1 Ly 

UU 1 1 *»c 


O J 


UOc J JO 




onoOoz. 








1 1 P77A 


ooopi n 

UUUC ' u 


nnnnnn 




0AP770 
UOc J' U 


1 AP71 A 


nonnop 

UUUUUc 




66 


062 3 7A 


004736 






D' 


nA577A 
yOc J' O 


1 AP71 


OOOO 1 P 
UUUU 1 u 




DO 




nriftPAO 

UUV/c*»'J 
















7ri 

'U 










71 

f 1 










75 
' C 




nT5777 

\JjCf Jl 


nponon 


noi 7^o 

UU 1 jj\J 


7'? 


OAP^ 1 P 


001 ^ ?0 
UU 1 jU 






7L 




07P777 
UjC ' J' 


OAOono 


OOI Aon 

UU 1 hUU 


7C 


OAP^PP 


UU 1 Uc*» 






r O 




U 1 Jf J' 


001 7S0 

UU 1 J jU 

OPOOOO 
ucuuuu 


nni i^n 

UU 1 I HU 


77 




O^P7'77 


nni i4n 

UU 1 1 HU 


7S 


OAPZ.Z.O 


01 ?777 

U 1 J' J' 


001 7S0 

UU 1 J jU 


nni 1 4P 

UU 1 1 He 




OAPZ.Z.A 


0AP71 /^ 
UOC ' 1 O 


00000^ 
UUUUUH 






OAP^SP 


1 1 P77A 

1 1 C ' ' o 


nnnpi i 

UUUc < 1 


nnnnon 


O 1 


n^Pi^n 




nonnop 




Oc 




r*nA 77A 

v/Um ' JO 






O J 




1 AP71A 

1 Dc ' 1 O 


onnnin 

UUUU 1 u 




o*» 


f1AP^7P 


nnoP40 






O J 










oo 










S7 










OO 




U 1 J r •♦O 


oni4no 

UU 1 HUU 




07 




f)4P7P*'> 

UHC ' CO 


177S77 








no 14 AO 

UU 1 HOU 






01 










OP 










07 










0^ 




\JjC.f Jl 




UU 1 HUU 


OS 


OAPSI^ 


nni^P4 

UU \ MCH 








OAP"^! A 
UOc -« 1 O 


ni 7777 

U 1 J ' J » 


\J\J 1 hUv 


nni 1 ^n 

UU 1 1 Hv 


07 


OAPSP^ 


n^P777 

UHC f J f 




nni i4n 


OR 
70 


nAPS^P 


ni 7777 

U 1 J' Jl 


\J\J \ H\J\J 


001 14P 

W 1 1 H C 


OO 


oAPs^n 


uoc ' 1 o 


CiCiC\CiCiL 

vvV/vv*« 




inn 


n^ps^^ 

VOC JHH 


1 1 P77^'i 

1 \ C 1 1 yJ 




000000 


101 


n/kPssp 


1 oc 1 1 o 






inp 


UOc J JO 


nnz. 77A 

UUh ' jO 








vOc JOv 


1AP71 A 

1 oc ' I o 








UOc jd*» 








ins 


OAPSAA 

IJOc JuD 








1 nA 










107 










1 0R 


VJOc JDO 


n7P777 

UJC ' Jr 




001400 

Uv 1 HUU 


109 




0014P4 






MO 


062576 


013737 


001400 


001140 


in 




042737 


040000 


001140 


'1? 


062612 


013737 


001400 


001 142 


in 


062620 


062716 


000004 






062624 


112776 


000213 


000000 



OJ 1 


M\\ir BMP BP 1 


• uAC "\\ir" ^PT"" 

, W\3 1 VL )E ■ ■ . 


OnlC 


pot 
cu» 


, TCj yUWl KCr'jnl vv u 


MOU 

nuv 




• PVPFTTPn CTATirC 
,t^"VlCl' o 1 M 1 Ui 


QIC 






MOU 

nuv 




•BPrFIVPD STATUS 

•MOVE SP TO USER'S ERROR CAL 1 


ADD 


#4 (SP) 


M0V8 


#21*0.a(5P> 


.-WRITE ERROR NUMBER IN CALL 


sue 


#2.(SP) 


.•MOVE SP TO RETURN FOR ERROR 


JSR 


pc.acsp)* 


.REPORT ERROR VIA USER 


sue 


#10. (SP) 


;MOVE SP BACK TO NO ERROR 









20$: 

.•REPORT AN ERROR If DRIVE IS OFF 



30S: 



BIT 
BEQ 
BIT 
BNE 
MOV 
BIG 
MOV 
ADD 

Move 
sue 

JSR 

sue 

NOP 



#PIP,RMDSI 
30S 
#SKI.RMER2I 
30$ 

RMDSI.SGODAT 
#PJP,$GDDAT 
RMDSI.SBDDAT 
#4.(SP) 

#2ii.a(SP) 

#2.{SP) 

pc.a(SP)* 

#10. (SP) 



CYLINDER AND "SKI" - 0 
IS DRIVE OFF CYLINDER?? 
NO. 

WAS "SKI" SET*" 

YES-DONT REPORT 'T>IP" - 1 

EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO USER'S ERROR CALL 

WRITE ERROR NUMBER IN USER'S CALL 

MOVE SP TO RETURN FOR ERROR 

REPORT ERROR VIA USER 

MOVE SP TO NO ERROR RETURN 



.-SEE IF "SKI* 
MOV 
BIC 
BEQ 

40$: 



"DVC" = 0 

RMER2I,-(SP) ;PUT ERROR REG 2 ON STACK 

#*C<SKI!DVC>.(SP)* 

60$ .-BRANCH IF NO ERROR 



; REPORT AN ERROR IF THERE IS A 

BIT #DVC.RMER2I 

BEQ 50$ 

MOV RMER2I,$GDDAT 

BIC #DVC.$GDDAT 

MOV RM£R2I,$8DDAT 

A-"> #4,(SP) 

Move #212.a(SP) 

sue #2,(SP) 

JSR pc.a(sp)* 

sue #10. (SP) 

NOP 

50$: 

.REPORT AN ERROR IF "SKI" = 1 

BIT #SKJ,RMER2I 

BEO 60$ 

MOV RMER2I,$GDDAT 

BIC #SKI.$GDDAT 

MOV RMER2I,$BDDAT 

ADD #4,(SP) 

M0V8 #213.a(SP) 



DEVICE FAULT 

ANY DEVICE FAULT?? 
NO' ' 

EXPECTED STATUS 

RECEIVED STATUS 
MOVE SP TO USER'S CALL 
WRITE NUMBER OF ERROR IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO NO ERROR 



;IS THERE A SEEK INCOMPLETE ERROR 
;N0: : 

.-EXPECTED STATUS 

.•RECEIVED STATUS 

.-MOVE SP TO USER'S ERROR CALL 

.WRITE ERROR NUMBER IN USER'S ERROP 



ZP»<nBO R^5/V? KTNL TST 5 "lACHG ;04.00 
MM' DRIVE STATUS CHECK S'JBRCXjMNE 



E 4 

4-APR-81 01:15:59 PAGE 56-? 



SfO 0?S1 



MS 062632 
n6 062656 
0626^0 
118 0626^A 
"'9 062646 
120 
121 

122 062646 
12? 062652 
'24 062656 

125 062660 

126 062664 

127 062666 
1*r8 062672 
^29 062674 



1627^6 
004736 
162716 
000240 



062716 
105776 
001403 
062716 
000402 
162716 
00024G 
000207 



00000? 
000010 



000004 
000000 

000004 

000004 



60$: 



sue 

JSR 

sue 

NOP 



#2.(SP) .-MOVE SP TO RETURN FOR ERROR 

PC.a(SP)» .-REPORT ERROR VIA USER 

#10, (SP) .-MOVE SP BACK TO NO ERROR 



.•AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED 

ADD *4.(SP) ;W0Vt' SP TO USER'S ERROR CALL 

TST8 a(SP) ;WAS AN ERROR DETECTED'? 

BEQ 70i ;N01. 

ADD *4 i<;P) ;VFS - MOVE SP TO USER'S ERROR RETURN 

BR 80S 

70$: sue #4,(SP) ;N0 - MOVE SP TO NO ERROR RETURN 
80$: NOP 

RTS DC .RETURN TO USER 



SA.E AND STORE 



1ST 3 
ftOUTIPtfS 



nAC«*0 .'04.00 4-APR-81 01:T5:S9 PAGE 



4 

37 



062676 

062676 010046 

C62700 010U6 

062702 010246 

062704 010346 

062706 010446 

062710 010546 

062712 016646 000022 

062716 016646 000022 

062722 016646 000022 

062726 016646 000022 

062732 000002 



062734 

062734 012666 000C22 

062740 012666 000022 

062744 012666 000022 

062750 012666 000022 

062754 012605 

062756 012604 

062760 012603 

C62762 012602 

062764 012601 

062766 012600 

062770 000002 



.S8TTL SAVE AND RESTORE R0-R5 ROUTINES 



;*SAVE R0-R5 
;*CALL: 

• SAVREG 

•UPON RETURN FROM SSAVREG THE STACif WILL LOGIC LIKE 



.••TOP- 
;• -2- 
;• ♦4- 
;• ♦6- 
;• -S- 
.■•♦10- 
.•♦♦12- 
.••♦14- 

$SAVREG; 



•-(♦16) 
-(♦18) 
-R5 
-R4 
-R3 
-ft2 
-R1 
-RO 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 



RO.-(SP^ 

RI.-(SP) 

R2.-(SP) 

R3.-(SP) 

R4.-(SP) 

R5.-(SP) 

22(SP),-(SP) 

22(SP).-(SP) 

22(SP).-(SP) 

22(SP).-(SP) 



.••RESTORE R0-fi5 
.••CALL: 



fRESREG: 



RESRE6 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
«TI 



(SP)*.22(SP) 

(SP)*,22(SP) 

(SP)*.22(5P) 

(SP)*.22(SP) 

(SP)^.R5 

(SP)*.R4 

(SP)^.R3 

(SP)*,R2 

(SP)»,R1 

(SP)^.RO 



;;PUSH RO ON STACK 
;;PUSH R1 ON STACK 
;;PUSH R2 ON STACK 
;;PUSH R3 ON STACK 
;;PUSH R4 ON STACK 
.•.•PUSH R5 ON STACK 
;;SAVE PS Of MAIN FLOW 
;;SAVE PC OF MAIN FLOW 
;;SAV£ PS Of CALL 
;;SAVE PC Of CALL 



RE STORE PC OF call 
; .-RESTORE PS Of CALL 
; .-RESTORE PC Of MAIN FLOW 
; .-RESTORE PS Of MAIN FLOW 
;;POP STACK INTO R5 
;;POP STACK INTO R4 
;;POP STACK INTO R3 
:;POP STACK INTO R2 
;;POP STACK I.'^TO Rl 
;;O0P STACK INTO RO 



G 4 



• ' f rA:».0 .04.00 A-APR-81 01:15:S9 PAGE 58 



SEO 0?5^ 



.S8TTl binary to ASCII AND TYPE ROUTINE 



•THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 16-en 
•BINARY-ASCII NUMBER AND TYPE IT. 
•CA..L: 

.-NUMBER TO BE TYPf D 
;TYPE IT 



MOV 
TYP8N 



NUMBER. -(SP) 



06? 772 


010146 






$TYP8N: 


MOV 


Rl.-(SP) 
6(SP).R1 


062774 


016601 


000006 






MOV 


065000 


000261 








SEC 


*'0.$BIN 


065002 


112757 


000060 


065044 


1$: 


M0V8 


065010 


006101 








ROL 


Rl 


065012 


001406 








BEO 


2S 


065014 


105557 


065044 






ADC8 


$8IN 


065020 


104401 


065044 






TYPE 


.$8IN 


065024 


000241 








CLC 




0e5026 


000765 








BR 


IS 


065050 


012601 






21: 


MOV 


(SP)*.R1 


065052 


016666 


000002 


C00004 




MOV 


2(SP).4(SP) 


065040 


012616 








MOV 


(SP)*.(SP) 


065042 


000002 








RTI 


0.0 


06 <C44 


000 


000 




$8IN: 


.BYTE 



SAVE ftl ON THE STACK 
GET THE I^tf>UT NUMBER 

SET "C" SO CAN KEEP TRACK OF THE NUMBER Of BITS 
SET CHARACTER TO AN ASCII 'V. 
GET THIS BIT 
DONE? 

NO— SET THE CHARACTER EQUAL TO THIS BIT 
GO TYPE THIS BIT 

CLEAR "C" SO CAN KEEP TRACK OF BITS 
60 DO THE NEXT BIT 
POP THE STACK INTO Rl 
ADJUST THE STACK 



.•RETURN TO USER 
.•STORAGE FOR ASCII CHAR. 



AND TERMINATOR 



H <, 

« 'V • 5 HACRO v(K.OO 4-AP«)-e' 0':15:S9 PAGE 39 

• 'vpf fto<jT;NE 



.S8TTL CO^JVERT BINARY TO 0EC1I«IAl AND TvPE ROuTJNE 



.-•THIS ROUTINE IS USED TO CHANGE A 16-81 T BINARV NUMBER TO A S-DId'T 
.••SIGNED DECIinAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER Thf 
;*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE ' YPf D 
;*8EF0RE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILl ALWAYS Bf 
.••REPLACED WITH SPACES. 



.••CALL: 











9 * 


nuv 












• 

m 






























MDi/ 




vO .PV J\J 


fii ni /.A 








rnjv 














MOW 


RP -/CD) 


VJ'J J\J J*^ 










nuv 






010546 








MDV 




0^.3060 


01P746 


OPOPOO 






1 lUV 








VVVVt V 






nuv 




063070 


100004 








RPl 


It 


06307? 


00S40S 








"ML U 


PS 


06307A 


1 12766 


000055 

V V >/V^ 


000001 

VVWV P 




1 1 V V o 


#'-,1 (SP) 


0651 OP 


005000 






IS: 


W L ~ 


RO 

r\ V 


063104 

WSJ J P V"* 


01 ?703 


063P6P 

VU^C wc 






» tKJ w 


^ -vi/u c ^ « n 


0631 10 


* 1?7?3 


000040 






F IV wfJ 


#' (R3)f 


0631 K 


00500? 








fi R 


R2 


0631 16 


016001 


063252 






MOV 


tDTBL(RO) R1 


06312? 


160105 










Rl R5 


0631 ?4 


00?40? 








Rl T 


4S 


063126 


005?0? 










RP 


0631 30 


000774 








BR 




0631 32 


060105 






4$: 


ADD 


R1 R5 


063134 


005702 

\J\J J • VC 








T"sT 


RP 

r^c 


0631 36 


00100? 

VV P vvc 








RMF 

Uric 


5t 


0631 AO 


105716 








TSTH 


(SP) 


0631A? 


100407 








BMI 


7$ 


063 KA 


106316 






5$: 


A^l R 

C'J 


(SP) 


063K6 


103003 








Rf C 


6S 


0631 50 


1 16663 


000001 

WVVV 1 


1 77777 




MOVR 


1(SP) -1(R3) 


063156 


052702 


000060 

V V V VW V 






RIS 


M'O R? 

W V ^ " c 


063162 


052702 

V ✓C ' VC 


000040 

W V 




7$: 


BIS 


#• R? 


^63166 


110223 








M0V8 


R2,(R3)* 


063170 


005720 








TST 


(R0>* 


063172 


020027 


000010 






CMP 


R0.*10 


063176 


002746 








blt 


2S 


063200 


003002 








BGJ 


8S 


063202 


010502 








MOV 


R5.R2 


065204 


000764 








BR 


6t 


063206 


105726 






8S: 


TST8 


(SP) + 


063210 


100003 








BPL 


9$ 


063212 


116663 


1 77777 


W777t 




M0V8 


-1(SP).-2(R3) 


063220 


105013 






9S: 


CLR8 


(R3) 


063222 


012605 








MOV 


(SP)>.R5 


063224 


012603 








MOV 


(SP)«.R^ 


063226 


01 2602 








MOV 


(SP)*.R2 


063250 


012601 








MOV 


(SP)».R' 



;;PUT THE BINARY NUMBER ON THE STAfr 
.•;60 TO THE ROUTINE 



PUSH RO ON STACK 

PUSH Rl ON STACK 

PUSH R2 ON STACK 

PUSH R3 ON STACK 

PUSH R5 ON STACK 

SET BLANK SWITCH AND SIGN 

GET THE INPUT NUMBER 

8R IF INPUT IS POS. 

MAKE THE BINARY NUT-BER ^OS. 

MAKE THE ASCII NUMBER NEC. 

ZERO THE CONSTANTS INDEX 

SETUP THE OUTPUT POINTER 

SET THE FIRST CHARACTER TO A B' ANK 

CLEAR THE BCD NlMBEfi 

GET THE CONSTANT 

FORM THIS BCD DIGIT 

8R IF DONE 

INCREASE THE BCD DIGIT BY 1 

ADD BACK THE CONSTANT 

CHECK IF BCD DIGIT 0 

FALL THROUGH IF 0 

STILL DOING LEADING O'S? 

8R IF YES 

MSD? 

8R IF NO 

YES— SET THE SIGN 

MAKE THE BCD DIGIT ASCII 

MAKE IT A SPACE IF NOT ALREADY A DIGIT 

PUT THIS CHARACTER IN THE OUTPUT BUFFER 

JUST INCREMENTING 

CHECK THE TABLE INDEX 

GO DO THE NEXT DIGIT 

60 TO EXIT 

GET THE LSD 

GO CHANGE TO ASCII 

WAS THE LSD THE FIRST NON-ZEPO'> 

8R IF NO 

YES— SET THE SIGN FOR TYPING 

SET THE TERMINATOR 

POP STACK INTO R5 

POP STACK INTO R3 

POP STACK INTO R2 

POP STACK INTO Rl 



JWMfBC RMOS/3/2 FCTNL TST 3 
'UAfi' BIMARy TO DECI»1AL AND 



•UCPO V(K.00 
TYPE ROUTINE 



4-APP-81 01:15:S9 
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PAGE 



4 

39-1 



063232 012600 

063234 104A0I C63262 TvPE 

065240 016666 000002 000004 MOV 

063246 012616 «WV 

063250 000002 . «TJ ^ 

063252 023420 tDTBu 0000. 

063254 001750 1000. 

063256 000144 100. 

063260 000012 10. 
063262 SDBLK: .8LKW 



(SPJ^.RO 
ADBLK 

2(SP).4(SP) 
(SP)*.(SP; 



;;POP STACK INTO RO 
;;NOW TrPE THf NUMBER 
; .-ADJUST THE SMCK 

; .-RETURN TO USER 



J 4 

CZWOBO RM05/3/2 rC^Ni TST 3 MAC«0 V04.00 4-AP«-81 01:15:59 PAGE 40 
BINiARY TO OCTAl (ASCII) AND TvPE 

.SRTTL BINARY TO OCTAL (ASCII) AND TYPE 



063272 
063276 
06330A 
063310 
0633K 
063316 
063324 
063332 
063340 
063342 
063344 
063346 
06335? 
063354 
063360 
063364 
C63370 
063374 
063376 
063400 
063402 
063404 
063406 
063410 
063412 
063414 
063420 
063422 
063426 
063430 
063432 
063434 



017646 
116637 
112637 
062716 
000406 
112737 
112737 
112737 
010346 
010446 
010546 
1 1 3704 
005404 
062704 
110437 
113704 
016605 
005003 
006105 
000404 
006105 
006105 
006105 
010503 
006103 
105337 
100016 
042703 
001002 
005704 
001403 
005204 



•THIS ROUTINE IS USED TO CHANGE A 16-8IT BINARY NUMBER TO A 6-DIGIT 
•OCTAL (ASCII) NUMBER AND TYPE IT. 

•STYPOS ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS 10 TrPE 

•CALL: 

MOV \UM.-(SP> ;;NUf«ER TO BE TYPED 

• TYPOS ;;CALL FOR TYPEOUT 

.BYTE N ;;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

.BYTE M ;;M=1 OR 0 

;;1=TYP£ LEADING ZEROS 
;;0=SUPPRESS LEADING ZEROS 

•STYPON ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE lAST 

•tTYPOS OR STVPOC 
•CALc: 

MOV NUM.-(SP) .-.-NUMBER TO BE TYPED 

-yPON .-.-CALL FOR TVPEOUT 

•STYPOC ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

•CALL: 

• MOV NUM.-(SP) ; .-NUMBER TO BE TYPED 

• TYPOC ;;CALL FOR TYPEOliT 



000000 
000001 
063517 
000002 



063515 



000001 063515 
000006 063517 
000005 063514 



063517 



000006 
063516 
063515 
000012 



063516 
177770 



STYPOS: MOV a(SP).-(SP) 

M0V8 1(SP),$0FILL 

M0V8 (SP)*.$0M0DE*1 

ADD #2.(SP) 

BR STVPON 

STYPOC: M0V8 #1.S0F1LL 

novB 4r6,SOMODEM 

ITYPON: MGV8 #5.$0CNT 

MOV R3.-(SP) 

MOV R4.-(SP) 

MOV R5.-(SP) 

M0V8 $0MODE»1,R4 

NEC R4 

ADD *6,R4 

M0V8 R4.$OMO0E 

M0V8 $0FiLL,R4 

MOV 12(SP).R5 

CLR R3 

11: ROL R5 

BR 3S 

2$: ROL R5 

ROL R5 

ROL R5 

MOV R5.R3 

3S: ROL R3 

DECS $OMODE 

BPL 7$ 

8IC #1 77770. R3 

BNE 4$ 

TST R4 

BEQ 5$ 

4$: INC R4 



;; PICKUP THE MODE 
.-.-LOAD ZERO FILL SWITCH 
;;NU«ER OF DIGITS TO TYPE 
.-.-ADJUST RETURN ADDRESS 



;;SET THE 
;;SET FOR 
;;SET THE 
;;SAVE R3 
;;SAVE R4 
.-.-SAVE R5 
;;GET THE 



ZERO FILL SWITCH 
SIX(6) DIGITS 
ITERATION COUNT 



NUMBER OF DIGITS TO TYPE 



.-.-SUBTRACT IT FOR MAX ALLOWED 
.-.-SAVE IT FOR USE 
.-.-GET THE ZERO FILL SWITCH • 
; .-PICKUP THE INPUT NlfBER 
.-.-CLEAR THE OUTPUT WORD 
.-.-ROTATE MSB INTO "C" 
;;G0 DO MSB 
;.-FOR« THIS DIGIT 



.-.-GET LS8 OF THIS DIGIT 
;;TYPE THIS DIGIT? 
;;8R IF NO 
;;GET RID OF JUNK 
.-.-TEST FOR 0 
.-.-SUPPRESS THIS 0? 
. .gp jp YES 

•■DON'T SUPPRESS ANYMORE 0' 



-^Jft^O RM05/3/2 FCTNL TST 3 ^ACRO V04.00 4-APR-81 
'iINARY TC OCTAL (ASCII) AND TYPE 







UUUUOU 




P I c 




U5c '^U J 


U JUUhU 


<\C ■ 


Q 1 ^ 
C3 i J 




1 1 U J J f 


UO J J 1 c 






UO J** Jc 


\ UhhU I 


UO J J 1 c 




T VPP 


UO JH JO 


1 U? J Jf 

UU J ^H I 


UO J J 1 H 


' » • 




UO jhOc 






nr.T 


UO jhO** 








Rl T 


UO jhOO 


UUjcUh 






i niu 


UO JH f u 


\J\j\J f HH 






RR 
on 


UO f c 


U 1 cOU J 






rlU V 


UO JH 1 H 


U 1 cOUh 






MOW 


UO JH'O 


U 1 cOU J 






nu V 


UO jjUU 


U 1 OOOO 


\J\1\J\J\)C UUUUUH 






UO J jUO 


U 1 cO 1 o 








063510 


00000? 






RTI 


063512 


000 




8$: 


.8VTE 


063513 


000 






.8YTE 


0635U 


000 




$0CNT: 


.8YTE 


063515 


000 




SOFILL: 


.BYTE 


063516 


000000 




SOWODE : 


.WORD 



K 4 
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S£0 0?5?' 



*'0.R3 ;;MAKE THIS DIGIT ASCII 

*• ,P3 ;;MAKE ASCII IF NOT ALREADY 

R3,8$ ;;SAVE FOR TYPING 

.8$ ;;G0 TYPE THIS DIGIT 

SOCNT ;; COUNT BY 1 

2$ ;;8R IF MORE TO DO 

u$ ;;8R IF DONE 

R4 ;; INSURE LAST DIGIT ISN'T A BLANK 

2$ ;;G0 DO THE LAST DIGIT 

(S'-')*,R5 ;. -RESTORE R5 

(SP)+.R4 ;;RESTORE R4 

(SP)*,R3 ; .-RESTORE R3 

2(SP).4(SP) ;;SET THE STACK FOR RETURNING 

(SP)*,(SP) 

- -RE TURN 

0 ; -STORAGE FOR ASCII DIGIT 

0 ;;TERMI»^T0R FOR TYPC ROUTINE 

0 ;; OCTAL DIGIT COUNTER 

0 ;;ZERO FILL SWITCH 

0 ;.-NLJ>«ER OF DIGITS TO TYPE 



L 4 
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TYPE ROUTINE SEO 0?58 

.SeTFL TYPE ROUTINE 

•iROUTJNE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 
.••THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
;»N0TE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 

.••NOTE?: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

.••N0TE3: $F;lLC CONTAINS THE CHARACTER TO FILL AFTER. 

; » 

••CALL : 

.••1) USING A TRAP INSTRUCTION 

;• TYPE .MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 

.••OR 

;• TYPE 
;• MESADR 



U63520 


105737 


001173 




STYPE: 


TST8 


STPFLG 


;;IS THERE A TERMINAL? 


063524 


100002 








BPL 


IS 


;;8R IF VES 


C63526 


000000 








HALT 




;;HALT HERE IF NO TERMINAL 


063530 


000430 








BR 


3$ . 


;; LEAVE 


063532 


010046 






1$: 


MOV 


RO,-(SP) 


;;SAVE RO 


06353A 


01 7600 


000002 






MOV 


a2(SP),R0 


;.GET ADDRESS OF ASCIZ STRING 


0635A0 


122737 


000001 


.001242 




CMP8 


#APTENV.$ENV 


; .-RUNNING IN APT MODE 


063546 


001011 








BNE 


62S 


;;NO.GO CHECK FOR APT CONSOLE 


063550 


132737 


000100 


001243 




BITS 


#APT SPOOL. SENVM 


;; SPOOL MESSAGE TO APT 


063556 


001405 








BEQ 


62S 


;;N0.60 CHECK FOR CONSOLE 


063560 


010037 


063570 






MOV 


R0.61S 


; .-SETUP MESSAGE ADDRESS FOR APT 


063564 


004737 


070166 






JSR 


PC.$ATV3 


.-.-SPOOL MESSAGE TO APT 


063570 


000000 






61 S: 


.WORD 


0 


; .-MESSAGE ADDRESS 


063572 


132737 


000040 


001243 


62S: 


BITS 


#APTC SUP. SENVM 


;;APT CONSOLE SUPPRESSED 


063600 


001003 








BNE 


60S 


.-.YES.SKJP TYPE OUT 


063602 


112046 






2$: 


M0V8 


(R0)*.-(SP) 


.-.-PUSH CHARACTER TO BE TYPED ONTO STACK 
;.-8R IF IT ISN'T THE 'TERMINATOR 


063604 


001005 








BNE 


4S 


063606 


005726 








TST 


CSP)* 


.-.-IF TERMINATOR POP IT OFF THE STACK 


063610 


012600 






60$: 


MOV 


(SP)*,RO 


; .-RESTORE RO 


063612 


062716 


000002 




3$: 


ADD 


#2.(SP) 


.-.ADJUST RETURN PC 


063616 


000002 








RTI 




..RETURN 


063620 


122716 


00001 1 




4$: 


CMP8 


*HT.CSP) 


.-.-BRANCH IF <HT> 


063624 


001430 








BEQ 


8S 




063626 


122716 


000200 






CMpe 


#CfiLF,(SP) 


.-.•BRANCH IF NOT <CRLF> 


C63632 


001006 








BNE 


5S 




063634 


005726 








TST 


(sp;* 


;;POP <CR><LF> EOUIV 


063636 


104401 








TYPE 




;;TYPE A CR AND LF 


063640 


001217 








SCRLF 






063642 


105037 


064050 






CLRB 


SCHARCNT 


;; CLEAR CHARACTER COUNT 


063646 


000755 








BR 


2S 


.-.-GET NEXT CHARACTER 


063650 


004737 


063732 




5$: 


JSR 


PC.STVPEC 


;;G0 TYPE THIS CHARACTER 


063654 


123726 


001172 




6$: 


CMP8 


SF1LLC,(SP)* 


.-.-IS IT TIME FOR FILLER CHARS. ^ 


063660 


001 350 








BNE 


2S 


.•;IF NO GO GET NEXT CHAR. 


063662 


013746 


001170 






MOV 


SNULL. -(SP) 


.•;GET # OF FILLER CHARS. NEEDED 
;;AND THE NULL CHAR. 


065666 


105366 


000001 




7$: 


DEC8 


KSP) 


;;DOES A NULL NEED TO BE TYPED? 


063672 


002770 








BLT 


6S 


;;8R IF NO— GO POP THE NULL OFF OF S'ACK 


063674 


004737 


063732 






JSR 


PC.STYPEC 


;;G0 TYPE A NULL 


063700 


105337 


064050 






DEC8 


SCHARCNT 


;;D0 NOT COUNT AS A COUNT 


063704 


000770 








BR 


7$ 


;;LOOP 



M 4 

CZRMCBO RM05/V2 fCTML TST 3 MACHO V04.00 4-APR-81 01:15:59 PAGE 41 
TYPE ROUTINE 



.•HORIZONTAL TAS PROCESSOR 



\Jt5f\X> 


1 1 ^71 


UOOU*iU 




oc . 
o>: 


novo 


* .ISP; 




f\f\/ 777 


AX 7 77^ 

063''3c 








PC.STYPEC 


Un5f\o 
0o3r <r4 


1 7*5777 


AAAAA7 
00000' 


AX/ ACA 

U6*i030 




D I TO 

Di la 




(V\1 77^ 










□c 

7» 


Ob 5 f do 


003 ' CO 








T C T 

TST 


/ CD \ .A. 


\jt5f5U 


000 










c> 










ft T WDC r • 

• 1 rPt C : 










1 1 

1 1 5^«fC 






T C TP 






lOOOcc 








DDI 

orL 


1 AC 

1 05 


Uo3f 


01 7746 


1 1 ^51 A 






nuv 


aCT^Q _/rD\ 
1 NO , ~ I jr ; 

*1 77Ann t^O\ 






1 77Ann 

1 f fO\J\J 






Q I r 
Oi (. 




1 CC r 1 O 


AAAAT7 

'JOOOc 3 








ifC vnr c 1 CD \ 


nA77^A 


AA1 ni 5 










1 n^c 










inic • 






Uo3r jO 


1 nC 777 


11^1 7A 






T C TD 




(V>77/lv5 


if>n77^ 








QDI 

OrL 


1 ni * 




1 1 771 A 


11^17? 












nA371 A 

1 5?71 A 
1 Cc f 1 O 


1 7 7 Ann 






Q I r 


#177Ann t^O\ 


fV>777^ 














nni 7AA 

UU 1 jOO 








QMP 


ini * 


UO*«UUc 
















no*; 75 A 








1 O 1 












inc> 








10^777 


11^1^^ 

1 1 J 1 3h 






TCTft 
P J 1 0 






1 \J\J J' J 








DPI 


1 nt 


UCtU 1 C 


1 1 AA77 


UUUUUc 


1 1 «; 1 AA 




nova 


5/CD) aCTPQ 






000015 


00000? 




CMP8 




064026 


001003 








BNE 


1S 


064030 


105037 


064050 






CLR8 


SCHARCNT 


064034 


000406 








BR 


STVPEX 


064036 


122766 


000012 


000002 


1$: 


CliPS 


#LF.2(SP) 


064044 


001402 








BEO 


STVPEX 


064046 


105227 








INC8 


(PC)* 


064050 


000000 






SCHARCNTr.UORD 


0 


064052 


000207 






$TVP£X: 


RTS 


PC 



.•REPLACE TAB WJTh SPACE 
;TYPE A SPACE 
.•BRANCH IF NOT AT 
;TAB STOP 

;POP SPACE OFF STACK 
;GET NEXT CHARACTER 

;CHAR IN KVBD BUFFER? 
;BR IF NOT 
.-GET CHAR 

.STRIP EXTRANEOUS BITS 
.-WAS CHAR XOFF 
;8R IF NOT 

.-WAIT FOR CHAR 

.-GET CHAR 
.•STRIP IT 
.■WAS IT XON? 
;8R IF NOT 

;FIX STACK 

.-WAIT UNTIL PRINTER IS RFADV 

.•LOAD CHAR TO BE TrPED INTO DAM REG. 
;IS CHARACTER A CARRIAGE RETURN? 
.•BRANCH IF NO 

;YES— CLEAR CHARACTER COUNT 
;EXIT 

;IS CHARACTER A LINE FEED? 
.•BRANCH IF YES 
.COUNT THE CHARACTER 
.•CHARACTER COUNT STORAGE 



SCOF'E HANDLER ROuriVE 
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SCO 0260 



.S8TTL SCOPE HANDLER ROUTINE 



I L 



•THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT Wl 

•AND LOAD THE TEST NUMBER ($TST^«) INTO THE DISPLAY REG 

•AND LOAD THE ERROR FLAG (SERFLG) INTO DI SPLAY<1 5 :08> 
•THE SyJTCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
•SWT 4=1 LOOP ON TEST 

•SW11=1 INHIBIT ITERATIONS 

•SU09=1 LOOP ON ERROR 

•SU08-1 LOOP ON TEST IN SWR<7:0> 

•CALL 

• SCOPE ;;SCOPE-IOT 



INCREMENT 
(DISPLAY<7:0>) 



f\t.l AC/ 








SSCOPE : 




UO*»Uj*« 


1 nz. A 1 








CKSWr 


UohU>o 


AAZ 777 


AAAAI 5 

Uo*»o ' C 






JSR 


Uo*»UOc 


r»Z5777 


A/ A AAA 

U4UUUU 


1 1 ^AAZ 


1$: 


BIT 




AAI / AO 

UU14Uc 








BEQ 




AAA1 T7 


AA AQ55 
UOH5CC 






JMP 


UO*tUf O 








9$: 












i/t/t/t/t/tSTARl ( 


UOMVf 0 


UUU*» 1 o 






SXTSTR: 


BR 


UOH 1 uu 


A1 77AA 


UUUUU*» 






MOV 


A/L / 1 A/ 

UO*» 1 u** 


ni 5777 

U 1 Cf Jf 


AAA1 5 A 
UOm I c** 


AnnonA 

UUUUUm 




MOV 


UOH 1 1 C 


nns777 


1 77nAn 






TST 




A1 5A77 


UvvUUm 






MOV 


n<LA 155 

ue>H 1 cc 


UUU50 1 








BR 


Cit^L 1 5A 
UO*» 1 C*» 


UccOcO 






5$: 


CMP 


Uo** 1 CO 


ni 3A77 


uuuuu«» 






MOV 


f\t^L 1 T5 


UUU5C 1 








BR 










6$:;/y##/y#END 




(175777 


UUUmUU 


1 1 ^ini 5 




BIT 


nAz. 1 z. 5 


nni Z.51 








BEQ 


nAZ. 1 LL 










CLR 


AAA 1 Z.A 


1 1 771 A 

1 1 f f 1 O 


1 1 ^AAO 






M0V8 


0641 5? 


001414 








6E0 


064154 


022716 


000025 






CMP 


064160 


002411 








BLT 


064162 


011637 


001116 






MOV 


C64166 


005316 








DEC 


064170 


006316 








ASL 


064172 


062716 


064540 






ADD 


064176 


013637 


001122 






MOV 


064202 


000547 








BR 


064204 


005726 






8$: 


TST 


064206 


105737 


001 1 1 7 




21: 


TST8 


064212 


001502 








BEQ 


064214 


022737 


1 77777 


065230 




CMP 


064222 


001455 








BEQ 


064224 


013746 


000004 






flOV 


064250 


012737 


064246 


000004 




MOV 


064256 


013737 


177766 


065230 




MOV 


064244 


000406 








BR 


064246 


012737 


\77?77 


065230 


2000$: 


MOV 


064254 


012716 








MOV 



PC. STOP 
«8IT14,aSWR 
9$ 

SOVER 

CODE FOR THE XOR 
6$ 

*>ERRVEC,-(SP) 

#5$,a*ERRVEC 

a^l 77060 

{SPn,a#ERRVEC 

SSVLAD 

(SP)+.(SP)* 

(SP)*.a«RRVEC 

7$ 

■ CODE FOR THE XOR 
*8IT08,aSWR 
2$ 

-(SP) 

aswR,(SP) 

8$ 

»25.(SP) 
8$ 

(SP).$TSTNM 

(SP) 
(SP) 

/y$SW08TBL,(SP) 

a(SP)+.$LPADR 

SOVER 

(SP) + 

SERFLG 

3$ 

#-1.CPSAVE 
2003$ 

ERRVEC.-(SP) 
#2000S.ERRVEC 
1 77766. CPSAVE 
2001 S 
#-1. CPSAVE 
#2001S.(SP) 



;;TEST FOR CHANGE IN SOFT-SWR 

;;LOOP ON PRESENT TEST? 
;;N0 IF SU14=0 
.-.•JUMP OVER SCOPE ROUTINE 



TESTER^^^^^ 

IF RUNNING ON THE "XOR" TESTER CHANGE 
THIS INSTRUCTION TO A 'MOP" (NOP=240) 
SAVE THE CONTENTS OF THE ERROR VECTOR 
SET FOR TIMEOUT 
TIME OUT ON XOR? 
RESTORE THE ERROR VECTOR 
GO TO THE NEXT TEST 
CLEAR THE STACK AFTER A TIME OUT 
RESTORE THE ERROR VECTOR 
LOOP ON THE PRESENT TEST 
TESTER*#^^# 
LOOP ON SPEC. TEST? 
8R IF NO 

CLEAR A TEMP. LOCATION 
PICKUP THE DESIRED TEST NUMBER 
BRANCH IF BAD TEST NUMBER IN SWR 
CHECK THE NUMBER IN THE SWR 
BRANCH IF TEST NUMBER IS OU^ OF RANGE 
UPDATE THE TEST NUMBER 
BACKUP BY ONE 

SCALE THE TEST NUMBER AS AN INDEX 
FORM THE ADDRESS OF TEST POINTER 
SET LOOP ADDRESS TO DESIRED TEST 
GO LOOP ON THE TEST 

CLEAN THE BAD TEST NUMBER OFF OF THE STACK 
HAS AN ERROR OCCURRED? 
BR IF NO 

SEE IF TIMFOUT WAS PREVIOUSLY RECORDED 
KICK AROUND ROUlINfc IF SO 
SAVE CONTENTS OF ERROR VECTOR 
SETUP 'TRAP' RETURN ADDRESS 
MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 

SET CPU ERROR REGISTER TIMEOUT INDICATOR 
SETUP. .RETURN ADDRESS 
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064260 


000002 






064262 


012637 


^/ 00004 




064266 


022737 


1 f riff 


A^C O^A 


06A27A 


001430 






064276 


032737 


OOvOO 1 


AAC j7A 


064 304 


001424 






064306 


042737 


f\f\f\f\f\ 1 

UuOlHJ 1 


1 7 77AA 
1 f f r 00 


064314 


013746 


icy 

001 1 54 




064320 


017646 


000000 




064324 


012737 


0001 


AA1 icy 

00 1 1 j4 


064332 


011677 


1 IhO 16 




064336 


042777 


AA1 AAA 
00 1 000 


1 1 y A 1 A 


064344 


104177 






064346 


012676 


AAAAAA 




064352 


012637 


AA1 1 cy 




064356 








064356 


123737 




AA1 117 

UU 1 1 r 


064 ?64 


101015 






C64366 


032777 


AA1 AAA 


1 1 Z. ^AH 
1 1 •» jOU 


064374 


001404 






064376 


013737 


AA1 1 5y 


UU 1 1 


064404 


000446 






064406 


105037 


AA 1117 




064412 


005037 


AA 1 TAZ 

UU 1 <:Uo 




064416 


000415 






064420 


032777 


AAy AAA 

UUh UUU 


1 1 / c 


064426 


001 on 






064430 


005737 


UU 1 c jU 




064434 


001406 






064436 


005237 


nni 1 ^A 
UU 1 1 c.\j 




064442 


023737 


AAI ~>t\t^ 
UU I cUo 


AA1 1 DA 

UU I 1 cU 


064450 


002024 






064452 


012737 


UUUUU 1 


AA1 1 5 A 
UU 1 l^U 


064460 


013737 


Ail/ 

UO** J JO 


AA1 3AA 

UU 1 dUo 


064466 


1C5237 


Ani 1 1 A 
UU 1 1 1 0 




064472 


1 1 3737 


AA 1 1 A 
UU M 1 0 


nni 3 DA 
UU 1 crc 


064500 


011637 


AA1 1 




064504 


011637 


AA1 1 "JL 
UUI ICH 




064510 


005037 


AA 1 5 1 A 
UU 1 c 1 U 




064514 


112737 


A A AAA 1 

UUUUU 1 


AA1 171 

UU 1 1 J 1 


064522 


013777 


AA1 1 1 A 

UU 1 M 6 


1 1 y y 3A 


064530 


013716 


AA1 1 50 

UU 11 




064534 


000002 






064 '=56 


000005 






064540 










000025 






064540 


010070 






064542 


010270 






064544 


011276 






064546 


012254 






06/. 5 50 


013450 






064552 


014456 






064554 


015434 






064556 


016632 






064560 


01 7636 






064562 


02106? 







2001$: 
2002$- 



2005$: 



7$: 



4$: 



3$: 



1$: 

$SVLAD: 



$0VER: 



$WXCNT; 



RTI 
MOV 

CMP 
BEQ 
BIT 
BEQ 
BIC 
MOV 
MOV 
MOV 
MOV 
BIC 
EMT 
MOV 
MOV 

CMP8 

BHI 

BIT 

BEQ 

MOV 

BR 

CLR8 

CLR 

BR 

BIT 

BNE 

TST 

BEQ 

INC 

CMP 

BGE 

MOV 

MOV 

INC8 

M0V8 

MOV 

MOV 

CLR 

M0V8 

MO^ 

MOV 

RTI 

5. 



$SW08T8L: 

.REPT $TN-1 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
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(SP)».ERRVEC 

#-1 .CPSAVE 
200h 

#81 TOO. CPSAVE 
2003$ 

#81 TOO. 177766 

SWR.-(SP) 

a(3P).-(SP) 

#176.SWR 

(SP),aSWR 

#8IT09.aSWR 

177 

(SP)+.a(SP) 
(SP)+.3WR 

$ERMAX.$ERFLG 
3$ 

#8IT09.aSWR 
4$ 

$LPERR.$LPADR 

$OVER 

$ERFLG 

$TIMES 

1$ 

#8nii .aswR 
1$ 

$PASS 

1$ 

$ICNT 

$TIMES.$ICNT 

$OVER 

#1.$ICNT 

$WXCNT,$TIMES 

$TS(fy« 

$TSTNM.$TESTN 

(SO).$LPADR 

(SP).$LPERR 

$E SCAPE 

#1.$ERMAX 

$TSTNM,aDISPLAY 

$LPADR.(SP) 



; .-RESTORE CONTENTS OF ERROR VECTOR 

SEE If CPSAVE HAS CPU ERR REG TIMEOU^ INDICATION 
BRANCH IF SO 

SEE IF THE POWER MONITOR BIT IS ON 
8RANCH TO CONTINUE ROUTINE IF CLEAR 
CLEAR THE BIT FOUND TO BE SET 
SAVE SWR ADDRESS 
SAVE SWR VALUE 
GET SOFTWARE SWR ADDRESS 
GET CURRENT SWR VALUE 
;;DON'T ALLOW LOOP ON ERROR ON ^HIS ERROR 
;/CALL SPECIAL POWER FAR BIT ERROR CALL 
;jlRE STORE SWR TO ORIGINAL VALUE 
;|(RESTORE SWR ADDRESS 

MAX. ERRORS FOR THIS TEST OCCURRED? 
8R IF NO 
LOOP ON ERROR? 
8R IF NO 

SET LOOP ADDRESS TO LAST SCOPE 



ZERO THE ERROR FLAG 

CLEAR THE NUMBER OF ITERATIONS TO MAKE 
ESCAPE TO THE NEXT TEST 
INHIBIT ITERATIONS? 
8R IF YES 

IF FIRST PASS OF PROGRAM 
INHIBIT ITERATIONS 
INCREMENT ITERATION COUNT 
CHECK THE NUMBER OF ITERATIONS MADE 
8R IF MORE ITERATION REQUIRED 
REINITIALIZE THE ITERATION COUNTER 
SET NUMBER OF ITERATIONS TO DO 
COUNT TEST NlfBERS 
SET TEST NUMBER IN APT MAILBOX 
SAVE SCOPE LOOP ADDRESS 
SAVE ERROR LOOP ADDRESS 
CLEAR THE ESCAPE FROM ERROR ADDRESS 
ONI Y ALLOW ONE(I) ERROR ON NEXT TEST 
DISPLAY TEST NUMBER 
FUDGE RETURN ADDRESS 
FIXES PS 

MAX. NUMBER OF ITERATIONS 



TST1*2 

TST2+2 

TST3*2 

TST4*2 

TST5+2 

TST6+2 

TST7+2 

TST10*2 

TST1U2 

TST12+2 



STARTING 
STARTING 
STARTING 
STARTING 
STARTING 
STARTING 
STARTING 
STARTING 
STARTING 
STARTING 



ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 



TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEbT 
TEST 



1 
2 
3 
4 
5 
6 
^ 

10 
11 
12 
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06A56A 
06A566 
06^570 
06A572 
064574 
064576 
064600 
064602 
064604 
064606 
064610 

2 
3 
4 

5 064612 
064612 
064616 
064622 
064624 

6 
7 
8 

9 064624 
064630 
064654 
064636 
^0 064636 



022270 
025312 
025160 
026564 
027604 
030522 
031 560 
032564 
033572 
054600 
055626 



012746 0001 40 
012746 064624 
000002 



012746 000240 
0127^6 064656 
000002 

000207 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



TST13*2 
TST14*2 
TST15*2 
TS'16*2 
TST17+2 
TST20+2 
TST21*2 
TST22*2 
TST25*2 
TS724+2 
TST25*2 



STARTING 
STARTING 
STARTING 
STARTING 
STARTING 
STARTING 
STARTING 
STARTING 
STARTING 
STARTING 
STARTING 



ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 



TEST 
TEST 
TF*-. 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 



13 
14 
15 
16 
17 
20 
21 
22 
23 
24 
25 



;DR0P PRIORI Tr TO ALLOW CONSOLE INTERRUPT 
STOP: 



64S: 



MOV 
MOV 
RTI 



/rPR3,-(SP) 
*64$.-(SP) 



PUT NEW PS ON STACK 
PUT NEW PC ON STACK 
POP NEW PC AND PS 



.•RAISE PRIORITY TO INHIBIT CONSOLE INTERRUPT 



65$: 



MOV 
MOV 
RTI 

RTS 



♦PR5.-(SP) 
#65$. -(SP) 



PC 



PUT NEW PS ON STACK 
PUT NEW PC ON STACK 
POP NEW PC AND PS 



.•RETURN 
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.S8TTl error HANDLER ROUTINE 



S€0 0261 



•THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT. 
•SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
•AND GO TO ERRTYP ON ERROR 

•THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

*SW15=1 HALT ON ERROR 

•SW13=1 INHIBIT ERROR TYPEOUTS 

•SW10=1 BELL ON ERROR 

•SW09=1 LOOP ON ERROR 

•CALL 

• ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 



0646AO 


105037 


065232 




SERROR: 


CLR8 


IBSAVE 


C6A6AA 


104410 








CKSUR 






105237 


001117 




7$: 


INC8 


$ERFLG 


066652 


001? 75 








BEQ 


7$ 


06A65A 


013777 


001116 


114274 




MOV 


STSTNM.aDISPLAY 


C66S62 


032777 


002000 


114264 




BIT 


«8IT10,SSWR 


064670 


001402 








BEO 


1$ 


06A672 


104401 


001212 






TYPE 


.$8ELL 


06A676 


005237 


001126 




1$: 


INC 


$ERTTL 




01 \o5f 


Am 1 TO 
UU 1 1 5d 






nuv 


vor^ ,»tnKrl. 


064706 


162737 


000002 


001132 




SUB 


#2,$ERRPC 


064714 


117737 


114212 


001 1 30 




M0V8 


a$ERRPC.$ITEMB 


064722 


032777 


001000 


114224 




BIT 


#8iT09,aSWR 


064730 


001060 








BNE 


1004$ 


064732 


122737 


0001 77 


001 1 30 




CMP8 


#1 77. $ITEMB 


064740 


001454 








BEO 


1004$ 


064742 


105737 


065232 






TST8 


leSAVE 


064 746 


001047 








BNE 


1003$ 






1 77777 


uo5<:jU 






\ * L "5 Ave 


064756 


001445 








BEO 


1004$ 


064760 


013746 


000004 






MOV 


ERRVEC.-(SP) 


064764 


012737 


065002 


000004 




MOV 


#1000$.ERRVEC 


064772 


013737 


177766 


065230 




MOV 


1 77766. CPSAVE 


065000 


000406 








BR 


1001$ 


065002 


012737 


\77777 


065230 


1000$: 


MOV 


#-1 .CPSAVE 


065010 


012716 


065016 






MOV 


*1001$.(SP) 


065014 


000002 








RTI 




065016 


012637 


000004 




1001$: 


MOV 


(SP)*.ERRV£C 


065022 


022737 


\77777 


065230 


1002$: 


U*P 


*-1.CPSAVE 


065030 


001420 








BEO 


1004$ 


065032 


032737 


000001 


065230 




BIT 


#8IT0O.CPSAVE 


065040 


001414 








BEQ 


1004$ 


065042 


042737 


000001 


177766 




BIC 


*8I TOO, 177766 


065050 


113737 


001130 


065232 




MOVB 


$ITEMB, IBSAVE 


065056 


112737 


000177 


001130 




MOVB 


#1 77. $ITEMB 


065064 


000402 








BR 


1004$ 


065066 


105037 


065232 




1003$: 


CLR8 


J8SAVE 


065072 








1004$: 






065072 


032777 


020000 


114054 




BIT 


/irBIT13.aSWR 


065100 


001004 








BNE 


20$ 


065102 


004737 


065234 






JSR 


PC. ERRTYP 



CLEAR THE ITEM BYTE SAVE LOCATION 

TEST FOR CHANGE IN SQFT-SWR 

SET THE ERROR FLAG 

DON'T LET THE FLAG GO TO ZERO 

DISPLAY TEST NUMBER AND ERROR FLAG 

BELL ON ERROR? 

NO - SKIP 

RING BELL 

COUNT THE rgUMBER OF ERRORS 

GET ADDRESS OF ERROR INSTRUCTION 

STRIP AND SAVE THE ERROR ITEM CODE 
SEE IF LOOP ON ERROR IS SET 
BRANCH AROUND ROUTINE IF SO 
SEE IF THIS IS THE POWER FAIL CALL 
BRANCH AROUND ROUTINE IF IT IS 

SEE IF THIS IS THE 2ND ERROR CALL IN THIS ROUT INF 
BRANCH IF SO 

SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
BRANCH IF SO 

SAVE CONTENTS OF ERROR VECTOR 

SETUP 'TRAP* RETURN ADDRESS 

MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 



;;SET CPU ERROR REGISTER TIMEOUT INDICATOR 
;; SETUP RETURN ADDRESS 

; .-RESTORE CONTENTS OF ERROR VECTOR 

SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
BRANCH IF SO 

SEE IF POWER MONITOR BIT IS SET IN CPU ERR REG 
BRANCH IF OK 
CLEAR THE BIT FOUND SET 
MAKE leSAVE NON-ZERO FOR DUAL ERROR CALL 
SET $ITEMB TO SPECIAL POWER FAIL POINTER 
BRANCH OVER IBSAVE CLEARING 

;; CLEAR IBSAVE SO 2ND TIME THROUGH EXITS 

SKIP TYPEOUT IF SET 
SKIP TYPEOUTS 
GO TO USER ERROR ROUTINE 
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065106 


104401 


W 1 c * 


065112 






065112 


122737 




065120 


001007 




065122 


113737 




065150 


004737 


0701 7ts 


065134 


000 




065155 


000 




065136 


000777 




065140 


105737 


0/kS?^P 
\JO jc jc 


065K4 


001005 




065U6 


005777 


1 1 /.nop 


065152 


100002 




065154 


000000 




065^56 


104410 




065160 






065160 


032777 


001000 


065166 


001402 




065170 


013716 


001 1 PL 


065174 


005737 


0C1P10 

VV I C * V 


065200 


001402 




065202 


013716 


001P10 

VV 1 C. > V 


065206 






065206 


022737 


037242 
V J ' etc 


065214 


001001 




065216 


000000 




065220 






065220 


105737 


OA523? 


065224 


001210 




065226 


000002 




065230 


000000 




065232 


000000 
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SEO 0264 



065154 



115706 



000042 





TypF 


ICRLF 


C.\J9 - 










•yAPTFN\/ iFNV 






21 






tITEMB 21S 




JSR 


PC,SATV4 


Pit- 


nv TF 


0 




.BVTE 


c 


c C # • 


BR 


22$ 


?%• 


TSia 


ISSAVE 






3$ 




TST 


aswR 




BPL 


3S 




HAL T 






CKSUR 












BI T 


#8IT09.aSMlR 




BEO 


4$ 




MOV 


$LPERR, (SP) 


4t: 


TST 


$ESCAPE 




BEQ 


5$ 




nov 


$ESCAPE,(SP) 










CMP 


#$ENDAD,d«42 




6NE 


6$ 




HALT 




6S: 








TST8 


I8SAVE 




BNE 


7$ 




RTI 




CPSAVE: 


.WORD 


0 


I8SAVE ; 


.WORD 


0 



RUNNING IN APT *10DE 

NO. SKIP APT ERROR REPORT 

SET ITEM NUMBER AS ERROR NUMBER 

REPORT FATAL ERROR TO A^T 



;APT ERROR LOOP 

;SEE IF I8SAVE IS LOADED 

;8RANCH IF NOT - NO HALT m PWR MON BIT ERROR 

;HALT ON ERROf^ 

.-SKIP IF CONTINUE 

;HALT ON ERROR. 

;TEST FOR CHANGE IN SOFT-SWR 

.-LOOP ON ERROR SWITCH SET? 
;8P IF NO 

.•FUDGE RETURN FOR LOOPING 
.•CHECK FOR AN ESCAPE ADDRESS 

* 8R I F NONE 

; FUDGE RETURN ADDRESS FOR ESCAPE 

;ACT-11 AUTO-ACCEPT? 
; BRANCH IF NO 
;YES 

;SEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL 
.-BRANCH BACK TO CALL ORIGINAL ERROR 

* RE TURN 

;LOCATION TO SAVE CPU ERROR REG CONTENTS 
.•LOCATION TO SAVE ITEM BYTE 



5 

6 
7 

8 

9 

'0 
11 

1^ 

13 065^34 
'4 0652% 
15 065244 
't 065246 

17 
18 
19 

20 C65252 
?1 065256 
22 065262 
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104414 

032777 020000 115710 
001402 

000137 066074 



065266 
065270 
065271 

?i 
24 

25 065272 

26 065276 

27 065302 

28 065306 

29 065314 

30 065320 
31 

32 065322 

33 065330 
54 065334 

35 

36 065336 

37 065344 

38 065 350 

39 065352 
-.0 065356 
41 065360 
42 

43 

44 065362 

45 065366 

46 065374 

47 065400 

065404 
065406 
065407 

48 065410 

49 065414 



104401 
104401 
O"" 3746 

104403 
003 
000 



013700 
016000 
042700 
U12737 
022700 
001414 

012737 
022700 
001406 

012737 
022700 
001004 
104401 
104401 
000000 



005037 
013737 
104401 
013746 

104403 
003 
000 
005037 
113737 



001217 
066110 
001234 



001276 
000026 
1 77740 
071453 
000024 



071446 
000025 



071460 
000027 

066145 



066100 
001226 
0661 1 5 
066100 



066102 
001 13C 



065 56C 
065360 
065360 



.SflTTL ERROR TYPEOUT ROUTINE 

•THE ERROR TvPEOUr ROUTINE ASSEIi3LES AND PRINTS INFORI^TION 
•REGARDING THE DETECTION OF AN ERROR AS FOLLOWS: 

.UNIT NCfCER, f>RIVE TYPE. TEST NUMBER. ERROR NUMBER AND 
•PROGRAM COUNTER ARE P.^INTED ON THE FIRST LINE; 

.ERROR MESSAGE IS ASSEMBLED. FORMATTED AND PRINTED ON 
•ONE OR MORE SUCCEEDING LINES; 

.PAIRED LINES OF ERROR HEADERS AND ERROR DATA ARE PRINTED 
•AFTER THE ERROR MESSAGE. 



ERRTYP: 



SAVREG 
BIT 
BEO 
JMP 



#SUl3.aSWR 

1$ 

27$ 



INHIBIT 
NO. . 
YES! . 



TYPEOUTS? 



;TYPE UNIT NUMBER. DRIVE TYPE, ^EST NUMBER. ERROR NUMBER. AND 
; PROGRAM COUNTER 



1$: 



TYPE 
TYPE 
MOV 



.SCRLF 
.ERTYOO 
$UNIT.-(SP) 



TYPOS 
.BYTE 3 
.BYTE 0 



TYPE "DRV*" 

;SAVfc SUNIT FOR TYPEOUT 
;TYPE DRIVE WJiBER 
;60 TYPE— OCTAL ASCII 
;TYPE 3 DIGIT(S) 
; SUPPRESS LEADING ZEROS 



;TVPt 'DRIVE TYPE* RM05. RM03 OR RM02 FOR UNIT UNDER TEST 

;6ET RM BASE ADDRESS 
;6ET DRIVE TYPE REGISTER 
:SAVE DRIVE TYPE BITS AND 
;GET ASCII DRIVE TYPE 
IS DEVICE AN RM03 ? 

;YES 

SAVE ASCII DRIVE TYPE 
IS DEVICE AN RM02 ? 
/ES !.' 

SAVE ASCII DRIVE TYPE 
IS DEVICE AN RM05 ? 
NO !.' 

TYPE " - " 
TYPE DRIVE TYPE 

DRIVE TYPE MESSAGE IS STORED HERE 



066100 



2$: 

3S: 

;TYPE 
4$: 



MCV 


SBASE.RO 


MOV 


RMDT(RO).RO 


BIC 


*177740.R0 


MOV 


#JRM03.3$ 


CMP 


#24. RO 


BEQ 


2$ 


MOV 


#JRM02.5$ 


CMP 


#25. RO 


BEO 


2S 


MOV 


#$RM05.3$ 


CMP 


#27. RO 


BNE 


4$ 


TYPE 


.ERTY05 


TYPE 


.b^RD 


0 



TEST NUMBER. ERROR NUMBER AND PROGRAM COUNTER 



G66'C2 



CLR TSTNMB 

MOV $TESTN. TSTNMB 

YPE .ertyoi 

MOV TSTNMB. -fSP) 

TYPOS 

.BYTE 3 

.BYTE 0 

CLR ERRNM6 

Move $JTEMB.Ff'«NMb 



LOAD TEST NUMBER FOR 
TYPE "TST#" 

;SAVE TSTNMB FOR TyPEOUT 

;TYPE TEST NUMBER 

;G0 TYPE— OCTAL ASCII 

;TYPE 3 DIGIT(S) 

; SUPPRESS LEADING ZEROS 

LOAD ERROR NUMBER FOR 

TYPEOUT 



fRKbf^ T*PEOUT ROUTINE 



6 5 
'S-b9 PAGE ^^-1 



5C 065422 
5- 065424 
5? 065430 

065454 
065456 
065457 

53 065440 

54 065444 

065450 
065452 
065455 

55 
56 

57 065454 

58 065460 

59 065462 
60 

61 C65466 

62 065472 

63 065476 

64 065502 

65 065506 

66 065512 

67 065514 

68 065520 

69 065522 

70 065':24 

71 065526 
/2 065550 
/3 065534 
74 

75 065556 

76 
77 

78 065540 

79 065542 

80 065544 

81 065550 

82 065554 
85 065556 
34 065560 

85 065564 

86 065566 

87 065572 

88 065574 

89 065600 

90 065602 

91 065606 

92 065610 

93 065614 

94 065622 

95 065624 

96 065626 

97 065652 
^8 065656 



001406 
104401 
015746 

104405 
005 
000 
104401 
015746 

104405 
006 
001 



005757 
001002 
000157 

104401 
105057 
105057 
015700 
122700 
001005 
012700 
000405 
006500 
006500 
006500 
062700 
011001 

00150^ 



012102 
001505 
010257 
005057 
112205 
001454 
122705 
001005 
105037 
000770 
122703 
001 765 
122705 
001007 
05257 
152737 
001572 
000407 
105257 
122^05 
001002 



C66125 
066102 



066154 
001152 



066102 

066074 

0C1217 
066106 
066107 
066102 
0001 77 

0661 52 



001572 



065712 
066104 



00001 5 

066107 

000012 

00001 1 

066107 
000007 



066107 
000040 



5$: 



85 Q 

TYPE 

MOV 

TYPOS 

.8VTE 

.8YTE 

TYPE 

MOV 

TYPOS 
.8YTE 
.8YTE 



5S 

.ERTY02 
ERR'W.-(SP) 



5 

0 

.ERTY03 
$ERRPC.-(SP) 



6 

1 



SKJP IF NO ERROW CALLED 
^yp£ ""RR#" 

SAVE ERRNMB FOR TYPFGUT 
TYPE ERROR NUMBER 
GO TYPE— OCTAL ASCII 
TYPE 5 PIGIT(S) 
SUPPRESS LEADING ZEROS 
YPE 'VC=" 

SAVE SERRPC FOR tyPEOjT 
TYPE PROGRAM COUNTER 
GO TYPE— OCTAL ASCII 
TYPE 6 DIGIT(S) 
TYPE LEADING ZEROS 



.•GENERATE POINTER tq ERROR TA8LE JNLESS ERROR NUMBER I£ 0 



6$: 



7$: 



066107 



8$: 



9$: 



.•TYPE 
10$; 



1$: 



•2$: 



15$: 



14$: 



TST 
BNE 
JMP 

TYPE 
CLR8 
CLR8 
MOV 
CMP8 
BNE 
MOV 
BR 
ASL 
ASL 
ASL 
ADD 
MOV 

BEO 

THE ERROR 
MOV 
BEO 
MOV 
CLR 
M0V8 
BEO 
CMP8 
BNE 
CLR6 
BR 
CMP8 
BEO 
CMP8 
BNE 
INC8 
8IT8 
BNE 
BR 
INC6 
CMP8 
BNE 



ERRNMB 
7$ 
27$ 

.$CRLF 
BOTFLG 
CHRCNT 
ERRNMB. RO 
#1 77. RO 
8$ 

#PFEfH,RO 
9$ 

RO 
RO 
RO 

#$ERRTB-8.,R0 

(RO) .R1 

19$ 

MESSAGE 

(R1)*,R2 

19$ 

R2,"8$ 
BOTADR 
(R2)*,R5 
17$ 

*CR.R5 
12$ 

CHRCNT 
11$ 

*LF,R5 
11$ 

*HT.R5 
K$ 

CHRCNT 
*7, CHRCNT 

i3i 

15$ 

CHRCNT 
«• .93 
15$ 



WAS AN ERROR CALLED? 
8R IF YES 
NO— EXIT 

YES-TYPE CRLF 

CLEAR BOT FLAG 

CLEAR CHARACTER COUNTER 

RO POINTS TO FIRST OF 

SEE IF THIS ERROR CALL IS SPECIAL POWER FAIL CALL 
BRANCH IF NOT 

MOVE POWER FAIL ERROR CALL TABLE TO RO 

FOUR ENTRIES IN ERROR 
TABLE 



R1 POINTS TO ERROR MESSAGE 
TABLE 

BRANCH IF NO ERROR MESSAGE 



R2-ADDRESS OF MESSAGE STRING 
BRANCH IF END OF MESSAGE 
LOAD ADDIESS OF STRING 
CLEAR BOT ADDRESS 
END OF STRING?? 
YES! ! 

CARRIAGE RETURN?? 
NO! ! 

YES-CLEAR CHAR COUNT 
GET NEXT CHARACTER 
LINE FEED?? 

YES-GET NEXT CHARACTER 
HORIZONTAL TAB?? 
NO. . 

ADJUST CHARACTER COUNT 



INCREMENT CHAPAriFR COUNT 

SPACE?? 

NO. 
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99 
^00 
%T 
102 
103 
104 
105 
'06 
•07 
^08 
109 
"0 
Ml 
''2 
113 
1U 
115 
116 
IV 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
^34 
•35 
136 
137 
138 
'59 
KO 
141 
142 
143 
144 
145 
146 
14/^ 
'48 
149 
'50 
151 
'52 
'53 
154 
•55 



065640 
065644 
065652 
065654 
065660 
065662 
065666 
065672 
065676 
065700 
065702 
065710 
065712 
065714 

065720 
065722 
065726 
065732 
065736 
C65742 
06574b 
065752 
065754 



065756 
065762 
065764 
065770 
065774 
066000 
066004 

066006 
066010 
066012 
066016 
066020 
066022 
066024 
066026 
066030 
066032 
066034 
066036 
066040 
066042 
066044 
066046 
066050 
066052 
066054 
066056 
066060 
066064 
066066 
06607? 



010237 
122737 
103340 
013704 
001007 
104401 
105037 
013702 
000726 
105044 
112737 
104401 
000000 
105737 
001 707 
104401 
105037 
105037 
013702 
010237 
112742 
105722 
000677 



016001 
001444 
104401 
016002 
016003 
012137 
001433 

104401 
000000 
104401 
005702 
001 767 
012204 
01 2305 
105725 
100407 
001403 
013446 
104405 
000405 
013446 
104402 
000402 
01 3446 
104406 
005714 
001403 
104401 
000760 
104401 
000 742 



066107 15S: 



066104 
C00100 

066104 

001217 
066107 
06571? 



^77777 066106 



066106 

001217 
066106 
066107 
066104 
065712 
000040 



000002 

001217 
000004 
000006 
066010 



001217 



^OV 

CMP8 

BHIS 

MOV 

6NE 

TYPE 

CLRR 

MOV 

BR 

CLR8 

wove 

TYPE 

.WORD 

TST8 

BEG 

TYPE 

CLR8 

CLR8 

MOV 

MOV 

M0V8 

TST8 

BR 



.-TYPE ERROR HE 



16$: 

17$: 
18$: 



066142 
001217 



19$: 



20$: 



21$. 



22$: 



23$: 

24$: 
?5$: 

c'6$: 



MOV 
BEQ 
TYPE 
MOV 
MOV 
MOV 
BEG 

TYPE 

• WORD 

TYPE 

TST 

BEO . 

MOV 

MOV 

TST8 

BMI 

BEG 

MOV 

TYPDS 

BR 

'10V 

TYPOC 

BR 

MOV 

TYOBN 

TST 

BEO 

TYPE 

BR 

TYPE 

BR 



H 5 

01:15:59 PAGE 44-2 



R2.80TADR ;SAVE ADDRESS Of SPArE 

#64..CHRCNT ;END OF LINE?? 

11$ ;N0.! 

B0TADR,R4 ;G£T ADDRESS OF LAST SPACE 

16$ .-BRANCH IF SPACE DETECTED 

.$CRLF ;TYPE CRLF 

CMRCNT .-CLEAR CHARACiER COUNT 

18$. R? .-SET UP R2 FOR TESTING 

11$ 

-('<4) .-REPLACE SPACE 

#-l,80TFLG .'SET BOT FLAG 

.-TYPE ERROR MESSAGE STRING 
.-STRING ADDRESS GOES HERE 

BOTFLG .-WAS STRING TRUNCATED?? 

10$ ;NO;i 

,$CRLF .-YES-TYPE CRLF 

BOTFLG .-CLEAR BOT FLAG 

CHRCNT .-CLEAR CHARACTER COUNT 

B0TADR,R2 .-SETUP R2 FOR TESTING 

R2.18$ .-SETUP 18$ FOR TYPING 

tt' ,-(R2) .-RESTORE SPACE 

(R2)* .-RESTORE R? 

11$ .-TYPE REST OF STRING 

>ER AND ERROR DATA 

2(R0).R1 .-R1 POINTS TO ERROR HEADER TABLE 

27$ .-BRANCH IF NO HEADER 

.$CRLF .-(ASSUME NO DATA) 

4(R0),R2 ;R2 POINTS TO DATA ADDRESS TABLE 

6(R0),R3 .-R3 POINTS TO FORMAT TABLE 

(R1)*.21$ .-PUT HEADER ADDRESS FOR TYPE 

27$ .-BRANCH IF END OF HEADERS 
.-(ASSUME END OF DATA) 

0 .-HEADER ADDRESS GOES HERE 
.$CRLF 

R2 .-DATA WITH HEADER?? 

20$ .-NO!! 

(R2)*.R4 .-R4 POINTS TO DATA ADDRESS 

(R3)*,R5 ;R5 POINTS TO FORMAT 

(R5)+ .-WHAT KIND OF DATA?? 

24$ .-BINARY 

23$ .-OCTAL 

a(R4) + ,-(SP) .-DECIMAL 

25$ 

a(R4)*.-(SP) 
25$ 

acR4)+.-(SP) 

(R4) .-MORE DATA?? 

26$ ;N0. .' 

,ERTY04 .-YES-TYPE 2 SPACES 

22$ .-AND CONTINUE 

.$CRLF .-TYPE ONE BLANK LINE 

20$ .-BEFORE NEXT HEADER 



"it 



066074 
066076 



000207 



5 ma:'<o V04.00 



27$: 



ICQ (V^IHA 








T ^TIUMR • 


oU 'JOO 1 wc 








PRRKMA ■ 
t nnrw »j ■ 










nnTADR • 










C3U I ' L O • 








I, nn i,ni 1 . 


1 o** 










(V>A1 in 




1 ?p 


1 ?(S 


CRT vOO • 


> OO UOO 1 1 J 






1P4 


PRTvOI • 


O'' 066'25 


AC/ 

0^4 


U40 




C D F w A ^ ■ 
fcn 1 J\Jd ■ 


I DO voo 1 


ns4 


040 


1?0 


FRT VO^ • 




CiLCi 


040 


000 

w w V 


FRT V04 ■ 


' U VOO 1 Hj 


\JH\J 


OSS 


040 


FR^ YOS • 


1 71 












\J\J\J 1 uc 


0^»^PSO 

V/OOc .^V/ 








woo 1 DO 


000000 

vV/vvV/W 






174 066166 


120 


117 


127 




175 










176 066250 


066254 


000000 




PFECH2: 


177 06625>i 


103 


120 


125 




178 










179 066266 


066270 






PFECH3: 


180 066270 


065230 


000000 






181 066274 


066276 






PFECH4: 


^82 066276 


ooc 


000 









I 


5 


A — ADD — H ^ 


01 -IS- 'iQ DAT.F 




ftES«EG 






RTS 


PC 




unRn 


A 
U 


• T F C T Ml MQFR 


. wunu 


n 


FRROR MIMRFR 


unRD 
. wuny 


n 




: .8YTE 


0 


;80T FLAG 


: .evTE 


c 


.•CHARACTER COUNT 










CM « 1 L ^ 1 ^01 




ACT I 7 






A<>r I 7 






ASCI7 


a a 




: .ASCJZ 


a - a 





ADDRESS 



PFECH1.PFECH2.PFECH3,PFECH4 ; WORDS DEFINING TABLES BELOW 
.♦4.0 

.ASCJZ ?POWER MONITOR 81' IN CPU ERROR REGISTER FOUND SET 

.EVEN 

.♦4.0 

.ASCIZ 7CPUERREG? 

.EVEN 

.♦2 

.WORD CPSAVE.O 
.♦2 

.BYTE 0.0 



■ty input routine 



►ACRO VO^.OO 



J 5 

4-APR-81 OI.-ISrbQ PAGE Ad 



,S8TTL TTy INPUT ROUTINE 



066500 000000 
06650? 000000 
06650A 000000 
066506 

066307 



.ENABL 
STKfNT: 
STKQIN: . 
STKQOUT: 
STKQSRT: 
$TKQEND=. 
.EVEN 



LS8 
.WORD 
.WORD 
.WORD 
.BLKB 



0 
0 
0 

1 



NUMBER Of ITEMS IN QUEUf 
INPUT POINTER 
OUTPUT POINTER 
TTV KEYBOARD OUEUE 



•TK INITIALIZE ROUTINE 

•THIS ROUTINE WILL INITIA.IZE THE TTY KEYBOARD INPUT QUi^UE 
•SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 



•CALL; 



JSR PCSTKINT 
RETURN 



C66510 


005037 


066300 


STKINT: 


CLR 


STKCNT 


0665H 


012737 


066306 


066302 


MOV 


*$TKOSRT,$TKOIN 


066322 


013737 


066302 


066304 


MOV 


JTKQIN.STKQOUT 


066330 


012737 


066360 


000060 


MOV 


*$TKSRV,a*TKVEC 


066336 


012737 


000200 


000062 


MOV 


*200.a#TKVEC*2 


066344 


005777 


112612 




TST 


9STK8 


066350 


012777 


000100 


112602 


MOV 


»100,9STKS 


066356 


000207 






RTS 


PC 



CLEAR COUNT OF ITEMS IN QUEUE 
MOVE THE STARTING ADDRESS OF THE 
OUEUE INTO THE INPUT t OUTPUT POINTERS. 
INITIALIZE THE KEYBOARD VECTOR 
'BR" LEVEL 4 
CLEAR DONE FLAG 
ENABLE TTY KEYSOARD INTERRUPT 
RETURN TO CALLER 

•»K SERVICE ROUTINE 

•THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 

•BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 

•IT IN THE OUEUE. 

•IF THE CHARACTER IS A "CONTROL-C" (*C> STKINT IS CALLED AND 

•UPON RETURN EXIT IS MADE TO THE "CONTROL-C" RESTART ADDRESS (SHUT2) 



066360 


1 1 7746 


112576 




STKSRV: 


M0V8 


a$TKB.-(SP) 


PICKUP THE CHARACTER 


066364 


042716 


1 77600 






6U 


#*C1 77, (SP) 


•STRIP THE JUNK 


066370 


021627 


000021 






CMP 


(SP),*$XON 


■IS IT A RANDOM XON? 


066374 


001002 








BNE 


50$ 


■BRANCH IF NO 


066376 


005726 








TST 


(SP)* 


■CLEAN RANDOM XON OFF STACK 


066400 


000002 








RTI 




•RETURN 


C66402 








50$: 






•is IT A CONTROL C? 


066402 


021627 


000003 






CMP 


(SP),*3 


066406 


001007 








BNE 


1$ 


•BRANCH IF NO 


066410 


104401 


067506 






TYPE 


.SCNTLC 


•TYPE A CONTROL-C (*C) 


066414 


004757 


066310 






JSR 


PC. STKINT 


•INIT THE KEYBOARD 


066420 


005726 








TST 


(SP)* 


•CLEAN UP STACK 


066422 


000137 


067550 






JMP 


SHUT 2 


•CONTROL C RESTART 


066426 


021627 


000007 




1$: 


CMP 


(SP).#7 


•IS IT A CONTROL G? 


066432 


001004 








BNE 


2$ 


•BRANCH IF NO 


066434 


022737 


0001 76 


001154 




CMP 


»SWREG,SWR 


•IS SOFT-SWR SELECTED? 


066442 


001500 








BEO 


6$ 


•60 TO SWR CHANGE 


066444 








2$: 








066444 


022737 


000001 


066300 




CMP 


*1.STKCNT 


•IS THE QUEUE FULL? 


066452 


001004 








BNE 


3$ ;; BRANCH IF NO 


066454 


104401 


001212 






TYPE 


.SBfLL ;;RING THE MY BELL 



INPUT ROUTINE 



066460 
066A62 
066A6A 
066A70 
066472 
066476 
066500 
066504 
066506 
066512 
066516 
066522 
066524 
066532 
066534 
066540 
066544 
066546 
066552 
066554 
066560 
066564 
066570 
066576 
066600 
066606 



005726 
000451 
021627 
001021 
005077 
005726 
105777 
100375 
117746 
042716 
022627 
001 366 
012777 
000002 
005237 
021627 
002405 
021627 
003002 
042716 
112677 
005237 
023727 
001003 
012737 
000002 



TST 3 


KIACRO 


V04.00 


4-APR-81 


K 5 

01:15:59 PAGE 45-1 










TST 


(SP)* 


.•CLEAN CHARACTER OFF OF STACK 








BR 


5$ 


;EXIT 


000023 




3S: 


CMP 


(SP).#23 


;IS IT A CONTPOL-S? 


112462 






BNE 


321 


;8RANCH If NO 






CLR 


a$rKS 


.'DISABLE TTV KEYBOARD INTERRUPTS 








TST 


(SP)* 


.•CLEAN CHAR Off STACK 


112454 




31$: 


TST8 


a$TKS 


;UAIT FOR A CHAR 








BPL 


31$ 


;L00P UNTIL ITS THERE 


112450 






Move 


a$TK8.-(SP) 


;GET THE CHARACTER 


177600 






BIC 


**C177,(SP) 


.•MAKE IT 7H3IT ASCJI 


000021 






CMP 


(SP)*,*21 


;JS IT A CONTROL -0? 


000100 






BNE 


31$ 


.•BRANCH IF NO 


112426 




MOV 


«100,a$TKS 


;REENA8LE TTY KEYBOARD INTERRUPTS 








RT] 




.•RETURN 


066300 




32$: 


INC 


$TKCNT ; 


; COUNT THIS CHARACTER 


000140 






CMP 


(SP),#140 


;IS IT UPPER CASE? 








BLT 


4$ 


.•BRANCH IF YES 


0001 75 






CMP 


(SP),#175 


;JS IT A SPECIAL CHAR? 








BGT 


4$ 


; BRANCH IF YES 


000040 






BIC 


*40,(SP) 


;MAKE IT UPPER CASE 


177516 




4$: 


M0V8 


(SP)*,a$TKO]N 


.-AND PUT IT IN QUEUE 


066302 






INC 


$TKQ IN 


.•UPDATE THE POINTER 


066302 


066307 




CMP 


$TKOJN,nTKQEND ; 


;G0 OFF THE END? 




066302 




BNE 


5$ 


;8RANCH IF NO 


066306 




MOV 


#$rKQSRT,$TKQIN ; 


.•RESET THE POINTER 






5$: 


RTI 




.■RETURN 



S£0 0^70 



066610 022737 000176 

066616 001124 

066620 105777 112334 

066624 100121 

066626 117746 112330 

066632 042716 177600 

066636 021627 000007 

066642 001300 



001154 $CKSWR: 



•SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
•ROUTINE IS ENTERED FROM THE TRAP HANDLER. AND WILL 
•SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 
•CALL WHEN OPERATING IN TTY INTERRUPT MODE. 



CMP 

BNE 

TST8 

BPL 

MOVB 

BIC 

CMP 

BNE 



#SWREG.SWR 
15$ 
a$TKS 
15$ 

d$TK8.-(SP) 
**C1 77. (SP) 
(SP).#7 
2$ 



IS THE SOFT-SWR SELECTED 

EXIT IF NOT 

IS A CHAR WAITING? 

IF NOT. EXIT 

YES 

MAKE IT 7-eiT ASCII 

IS IT A CONTROL-G? 

IF NOT, PUT IT IN THE TTY QUEUE 

AND EXIT 



066644 
066652 
066654 
066656 
066662 
066666 

066674 
066700 
066704 
066710 



123727 
001674 
005726 
004737 
005077 
112737 

104401 
104401 

013746 
104402 



001150 000001 



066310 
112272 
000001 

067520 
067525 
000176 



001151 



•CONTROL IS PASSED TO THIS POINT ^R0M EITHER THE TT>' INTERRUPT SERVICE 
•ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL. AS A RESULT OF A 
•CONTROL-G BEING TYPED. AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 
6$: 



CMP8 


$AUrOB.#1 


r^^RE WE RUNNING IN AUTO-MODE? 


BEO 


2$ 


;8RANCH If YES 


TST 


(SP) + 


-.CLEAR CONTROL -6 OFF STACK 


JSR 


PC,$TKINT 


;FLUSH THE TTY INPUT QUEUE 


CLR 


a$TKS 


IDISABLE TTY KEYBOARD INTERRUPTS 


MOVB 


*1,$INTAG 


•SET INTERRUPT MODE INDICATOR 


TYPE 


.$CNTLG 


•ECHO THE CONTROL-G CG) 


TYPE 


,$MSWR 


•TYPE CURRENT CONTENTS 


MOV 


SWREG.-(SP) 


•SAVE SWREG FOR TYPE OUT 


TYPOC 


•GO TYPE— OCTAL ASCIKALL DiGITS) 



ZRMOeC ftM05/3/? FCTNL TST 3 MACRO V04.00 *-APR-81 

•^Y INPUT RO»JTI\E 



066712 


104401 


0675 56 






TYPE 


066716 


005046 






19$- 


CLR 


066720 


005046 








CLR 


066722 


105777 


1 12232 




7S: 


TST8 


066726 


1005/5 








BPL 


066730 


1 1 7746 


112226 






nov8 


06673A 


042716 


1 77600 






BIC 


0667A0 


021627 


000003 






CMP 


066 744 


001015 








BNE 


066746 


104401 


067506 






TYPE 


066752 


062706 


000006 






ADD 


066756 


123727 


001151 


000001 




CMP8 


066764 


001003 








BNE 


066766 


012777 


000 i 00 


112164 




MOV 


066774 


000137 


067550 




8S: 


JMP 


067000 


021627 


0C0025 




9S: 


CMP 


067004 


001005 








BNE 


067006 


104401 


067513 






TYPE 


067012 


062706 


000006 




20S: 


ADD 


067016 


000737 








BR 


067020 


021627 


000015 




10$: 


CMP 


067024 


001022 








BNE 


067026 


005766 


000004 






TST 


067032 


001403 








BEQ 


067034 


016677 


000002 


112112 




MOV 


067042 


062706 


000006 




11$: 


ADD 


067046 


104401 


001217 




14$: 


TYPE 


067052 


123727 


001151 


000001 




CMP8 


067060 


001003 








BNE 


067062 


012777 


000100 


112070 




nov 


067070 


000002 






15$: 


RTI 


067072 


004737 


063732 




16$: 


JSR 


067076 


021627 


000060 






CMP 


067102 


002420 








BLT 


067104 


021627 


000067 






CMP 


C67110 


003015 








BGT 


067112 


042726 


000060 






BIC 


067116 


005766 


000002 






TST 


067122 


001403 








BEQ 


067124 


006316 








ASL 


067126 


006316 








ASL 


067130 


006316 








ASL 


067132 


005266 


000002 




17$: 


INC 


067136 


056616 


177776 






BIS 


067142 


000667 








BR 


06 7U4 


1C4401 


001216 




18$: 


TYPE 


067150 


000720 








BR 










.DSA8L 


LS8 



01:15:59 PAGE 45-2 



.SMNFU ; .-PROMPT FOR NEW SWH 

-(SP) ;; CLEAR COUNTER 

-(SP) ;;THE NEW SWR 

a$TKS ;;CHAR THERE? 

7$ ;;JF NOT TRY AGAIN 

a$T<8.-(SP) ;;PICK UP CHAR 

#*C177,(SP) ;;MAKE IT 7-81T ASCII 

(S'^),#3 ;;IS IT A CONTROL-C? 

9$ ; .'BRANCH IF NOT 

.SCNTLC ;;YES. ECHO CONTROL-C (*C) 

#6.SP ;; CLEAN UP STACK 

$INTAG,#1 ;;REFNA8LE TTY KEYBOARD INTERRUPTS 

8$ ;;8RANCH If NO 

*100.a$TKS ;;ALLOW TTY KEYBOARD INTERRUPTS 

SHUT? ;;C0N'R0L-C RESTART 



(SP),#25 ;;IS IT A CONTROL -U? 

10$ ; .'BRANCH IF NOT 

,$CNTLU ;;VES. ECHO CONTROL -U (*U) 

#6,SP ;; IGNORE PREVIOUS INPUT 

19$ ;;LET*S TRY IT AGAIN 



(SP),#15 ;;IS IT A <CR>? 

16$ ; .-BRANCH IF NO 

4(SP) ;;YES, IS IT THE FIRST CHAR? 

11$ ; .-BRANCH IF YES 

2vSP). aSWR ;;SAVE NEW SWR 

*6.SP ;; CLEAR UP STACf. 

,$CRLF ;;ECHO <CR> AND <Lf> 

$INTAG,*1 ;. -RE-ENABLE TTY KBD INTERRUPTS? 

15$ -'BRANCH IF NOT 

#100.a$TKS ;;RE-ENA8LE TTY KBD INTERRUPTS 

;; RE TURN 

PC.$TYPEC ;;ECHC CHAR 

(SP).*60 ;;CHAR < 0? 

18$ .-.-BRANCH IF YES 

(SP).*67 .-.CHAR > 7? 

18$ ; .-BRANCH IF YtS 

*60. (SP)* .-.-STRIP-OFF ASCII 

2(SP) ;;IS THIS THE FIRST CHAR 

17$ .-.-BRANCH IF YES 

(SP) ;;N0. SHIFT PRESENT 

(SP) ;; CHAR OVER TO MAKE 

(SP) ;; ROOM FOR NEW ONE. 

2(SP) ;;KEEP COUNT OF CHAR 

-2(SP).(SP) ;;SET IN NEW CHAR 

7$ ;;GET THE NEXT ONE 

,$0UES ;;TVPE ?<CR><LF> 

20$ ;; SIMULATE CON'ROL-U 



'7RMO80 RMOS/^/^ KTNl TST 3 

hy ;mpui routine 



M 5 

KWCRO vOi.OO 4-APR-81 01:15:S9 PAGE A 5-3 



SCO 0?7? 













ROUTINE 


WILL INPUT A 


J 1 ntUL C 


ruAQATTFO POrM TUP TTV 










■•CALL 




















RDCHR 






^F T A ruAQAfTFB F BrUM TUF flllFllF 










■ » 


RETURN HERE 




TMAPArTFP rtki TMF CTArr 










• 








UtTM PABITV niT CTPIPPFn riFF 


JO' 1 JC 






SRDCHR 


• MDV/ 

. nuv 




» « 


PI KM nnuM tmf pr amd 




U 1 ooou 




000002 






4rsp),2(SP> 


» 0 


TMF PC 

1 nc lO 


UOr 1 Oc 




vvvvv** 








4CiP) 


0 0 


r,fJ BFAnv FOB A rMAPATTFP 


vO' 1 OO 












-(SP) 


0 0 


PI IT MFU PC niu CTATK 




V 1 c f HO 


n^>7i 7^> 

VO f 1 f D 






nuv 


*64$,-(SP) 


0 0 


PUT MFU Pr DM CTAfr 


fV>71 74 


OOOrtO? 

lAAAA/C 








n 1 1 




0 1 


PflP MFU Pr AMD PC 








64$: 












00S737 


VOO Jv v 


1$: 


TST 


STKCNT 


# 1 


UAIT flM A CHARArTFR 


fVi7P0P 


001775 








DC W 


1$ 






(Vk7P64 


005337 


VOO JW 






L/C L 


STKCNT 


0 4 


OFrRFMFNT TMF fDlMTFR 


067210 


117766 


177070 


000004 






a$TKQ0UT,4(SP> 


■GET ONE CHARACTER 


067216 


005237 


066304 






INC 


STKQOUT 


• 1 


•UPDATE THE POINTER 




0?37?7 


066304 


066307 




CMP 


STKQOUT,#$TKQEND . 


•;DID IT GO OFF OF THE END? 


067230 


001003 








BNE 


2$ 


« « 


BRANCH IF NO 


06723? 


01?/37 


066306 


066304 




MOV 


*$TKQSRT.$TKQOUT , 


.•RESET THE POINTER 


067240 


000002 




2$: 


RTI 




0 1 


RETURN 










••THIS 


ROUTINE 


WILL INPUT A 


STRING FROM THE TTV 










■•CALL 


















• • 


RDLIN 






•INPUT A STRING FROM THE TTY 










• • 


RETURN HERE 




;ADDRESS OF FIRST CHARACTER WILL 



067242 


0(0346 






SRDLIN: 


MOV 


R3,-(SP) 


;;SAVE R3 


067244 


005046 








CLR 


-(SP) 


;; CLEAR THE RUBOUT KEY 


067246 


012703 


067476 




1$: 


MOV 


*$TTYIN.R3 


;:GET ADDRESS 


067252 


022703 


067506 




2$: 


CMP 


#$TTYIN*8.,R3 


; .-BUFFER FULL? 


067256 


101456 








BLOS 


4$ 




067260 


104411 








RDCHR 




;;G0 READ ONE CHARACTER FROM THE TTV 


067262 


112613 








MOVB 


(SP)*,(R3) 


;;GET CHARACTER 


067264 


122713 


0001 77 




10$: 


CMP8 


#177. (R3) 


;;IS IT A RUBOUT 


067270 


001022 








BNE 


5$ 


;;8R IF NO 


067272 


005716 








TST 


(SP) 


;;IS THIS THE FIRST RUBOUT? 


067274 


001007 








BNE 


6$ 

tf'\,9i 


;;BR IF NO 


C67276 


112737 


000134 


067 




M0V8 


;;TYPE A BACK SLASH 


067304 


104401 


067474 






TYPE 


,9$ 




067310 


012716 


177777 






MOV 


#-1.(SP) 


;;SET THE RUBOUT KEY 


067314 


005303 






6$: 


DEC 


R3 


;; BACKUP BY ONE 


067316 


020327 


067476 






CMP 


R3./#$TTYIN 


;; STACK EMP' Y? 


067322 


103434 








BLO 


4$ 


' *BR IF YES 


067324 


111337 


067474 






MOVB 


(R3),9$ 


••SETUP TO TYPEOUT THE DELETED CHAR. 


067330 


104401 


067474 






TYPE 


.9$ 


;;G0 TYPE 


067334 


000746 








BR 


2$ 


;;G0 READ ANOTHER CHAR. 


067336 


005716 






5$: 


TST 


(SP) 


; .-RUBOUT KEY SET? 


067340 


001406 








6EQ 


7$ 


;;BR IF NO 


067342 


112737 


000134 


067474 




MOVB 


#'\.9$ 


;;TYPE A BACK SLASH 


067350 


104401 


067474 






TYPE 


.9$ 




067354 


005016 








CLR 


(SP) 


;; CLEAR THE RUBOUT KEY 


067356 


122713 


000025 




7$: 


CMPB 


*25.(R3) 


;;IS CHARACTER A CTRL U? 


067362 


001005 








BNE 


8$ 


;;BR IF NO 



TERMINATOR WILL BE A BYTE OF ALL O'S 



CZRMOBO RM05/3/2 FCTNL 
TTY INPUT RCXJTIftf 



TST 3 HACRO V04.00 A-APR-81 01 



H S 
: 15:59 PAGE 



3 

5 
6 
7 



0673o*> 


1 A/ / Al 


AX7C 1 T 






T VDC 


CrMTl 1 1 


• • TVPC A rnKlTDOl '1" 
. , 1 TrC M LmW nUL u 


067570 


0007^6 










1 9 


. , UU o 1 MM 1 UVcN 


067572 


12271 5 


0000<:<: 






riiDQ 




••TC rUADATTCD A ' '•D* '■) 


067576 


AAi A1 i 

OOlOl 1 








Ont 


TX 
J9 


■ - ARAMru TF Kin 


rt^ 7/ ftrt 

067400 


1 AC Ai T 








n DO 


(DX ^ 
\r\j> 


-•nCAP TUP ruAOArTCD 


06 'HO^ 


i A/ / AI 


ftAI 01 7 








, *LnL" 


■ - TVPC A "fR" e, "IF" 


A^ 7/ AX 

06/^»»06 


i A/ / A1 


Ai^7/ 7X. 
OOr 6 






T VDC 


IT T V TM 


••TVPC TMC IMP) IT CTRTNri 


0674 12 


AAA71 7 






OH 


Ot 


• 'CC\ prririip AMniucR rMAriCR 




1 A/ / AI 


OOlc 16 






T VDC 


cm ic c 

, >Uut o 


• • TVPC A • 7 ' 
t 0 1 TrC M 


rti 7/ ■^A 


AAA7i 1 








OD 
tjn 


1 1 

1 * 


• - n CAD TMC RIIFFCR AND 1 nnp 
ffLLCMn 1 nC DUrrCr^ Mf>(L' LUUr 




1 1 i TT7 


AX7/ 7/ 




XX. • 




IQX"\ 

Vn J/ t 79 


• -crun TMC rHAQArTCP 




i A/ / Ai 


AX 7/ 7y 






T VDC 


« 7» 




A^7/ 


i '5'57'5T 
\dcr C5 


A A AAI C 










• •rucrir cnp dctiirki 


Ai 77 TZ. 

067456 


AAI 7 AC 

001 305 








DKIC 
□rVC 


0* 


■ ■ 1 nnp IF KinT dctiidkj 


06^440 


1 nc/Sxi 
1 05U65 


1 77777 

\ ' ( f ' ' 








-1 (QX) 


••nCAR RCTIIRN f TMC 1S) 


06^444 


1 UmmU 1 


00 1 ccU 






TVPC 


< »Lr 


• • 1 VPF A 1 IMF FCCD 

PflirC M Li f^C reel/ 


AX 7/ CA 

06^^450 


AAC70i^ 








1 O 1 


/ CP) 
V o"/ * 


• ■ricAM DinniiT i^cv from tmf ciArK 


06^43<: 


AI nXAT 








Mnu 


V o"^ ▼ , n J 


• •DFCTnQC 0% 


067454 


011646 








nuv 


V o"^ , ~ V Or / 


••AnillCT TMC CTAflf AMD PUT ADnRCCC DF 

,fMl/«iUOI 1 nC OiMV,^ MiTll/ r U 1 MI^I/HCOO 


CX 

06/^456 


A1 XXXX 

016666 


AAAAA/ 


A Ann AO 




Mni/ 

PtUV 


A ^ CP ) Of CP i 
H V 0"y , t V Or J 


F IRCT ACril rMARATTFR DM IT 


AX 7/ X/ 


Ul Ob 


AX 7/ 7^ 






MDU 
HUV 


IftTTYIW ^fCP) 

W^l 1 TJPl^HVOr/ 




AX7/ 70 
'Ob''*' C 


A AAA AO 








DT I 




- -RFTI IRN 


AX 7/ 7/ 

UO^ 4/^ 4 


UUU 








RVTC 

.or 1 c 


A 
U 


••CTORAKF FOR ACT I I THAR Tf) TYPF 


rtX. 7Z.7C 
yJOf'*' } 


non 
UUU 








• O I f c 


0 


• • TFRMINAinR 


UO fh'O 






*TTV IN- 




g 


• -RFSFRVF a BYTES FOR TTY INPUT 


067506 


136 


103 


015 


SCNTLC: 


.ASCIZ 


/*C/<15><12> 


;; CONTROL "C" 


067513 


136 


125 


015 


SCNTLU: 


.ASCJZ 


/*U/<15><12> 


;; CONTROL "U" 


Ax7Q'5n 


1 IX 
1 50 


1 n7 


U 1 J 


c riuTi c, . 


A^r I 7 

.Mo Li £ 






U6' >c5 


U 1 J 


ni 0 






. MO Lie 


<■! Sx'l ?>/CUR - 
V 1 I c.^ 1 own 


/ 








' 1 A 

1 0 






/ NPU = / 












. C VC>M 








067550 


012737 


M7777 


001 326 


SHUT2: 


MOV 


»-l,C1LFG 


;SET THE CONTROL-C FLAG 


067556 


105737 


001116 






TST8 


STSTNM 


.•DOING ANY TESTS ? 


067562 


001002 








BNE 


1$ 


;8R IF YES 


067564 


000137 


037262 






JMP 


SHUT 


; NO— RESPOND TO *C 


067570 


000002 






1$: 


RTI 




;EXIT FROM INTERRUPT 



;t<«reo fwos/?/? fctnl tst 3 

RfAD AN CCUl MUnB£R 'ROH THE 



•WCRO VW.OO 4-APR-81 01 



TTY 



B 6 

;'5:b9 PAGE 46 



.S8TTL READ AN OCTAL NUMBER FROM THE TTY 



StO 



•THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER fROM THE TTv AND 
•CHANGE IT TO BINARY. 



•CALL: 



RDOCT 

RETURN HERE 



;;READ A« OCTAL NUMBER 

;;LOW Ofi»ER BITS ARE ON TOP Of THE STACK 
;;HIGH ORDER BITS ARE IN SHIQCT 



Ofe7S7? 

V/vJ ' J • C 


01 1646 


SRDOC T : 




(SP) -(SP) 


■ -PRGVIDF ^PATF FOR ^HF 


067574 


016666 


000004 OOOOC "> 


MOV 


4(SP).2(SP) 


■ ■ INPUT NLMRFR 


067602 


010046 




MOV 


RO.-(SP) 


• -PUSH RO ON STAC< 


067604 


010146 




MOV 


R1 J-(SP) 


• 'PLISH R1 on STACK 


067606 


010246 




MOV 


R?!-(SP) 


• 'PUSH R2 ON STACK 


06761 0 


104412 


iS: 


RDL IN 




'■READ AN ASCI7 LINE 


067612 


012600 




MOV 


(SP) ♦ .RO 


;;6ET ADDRESS OF 1ST CHARACTE 


067614 


005001 




CLR 


R1 


■ -CLEAR DATA WORD 


067616 


005002 




CLR 


R2 


C67620 


1 1 2046 


2$: 


Move 


(RO)*,-(SP) 


••PICKUP THIS CHARACTER 


067622 


001412 




BEO 


3S 


■ •IF ZERO GET OUT 


067624 


006301 




ASL 


R1 


•-••2 


067626 


006102 




ROL 


R2 




067630 


006301 




ASL 


R1 




067632 


006102 




ROL 


R2 




067634 


006301 




ASL 


R1 




067636 


006102 




ROL 


R2 

**C7.(SP) 




067640 


042716 


177770 


BIC 


;; STRIP THE ASCII JUNK 


067644 


062601 




ADD 


(SP)*.R1 


;;ADD IN THIS DIGIT 


067646 


000764 




BR 


2$ 


;;LOOP 


067650 


005726 


3$: 


TST 


(SP)* 


;; CLEAN TERMINATOR FROM STACK 


0676S2 


010166 


000012 


MOV 


R1.12(SP) 


;;SAVE THE RESULT 


067656 


010237 


067672 


MOV 


R2.SHI0CT 


067662 


012602 




MOV 


(SP)*,R2 


;;POP STACK INTO R2 


067664 
067666 


012601 




MOV 


(SP)*,R1 


-POP STACK INTO R1 


012600 




MOV 


(SP)*.fiO 


;;POP STACK INTO RO 


067670 


000002 




RTI 




;;RETURN 


067672 


000000 


$HI0CT: 


.WORD 


0 


;;HIGH ORDER BITS GO HERE 



CZIWCBO W05/^/2 FCTNL 
TRAP DECOO£R 



TST 3 MACKO V04.00 <.-APR-81 01 



C 6 

'5:^9 PAGE U7 



SFO 



.S8TTL TRAP DECODER 



•THIS ROUTINE UJLL PICKUP THE LOWER BYTE OF THE "TRAP"' INSTRUCTION 

•AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 

•OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WllL 
•GO TO THAT ROUTINE. 



067674 


016646 


000002 


tTRAP: 


MOV 


2(SP).-(SP) 


; .-ASSUME THE STATUS OF 


067700 


042716 


000020 




SIC 


#20. (SP) 


;; THE CALLER~DO NOT ALLOW 


067704 


012746 


06771? 




MOV 


#1$,-(SP) 


;; T-er TRAPS 
;;SET THE NEW STATUS 


067710 


000002 






RTI 




067712 


010046 




1$: 


MOV 


RO,-(SP) 


;;SAVE RO 


0677K 


016600 


000002 




MOV 


2(SP) .RO 


;;GET TRAP ADDRcSS 


067720 


005740 






TST 


-(RO) 


; .-BACKUP BY 2 


067722 


111000 






M0V8 


(RO),RO 


;;GET RIGHT BYTE OF TRAP 


067724 


006300 






ASL 


RO 


; .-POSITION FOR INDEXING 


067726 


016000 


067746 




MOV 


$TRPAD(RO),RO 


;; INDEX TO TABLE 
;;G0 TO ROUTINE 


067752 


000200 






RTS 


RO 



.-.-THIS IS USE TO HANDLE THE "GETPRI" MACRO 



067734 011646 

067736 CI 6666 000004 

067744 000002 



067746 
067750 
067752 
067754 
067756 
067760 
067/^62 



067766 
067770 
067772 
067774 
067776 
070000 



067734 
063520 
063316 
063272 
063332 
063046 
062772 



067764 066700 



066610 
067152 
067242 
067572 
062676 
06P754 



000002 



STRAP2: MOV 
MOV 
RTI 



(SP).-(SP) 
4(SP).2(SP) 



.-MOVE THE PC DOWN 
.-MOVE THE PSW DOWN 
.•RESTORE THE PSW 



.S8TTL TRAP TABLE 



.-•THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
.-•BY THE 'TRAP" INSTRUCTION. 



ROUTINE 
STRPAD: .WO«D $TRAP2 



$TYPE 

STYPOC 

$TYPOS 

STYPON 

$TYPDS 

$TyP8N 



;;CALL=TYPE 

;;CALL=TYPOC 

;;CALL=TYPOS 

;;CALL=TYPON 

;;CALL=TYPDS 

;; CALLS TYPBN 



TRAP^l (104401) 
TRAD*2( 104402) 
TRAP+3( 104403) 
TRAP*4( 104404) 
TfiAP*5( 104405) 
TRAP*6( 104406) 



TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL^ 
TYPE DECIMAL rJLWBER (WITH SIGN) 
TYPE BINARY (ASCII) NUMBER 



$GTSUR ; ; CALI =GTSWR TRAP-^7( 104407) GET SOFT-SWR SETTING 

SCKSWR ;;CALL = CICSWR TRAP+10(104410) TEST FOR CHANGE IN SOFT-bWR 

SRDCHR ;.-CALL=RDCHR TRAP*1 1 (10441 1 ) TTY TYPEIN CHARACTER ROUTINE 

$RDLIN ;;CALL=RDLIN TRAP*12(104412) TTY TYPEIN STRING ROUTINE 

SRDOCT ;;CALL=RDOCT TRAP*13(1044 13) READ AN OCTAL NUMBER FROM TTY 

SSAVREG ;;CALL=SAVREG TRAP*14(104414) SAVE R0-R5 ROl'TINE 

SRESREG ;;CALL-RESREG TRAP*15(104415) RESTORE R0-R5 ROUTINF 



ZrlMOBC RW05/^/? FCTNL TST 3 
DCWE« DOWN AND uP ROUTINES 



I1ACH0 V04.00 



D 6 
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.SbTTL POWER DOWN AND UP ROUTINES 



070002 
070010 
070016 
O70020 
070022 
070024 
070026 
070030 
070032 
070036 
070042 
070050 
070052 



070054 
070062 
070066 
070072 
070076 
070100 
070104 
070106 
070110 
070112 
070114 
070116 
070120 
070126 
070134 
070136 
070140 
070142 
070144 
070146 
070150 



012737 
012737 
010046 
010146 
010246 
010346 
010446 
010546 
01 7746 
010637 
012737 
000000 
000776 



012737 
01 3706 
005037 
005237 
001 375 
012677 
012605 
012604 
012603 
012602 
012601 
012600 
012737 
012737 
104401 
070150 
000002 
000000 
000776 
000000 
015 



070142 
000540 



111116 
070146 
070054 



070142 
070146 
070146 
070146 

111050 



070002 
000340 



000024 
000026 



.•POWER DOWN ROUTINE 

SPWRDN: MOV #$lLLUP,a*PWRVEC ;;SET 
*340.S*PWRVFC+2 ;;PRIO; 



000024 



000024 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
HALT 
BR 



RO.-(SP) 
R1.-{SP) 
R2,-(SP) 
R3.-(SP) 
R4.-(SP) 
R5,-(SP) 
aSWR.-(SP) 
SP.$SAVR6 



;;PUSH 
;;PUSH 
.-.-PUSH 
; ; PUSH 
;;PUSH 
;;PUSH 
;;PUSH 
;;SAVE 



#$PWRUP . a#PWRVE C ; ; SE T 



FOR FAST UP 
7 

RO ON STACK 
PI ON STACK 
R2 ON STACK 
R3 ON STACK 
R4 ON STACK 
R5 ON STACK 
aSWR ON STACK 
SP 

UP VECTOR 



.-2 



.•POWER 
$PWRUP: 



U: 



000024 
000026 



012 



120 



SPWRMG; 

SILLUP: 

$SAVR6: 
SPOWER: 



UP ROUT 
MOV 
MOV 
CLR 
INC 
BNE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

nov 

MOV 
MOV 

TYPE 

.WORD 

RTI 

HALT 

BR 

0 

.ASCIZ 
.EVEN 



INE 

#$ILLUP.a*PWRVEC 
$SAVR6,SP ; 
S3AVR6 ; 
$SAVR6 
1$ 

(SP)*.aSWR ; 
(SP)+,R5 i 
(SP)*.R4 
(SP)*.R3 
(SP)*.R2 
(SP) ♦.Rl 
(SP)*.RO 

4rSPURDN.»rPURVEC 
#340,a*PWRVEC-*2 , 

SPOWER 



.-2 

<15><12>"POWER" 



;;HANG UP 
ft******************************* 

;;SET FOR FAST DOWN 
;6ET SP 

.WAIT LOOP FOR THE TTY 
;WAIT FOR THE INC 
;0F WORD 

;POP STACK INTO aSWR 
;POP STACK INTO R5 
;POP STACK INTO 04 
.POP STACK INTO R3 
;POP STACK INTO R2 
;POP STACK INTO Rl 
;POP STACK INTO RO 
;;SET UP THE POWER DOWN VECTOR 
;PRI0:7 

REPORT THE POWER FAILURE 
.-POWER FAIL MESSAGE POINTER 

;THE POWER UP SEQUENCE WAb STARTED 
; BEFORE THE POWER DOWN WAS COMPLETE 
;PUT THE SP HERE 



CZRIIOeO RM05/^/? KTNL TST 3 
APT COMML'NI CAT JONS ROUTINE 
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.S8TTL APT COMMUNICATIONS ROUTINE 



SEO 027 



070160 


112737 


000001 


070424 


SATY1 : 


M0V8 


#1.$FFLG 


;T0 REPORT FATAL ERROR 


070166 


112737 


000001 


070**22 


$ATV3: 


M0V8 


*1.$MFLG 


V V u ^ ft ftft^ ^ ^ ft ^ 

;T0 TYPE A MEoSAGE 


0701 74 


000403 








BR 


SATYC 


V A Aft ■ i u M^ f^MM V r ft V A 1 ^ Aft A A 

;T0 ONLY REPORT FATAL ERROR 


070176 


* 12737 


000001 


070424 


$ATV4 ; 


M0V8 


*1.$FFLG 


07020A 








$AT>C: 






.-PUSH RO ON STACK 


07020A 


010046 








MOV 


RO,-(SP) 


070206 


010146 








MOV 


RI.-(SP) 


;PUSH R1 ON STACK 


070210 


105737 


070422 






TST8 


SMFLG 


.•SHOULD TYPE P MESSAGE'' 


070214 


001450 








BEQ 


5$ 


r r ft ■ A ▼ A A 

;IF NOT: BR 


0702''6 


122737 


000001 


001242 




CMP8 


*APTENV,$ENV 


.•OPERATING UNDER APT? 


070224 


001031 








BNE 


3$ 


f r ft 1 A T nA 

;IF NOT: BR 


070226 


132737 


^^^^^^4 ^^^^ 

000100 


001243 




BIT8 


*APTSPOOL ,$ENVM ; 


.'SHOULD SPOOL MESSAGcS? 


070234 


001425 








BEQ 


3$ 


;IF NOT; BR 

."GET MESSAGE ADDR. 


070236 


01 7600 


000004 






MOV 


^ i y #■ M \ M A 

5i4(SP),R0 


070242 


062766 


000002 


000004 




ADD 


#2,4 (SP) 


ni AP Ti lAAi A f\fVA 

;;8UMP RETURN ADDR. 
. SEE IF DONc W/ LAST XM J SSI ON? 


07U250 


005737 


001222 




IS: 


"ST 


SMSGTYPE ; 


C70254 


001375 








BNE 


1$ ; 


; Jr NOT : WAl T 

_ ni iT Ar\r\n iai UAfiDnw 

;PUT ADDR IN MAILBOX 


070256 


010037 


001236 






MOV 


RO,»MSGAD ; 


070262 


105720 






2$: 


TST8 


(RO)* ; 


;FIND END OF MESSAGE 


070264 


001 376 








BNE 


2$ 




070266 


163700 


001236 






SUB 


SMSGAD , RO 


,SU8 STAHT OF MESSAGE 


070272 


C06200 








ASR 


RO 


;GtT MfcSSAwt LNGIH IN WOKUi 


070274 


010037 


001240 






MOV 


PO,»MSGLGT , 


.PUT LENGTH JN PlAiLaOX 


070300 


012737 


Art A A A / 

000004 


AA 1 T T 

001222 




MOV 


ff4,*MbCTYPt 


.TELL APT TU TAKE WiO. 


070306 


0004 1 3 








BR 


5$ 




070310 


017637 


000004 


A T A 7 7 / 

070334 


3$: 


MOV 


S4(SP),4$ 


;PUT MSG ADDR IN jSR LINKAGE 


070316 


062766 


A M MM M 

000002 


A A A A A J 

000004 




ADD 


#2,4 (SP) 


;;8UnP RETURN ADDRESS 
;PU5n \fff/o ON STACK 


070324 


01 3746 


1 7777b 






MOV 


17/'/^/^6,-(SP; 


070330 


004737 


063520 






JSR 


PC.STYPE 


.^Ai 1 Tunc AlA^nA 

;CALL TYPE MACRO 


070334 


^ MAMMA 

000000 






4$: 


.WORD 


A 

0 




070336 








5$: 








070336 


105737 


070424 




4 A^ 

10$; 


TST8 


$FFLG 


.•SHOULD REPORT FATAL ERROR' 


070342 


001416 








BEQ 


12$ 


';jr NOT: on 


070344 


005737 


001242 






TST 


$ENV 


';RUNNING UNDER APT? 


070350 


001413 








BEQ 


12$ 


;IF NOT: BR 


070352 


005737 


001 222 




11$: 


TST 


$MSGTYPE 


•.FINISHED LAST MESSAGE? 


070356 


001375 






BNE 


11$ 


. m t F A 1 A T . 1 1 A T T 

■;IF NOT: WAIT 


07036J 


017637 


AAA A A y 

000004 


001224 




MOV 


■4 (SP; ,$FATAL 


; Gc T E RROR * 


070366 


062766 


A A AAA 

000002 


A A A A A - 

00000<» 




ADD 


*c,4(5P) 


. , oUnr Ht 1 UKN APUH . 

. .TCtI ADT TA TA^C CDDHD 

.TELL API lU lAKt EHHUK 


070374 


005237 


001222 






INC 


SMSGTYPE 


070400 


105037 


070424 




12$: 


CLR8 


$FFLG 


; CLEAR FATAL FLAG 


070404 


105037 


070425 






CLR8 


$LFLG 


•.•CLEAR LOG FLAG 


0^0410 


10503/' 








CLRo 


CMC 1 r 




070414 


012601 








MOV 


{SP)*.R1 


;;POP STACK INTO Rl 


070416 


012600 








MOV 


(SP)».RO 


•;POP STACK INTO RO 


070420 


000207 








RTS 


PC 


;; RE TURN 


070422 


000 






$MFLG: 


.8YTE 


0 


■;MESSG. FLAG 


070423 


000 






$LFLG: 


.8VTE 


0 


;;LOG FLAG 


C 70424 


000 






$FF| G: 


.eYTE 
.EVEN 


0 


■.•FATAL FLAG 



000200 
000001 
000100 
000040 



APT SIZE = 200 
APTENV = 001 
APT SPOOL = 100 
APTCSUP - 040 



STAGES 



f.TM 'ST 3 



p 










SBTTL 


c 

7 




200 


1C3 






I, 


0705 12 


0'?5 


000 




EQUALS' 


J 


070514 


101 


114 


114 


ALL : 


f, 


070521 


C40 


077 


040 


QUES : 




070525 


054 


040 


000 


COMWA: 


s 

o 


070530 


200 


124 


117 


r^SHELP: 


9 


070ft1h 


200 


120 


101 




10 


070704 


200 


103 


1 1 7 






070772 


200 


127 


110 






071054 


200 


1^4 


131 




1 7 


071105 


200 


122 


115 


CNSLOl : 


-4 


071 115 


040 


114 


1 1 1 


CNSL02: 


15 


071 157 


122 


115 


126 


CNSL03: 


16 


071166 


040 


114 


IV 


CNSL04: 


1 7 


071222 


200 


124 


151 


CNSL07: 


18 


071307 


200 


101 


116 




19 


071 36A 


200 






CNSL08: 




C71365 


040 


077 


111 


CNSL09: 


21 


071406 


200 


104 


122 


nSDRVS: 


P2 


071422 


104 


122 


m 


MSGDRV: 


2? 


0714 50 


200 


125 


116 


SYSTAT: 


?<t 


071446 


122 


115 


060 


SRM02 : 


25 


071453 


122 


115 


060 


SRn03: 


26 


071460 


122 


115 


060 


SRM05: 


27 


071465 


040 


116 


117 


NOTRM: 


28 


071506 


040 


1U 


117 


LODEV: 


29 


071523 


040 


116 


117 


NOTPRS: 


30 


071540 


040 


116 


117 


WTAVL : 


31 


071557 


040 


117 


106 


UNTOFF : 


52 


071570 


040 


117 


116 


UNTON: 


33 


071600 


200 


104 


122 


DRIVES: 


3A 


071627 


116 


117 


116 


NONE: 


35 


07163A ' 


1''6 


000 




N: 




071636 


131 


000 




V: 


37 


071640 


040 






Bl NKS4 : 


38 


071641 


040 






BLNXS3: 


39 


071642 


040 






BLNKS2; 




071643 


040 


oco 




6LNKS1 : 












.EVEN 
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CONSOLE MESSAGES 



SEO 0^78 



.ASCJ 
.ASCJ 
.ASCJ 
.ASCI 
.ASCJ 
.ASCJ 
.ASCI 
.ASCJ 
.ASCJ 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCJ 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 

• ASCI 
.ASCI 
.ASCI 
.ASCJ 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 

• ASCI 
.ASCI 
.ASCII 
.ASCI 7 



<CRLF>aCANNOT RECOVER THE BAD SECTOR FILES ON THIS DEVKEi 

a=a 

aALLa<CRLF> 

a ? a 
a a 

<CRLF>aTO ENSURE THAT NO BAD HEADERS ARE LEFT ON THE DISKS 
<CRLF>aPACK, THIS PROGRAM SHOULD BE HALTED BY TYPING A (*C)a 
<C:'<LF>aCONTROL C. AS A RESULT, THE PROGRAM WILL BE HAlTEDd 
<CRLF>aWHEN THE DRIVE UNDER TEST HAS COMPLETED TESTlNG.»<CRLf > 
<CRLF>aTYPE: HELP TEXT (L) N ? S 
<CRLF>aRMCS1=a 

a LIMITS - L0= 160000. Hl= 17XXXXa<CRLF> 

aRMvEC=a 

a LIMITS - L0= 0, HI= 1000a<CRLF><LF> 

<CRLF>aTYPE "A" TO TEST ALL DRIVES, OR TYPE DRIVE ^*JnBERfS)a 
<CRLF>aAND TERMINATE INPUT WITH A CARRIAGE RETUftN.a 

<CRLF> 

a 7ILLEGAL INPUTa<CRLF> 
<CRLF>/DRIVE(SJ: / 
/DRIVE/ 

<CRLF>/UNIT STATUS:/ 

/RM02/ 

/RM03/ 

/RM05/ 

a NOT AN RM05/3/2a 
/ LOAD DEVICE/ 
/ NOT PRESENT/ 
/ NOT AVAILABLE/ 
/ OFFLINE/ 
/ ONLINE/ 

<CRLF>/DRIVE(S) TO BE TESTED/ 

/NONE/ 

/N/ 

/V/ 

/ / 

/ / 

/ / 

/ / 
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^iJNCnON C006 'ABLfc 

.SaTTL FUNCTION CODE TABLE 

3 .-THE FUNCTION CODE TABLE IS USED TO DEFINE STATUS CONDITIONS FOR 

4 .-EACH FUNCTION CODE. BIT USAGE IS AS FOLLOWS: 



t ; ATA - BIT 15 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 

;IF ATA SHOULD BE SET WHEN THE FUNCTION CODE IS EXECUTED, OTHERWISE, 

8 .-eiT 15 IS ZERO. INDICATING THAT ATA SHOULD NOT NORMALLY BE SET, 

9 .-NOTE THAT ATA MAY FJE SET WHEN A COMMAND IS EXECUTED EVEN THOUGH 
10 ;IT IS NOT EXPECTE:* AS A RESULT OF THE COMMAND. 

11 

12 ; WCE - BIT U IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 

13 ;IF WRITE CHECK ERRORS ARE ENABLED AS A FUNCTION OF THE COMMAND. 
K 

15 ; OPI - BIT 13 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 

Ifc ;IF OPI ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 
17 

18 ; IVC - BIT 12 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 

19 ;IF IVC ERRORS APE ENABLED DURING THE EXECUTION OF THAT COMMAND. 

?0 

21 ; WLE - BIT 11 'S SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 

22 ;IF WRITE ERRORS ARE .NABLED DURING THE EXECUTION OF THAT COMMAND. 
2? .-THE WRITE ERRORS WHICH ARE ENABLED ARE 'Mli", 'W, "DPE", 'IJPE". 
2^ 

25 ; lAE - BIT 10 IS SET IN THE ENTRY FOR A GIVEN FUNCMON CODE 

26 ;IF INVALID ADDRESS ERROR IS ENABLED FOR THAT COMMAND. 

2/ 

28 ; AOE - 81 T 09 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 

29 ;IF READ AND WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF the 

30 .-COMMAND. THE ERRORS ENABLED BY THIS BIT ARE '7RE", "DLT". "NEK". 

31 ;*MXF". "L8T". AND "AOE". 
32 

33 ; BIT 08 IS NOT USED. 

35 ; HCE - BIT 07 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 

36 ;IF HEADER ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 

.-HEADER ERRORS INCLUDE "HCRC". "HCE". "fER". AND "BSE". 

38 

39 ; ECH - BIT 06 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 

40 ;]F DATA FIELD ERRORS ARE ENABLED DURING THE EXECUTION OF THA' 

41 .-COMMAND. THESE ERRORS INCLUDE 'WDPE". "DCK". AND 'tCH". 
42 

4? ; BIT 05 IS NOT USED. 

44 

45 ; BIT 04 IS NOT USED. 

46 

47 ; BIT 03 IS NOT USED. 

48 

49 ; BIT 02 IS NOT USED. 

50 

51 ; BIT 01 IS NOT USED. 

52 

53 ; ILF - BIT 00 IS SET IF THE FUNCTION CODE IS ILLEGAL. 

54 

55 071646 FNCDT8: .-FUNCTION CODE TABLE 

56 

57 C 71 646 02000C .WORD OPI ;NiOP 



••LI^CMON code liVBLE 
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SEO 0280 



58 


071650 


1 3000 1 


.WOPD 


OPI 


ATA 


iLf , 


IVC 




ILLEGAL FUNCTION (?) 


59 


071652 


132000 


.WORD 


ATA 


OPI. 


IVC. 


lAE 




SEEK 


t)0 


071 65A 


1 30000 


.WORD 


ATA 


OPI. 


IVC 






RECALIBRATE 


61 


071656 


020000 


.WORD 


OPI 










DRIVE CLEAR 


62 


071660 


030000 


.WORD 


OP] 


IVC 








RELEASE 


63 


07166? 


150000 


.WORD 


OPI 


ATA 


]VC 






OFFSET 


6A 


071664 


130000 


.WORD 


OPI 


ATA. IVC 






RETURN TO CENTERl INE 


65 


071666 


020000 


.WORD 


OP] 










READ IN PRESET 


66 


071670 


020000 


.WORD 


OPI 










PACK ACKNOWLEDGE 


67 


071672 


1 30001 


> . WORD 


OPI 


ATA 


]L.' 


IVC 




ILLEGAL FUNCTION (24) 


68 


071674 


130001 


.WORD 


OPI 


ATA 


iLf 


IVC 




ILLEGAL FUfJCTIOrj (26) 


o9 


071676 


1 52000 


.WORD 


ATA 


OP] 


IVC 


]AE 




SEARCH 


70 


071700 


130001 


.WORD 


OPI 


ATA 


ILf 


IVC 




'ILLEGAL FUNCTION (32) 


71 


071 702 


1 30001 


.WORD 


OP] 


ATA 


ILF 


IVC 




•ILLEGAL FUNCTION (34) 


/2 


071704 


130001 


.WORD 


OPI 


ATA 


iLf 


IVC 




■ILLEGAL FUNCTION (36) 


73 


071706 


1 30001 


.WORD 


OPI 


ATA 


iLf 


IVC 




•ILLEGAL FUNCTION (40) 


74 


071 710 


130001 


.WORD 


OPI 


ATA 


ILF 


IVC 




;ILLEGAL FUNCTION (42) 


75 


071 712 
071 714 


130001 


.WORD 


OPI 


ATA 


ILF 


IVC 




;ILLEGAL FUNCTION (44) 


76 


1 30001 


.WORD 


OP] 


ATA 


ILF 


IVC 




.•ILLEGAL FUNCTION (46) 


77 


071716 


073300 


.WORD 


WCE 


OPI 


IVC 


IAE!AOE!HCE. 


ECH 


; WRITE CHECK DATA 


78 


071 720 


073300 


.WORD 


WCE 


OP] 


]VC 


iae:aoe!hce 


ECH 


;WRITE CHECK HEADER AND DATA 


79 


071 722 


1 30001 


.WORD 


OP] 


ATA 


ILF 


IVC 




.•ILLEGAL FUNCTION (54) 


80 


071724 


1 30001 


.WORD 


OPI 


ATA 


ILF 


']VC 




.•ILLEGAL FUNCTION (56) 


81 


071 726 


037200 


.WORD 


OP] 


JVC 


'WLE 


!IAE!AOE!HCE 




; WRITE DATA 


82 


0/1730 


037000 


.WORD 


OPI 


]VC 


WLE 


'lAEiAGE 




; WRITE HEADER AND DATA 


83 


071732 


1 30001 


.WORD 


OPI 


ATA 


ILF 


'IVC 




.•ILLEGAL FUNCTION (64) 


84 


071 73A 


1 30001 


.WORD 


..OPI 


ATA 


]LF 


'IVC 




; ILLEGAL FUNCTION (66) 


85 


071736 


033300 


.WORD 


"OPI 


]VC 


]AE 


!A0E!HCE:ECH 




.•READ DATA 


86 


071 740 


033300 


.WORD 


OPI 


]VC 


]AE 


!AO£!HCEI£CH 




;READ HEADER AND DATA 


87 


07V42 


130001 


.WORD 


OPI 


ATA 


]LF 


!IVC 




.•ILLEGAL FUNCTION (74) 


88 


J 71 744 


130001 


.WORD 


OPI 


ATA 


'ILF 


!IVC 




.'ILLEGAL FUNCTION (76) 



071 7A7 
07V50 
071751 
071752 
07175? 
071754 
071755 



DC' 
002 
OCA 
010 
020 
040 
100 
?00 
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.S8TTl attention (ATA) TABlE 



ATNT8L: 



.8VTE 
.8VTE 
.8VTE 
.8VTE 
.8VTE 
.8VTE 
.8VTE 
.8VTE 



1. 
2. 
4. 
8. 

16. 
32. 
64. 
123. 
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',A'A '''fyiR\ TABLE 



? 

3 0/1756 

4 071756 

5 071756 000000 

6 071760 000001 

7 071762 000003 

8 071 76^ 000007 
'5 071766 000017 

10 071770 000037 

11 071772 000077 

12 071 7/A 000177 

13 071776 000377 

14 072000 000777 

15 072002 001777 

16 072004 003777 

17 072006 007777 

18 072010 017777 
^9 072012 037777 

20 C72014 077777 

21 072016 ^77777 

22 072020 \77777 

23 072022 077777 

24 072024 037777 

25 072026 017777 

26 072030 007777 

27 072032 003777 

28 072034 001777 

29 072036 000777 
50 072040 000377 

31 072042 000177 

32 072044 000077 

33 072046 000037 

34 C72050 000017 

35 072052 000007 

36 072054 000003 

37 072056 000001 

38 072060 000000 

39 072062 000000 

40 072064 000001 

41 072066 000002 

42 072070 000004 

43 072072 000010 
4A 072074 000020 

45 072076 000040 

46 072100 000100 

47 072102 000200 

48 072104 000400 

49 072106 001000 

50 072110 002000 

51 072112 004000 

52 072114 010000 

53 072116 02000C 

54 072120 040000 

55 072122 100000 

56 072124 100000 

57 072126 040000 
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.S8TTL DATA PATTERN TABLE 



RGDTPT: 
MIXED: 



• WORD 


0. 


.WORD 


1. 


.WORD 


3. 


.WORD 


7. 


.WORD 


15. 


.WORD 


31. 


.WORD 


63. 


.WORD 


127. 


.WORD 


255. 


.WORD 


511. 


.WORD 


1023. 


.WORD 


2047. 


.WORD 


4095. 


.WORD 


8191. 


.WORD 


16383. 


.WORD 


32767. 


ONES: .WORD 


65535. 


.WORD 


65535. 
32767. 


.WORD 


.WORD 


16383. 


.WORD 


8191. 


.WORD 


4095. 


.WORD 


2047. 


.WORD 


1023. 


.WORD 


511. 
255. 


.WORD 


.WORD 


127. 


.WORD 


63. 


.WORD 


31. 


.WORD 


15. 


.WORD 


7. 


.WORD 


3. 


.WORD 


1. 


ZEROS: .WORD 


0. 


.WORD 


0. 


.WORD 


1. 


.WORD 


2. 


.WORD 


4. 


.WORD 


8. 


.WORD 


16. 


.WORD 


32. 


.WORD 


64. 


.WORD 


128. 


.WORD 


256. 


.WORD 


512. 


.WORD 


1024. 


.WORD 


2048. 


.WORD 


4096. 


.WORD 


8192. 


• WORD 


16384. 


.WORD 


32768. 


.WORD 


32768. 


.WORD 


16384. 
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3tu Uf'O 



58 072150 020000 


.WuRD 


8192. 


59 072132 010000 


.UORD 


4096. 


60 072134 004000 


.WORD 


2048. 


61 072136 002000 


.WORD 


1024. 
512. 


62 072140 00"'000 


.WORD 


63 072142 000400 


.WORD 


256. 


64 072144 000200 


.WORD 


123. 


65 072146 OOOTOO 


.WORD 


64. 


66 072150 000040 

67 07215. 000020 


.WORD 


32. 


.WORD 


16. 


68 072154 000010 


.WORD 


8. 


o9 072156 000004 


.WORD 


4. 


70 072160 000002 


.WORD 


2. 


71 072162 000001 


.WORD 


1. 


72 072 1 64 000000 


.WORD 


0. 


73 072166 ^77777 


.WORD 


6553t). 


74 072170 177776 


.WORD 


65534. 


75 072172 177774 


.WORD 


65532. 


76 072174 177770 


.WORD 


65528. 


77 C72176 177760 


.WORD 


65520. 


78 072200 177740 


.WORD 


65504. 
65472. 


79 072202 177700 


.WORD 


80 072204 177600 


.WORD 


65408. 


81 072206 177400 


.WORD 


65280. 


82 072210 177000 


.WORD 


65024. 


83 072212 " 


76000 


.WORD 


64512. 


84 072214 1 


74000 


.WORD 


63488. 


85 072216 1 


70000 


.WORD 


61440. 


86 072220 1 


60000 


.WORD 


57344. 
49152. 


37 072222 1 


40000 


.WORD 


88 072224 1 


00000 


.WORD 


32768. 


89 072226 ( 


J00090 


.WORD 


0. 


90 072230 ( 


)00000 


.WORD 


0. 


91 072232 1 


00000 


.WORD 


32768. 


92 072234 1 


40000 


.WORD 


49152. 


93 072236 1 


60000 


.WORD 


57344. 
61440. 


94 072240 1 


70000 


.WORD 


95 072242 1 


74000 


.WORD 


63488. 


96 072244 1 


76000 


.WORD 


64512. 


97 072246 1 


77000 


.WORD 


6502A. 


98 072250 1 


77400 


.WORD 


65280. 


99 072252 1 


77600 


.WORD 


65408. 


TOO 072254 1 


77700 


.WORD 


65472. 


101 072256 " 


77740 


.WORD 


65504. 


102 072260 " 


77760 


.WORD 


65520. 


103 072262 ' 


77770 


.WORD 


65528. 


104 072264 


77771, 


.WORD 


65532. 


105 072266 ' 


7777b 


.WORD 


65534. 


106 072270 ' 


77777 


.WORD 


65535. 


107 Q72272 ■ 




EARiy.- .WORD 


43690. 


ICS 072274 ■ 


S2525 


.WORD 


43690. /2 


109 072276 


25252 


.WORD 


43690. 


no 072300 


77777 


.WORD 


65535. 


111 072302 


77776 


.WORD 


65534. 


112 072304 


7777S 


.WORD 


65533. 


115 072306 


77771 


.WORD 


65531. 


'14 072310 777767 


.WORD 


65527. 
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SEO OPS'. 



115 
116 

117 
118 
119 
120 
121 
122 
^23 
^24 
125 
126 
127 
V8 
129 
130 
131 
^32 
"33 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 



072312 
072314 
072316 
072320 
072322 
072324 
072326 
C72330 
072332 
072334 
072336 
072340 
072342 
072344 
072346 
072350 
072352 
072354 
072356 
072360 
072362 
072364 
072366 
072370 
072372 
072374 
072^76 
072400 
072402 
072404 



1 777S7 




6S519 


1 777X7 






\ f f Of f 




65471 


1 77^77 
if f J f f 




65C07 


1 77X77 

I f f jf f 




65279 


1 7A777 




65023. 


1 7^777 




6451 1 


1 7\777 


UORD 


63487 


1 A7777 




61439 


1 ^7777 
\ jf f f f 


UORD 


57343 


1 \7777 




49151 . 
32767* 


CS77777 




077777 

\J f / f f 1 


UORD 


12767. 


I J f f f 


UORD 


49151 


1 '^7777 


UORD 


57343' 


•[(^7777 


UORD 


61439. 


1 7'^777 


UORD 


6^487. 


1 7^777 


UORD 


64511 . 
65023 


1 7f>777 


UORD 


177377 


UORD 


65279 


1 77S77 




65407. 


177677 


UORD 


65471 . 


1 77737 


.UORD 


65503 


177757 


luORD 


65519. 


177767 


.UORD 


65527. 


1 77773 


.UORD 


65531. 
65533. 


1 77775 


.UORD 


1 77776 


.UORD 


65534. 


1 77777 


.WORD 


65535. 



ENRGDT; 



fhHOR neSSAGE TABLE 



1 
2 

5 0724W 

4 072410 

5 072416 

6 072424 

7 072452 

8 072440 

9 072446 
10 072454 
n 072460 
12 072464 
15 072472 

14 072504 

15 072512 

16 072520 

17 072550 

18 072540 

19 072550 

20 C72560 

21 072570 

22 072600 
25 072610 

24 072620 

25 072650 

26 072640 

27 072650 
?8 072660 

29 072670 

30 072700 

51 072710 

52 072720 
55 072750 

54 072740 

55 072746 

56 072756 

57 072770 

58 075000 

59 075010 

40 075020 

41 075050 

42 073036 

43 073046 

44 073060 

45 073076 

46 073114 

47 073124 

48 075156 

49 075154 

50 075164 

51 075202 

52 073222 
55 075236 

54 075240 

55 073260 

56 075500 

57 073312 



076772 
077041 
077041 
077164 
077164 
103766 
101753 
077261 
077526 
077570 
077442 
077556 
077370 
077370 
077570 
077570 
077570 
077570 
077570 
077570 
077570 
077570 
077570 
077570 
077570 
077570 
077370 
0/7370 
077370 
077570 
077570 
101271 
101457 
105261 
100575 
101516 
101544 
101572 
101225 
077442 
077370 
100575 
100575 
100624 
103216 
100655 
105766 
100774 
101400 
105147 
000000 
105354 
100701 
105725 
105725 



TST 5 



000000 

077056 

077121 

077214 

077526 

101205 

104015 

000000 

000000 

077401 

077455 

101205 

077621 

077644 

077660 

077706 

077755 

077752 

100014 

100045 

100072 

100120 

100171' 

100220 

100247 

100275 

100324 

100352 

100401 

100450 

100505 

077576 

105170 

105271 

100711 

100711 

100711 

100711 

101205 

077464 

100546 

100711 

100711 

100711 

105253 

101415 

101425 

101541 

100774 

101341 

105416 
104415 
101647 
101647 
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.SBTTL ERROR MESSAGE TABLE 



000000 
000000 
000000 
000000 
000000 
000000 



000000 
077464 
000000 
000000 
077775 
100004 
1000U4 
077775 
077775 
100004 
100004 
100004 
100004 
100004 
100004 
100004 
100004 
100004 
100004 
100004 
100004 
100004 
OOOOOC 
101465 
101415 
101465 
101465 
101465 
101465 
000000 
101157 
100004 
101341 
101341 
101341 
100711 
101341 
101341 
102153 
101341 
102153 

101566 
104574 
101413 
101413 



EMTI 

EMT2 

EMT3 

EMT4 

EMT5 

EMT6 

EMT7 

EMTIO 

EMT11 

EMTI 2 

EMT15 

EMT14 

EMTI 5 

EMT16 

EMTI 7 

EMT20 

EMT21 

EMT22 

EMT25 

EMT24 

EMT25 

EMT26 

EMT27 

EMT50 

EMT51 

EMT52 

EMT33 

EMT34 

EMT35 

EMT36 

EMT37 

EMT40 

EMT41 

EMT42 

EMT45 

EMT44 

EMT45 

EMT46 

EMT47 

EMT50 

EMT51 

EMT52 

EMT53 

EMT54 

EMT55 

EMT56 

EMT57 

EMT60 

EMT61 

EMT62 

EMT65 

EMT64 

EMT65 

EMT66 

EMT67 



.WORD EMS 1.0 

.WORD EMS2.EMS5.0 

.WORD EMS2.EMS4.0 

.WORD EMS5.EMS6.0 

.WORD EMS5.EMS10.0 

.WORD EMS167.EMS64,0 

.WORD EMS110.EMS170,0 

.WORD EMS7.0 

.WORD EMS10.0 

.WORD EMS11.EMS12.0 

.WORD EMS13,EMS14,EMS15.EMS16.0 

.WORD EMS17.EMS64.0 

.WORD EMS11,EMS21.0 

.WORD EMS11,EMS22,EMS27,0 

.WORD EMS11.EMS25,EMS50,0 

.WORD EMS11 ,EMS24.EMS50.0 

.WORD EMSn ,EMS25,EMS27,0 

.WORD EMS11,EMS26,EMS27.0 

.WORD EMS11 ,EMS51,EMS50,0 

.WORD EMS11 ,EMS52,EMS50,0 

.WORD EMSn,EMS55,EMS50,0 

. WORD EMS 1 1 , EMS54 , EMS50 , 0 

.WORD EMS11,EHS35,EMS3C,0 

.WORD EMS11,EMS36,EMS30,0 

.WORD EMSn,EHS37,EMS30,0 

.WORD EMS11.EHS40.EMS30.0 

.WORD EnsmEns4i,Ens30,o 

.WORD E«Sn.EMS42,E«S30.0 

.WORD EMS11.EHS43,EMS30.0 

.WORD EMS11,EHS44,EMS30.0 

.WORD EMS11.EMS45,EMS30.0 

•WORD EMS66.EMS20,0 

.WORD EMS75.EMS141,EMS76.0 

.WORD EMS144,EMS145.EMS72.EMS76.0 

.WORD EMS47,EMS53.EMS76.0 

.WORD EMS77,EMS53,EMS76,0 

.WORD EMS100.EMS53.EMS76.0 

-WORD EMS101.EMS53,EMS76.0 

.WORD EMS65,E«S64,0 

.WORD EMS13,EHS15,EMS63.0 

.WORD EMS1 1 .EHS46,EMS30,EMS67,0 

.WORD EMS47.EHS53,EMS67,EMS115.EMS140.EMS141.0 

.WORD EMS47,EMS53.EMS67,EMS115,EMS141.EMS164.0 

.WORD EMS50-EMS55.EMS67,0 

.WORD EMS1<2,EHS145.EMS55.EMS67,0 

.WORD EMS51,EMS72,EMS67.EMS115.EMS50.EMS70.0 

.WORD EMS167.EMS75,EMS67,0 

.WORD EMS56,EHS67,EMS115,EMS150.EMS152.EMS70.0 

. WORD EMS 71 . EHS56-EMS67, EMSl 1 5 , EMS 1 50 . EMS 1 52 . EMS72 . 0 

. WORD EMS 1 40 . EMS67 , EMS 1 1 5 . EMS47 . EMS 70 . 0 

.WORD 

.WORD EMS150,EMS152,EMS70,EMS115,EMS56.EMS75.EMS67.0 

.WORD EMS52,EMS205,EMS214.EMS206,EMS115.EMS51.EMS72.0 

. WORD EMS 1 65 . EMS 1 03 , EMS72 . EMS 1 24 , 0 

. WORD EMS 1 65 . EMSl 03 , EMS 72 . EMS 1 71 . 0 
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S8 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
o9 
70 
71 
72 
73 
7A 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
'12 
)M 
'^4 



073324 
073334 
073344 
073362 
073400 
073410 
073430 
073440 
073452 
073470 
073506 
073516 
073530 
073546 
073556 
073566 
073606 
073620 
073626 
C73634 
073650 
075656 
073666 
073676 
073706 
073716 
073726 
073736 
073746 
073756 
073766 
074000 
074012 
074024 
074036 
074050 
074062 
074074 
074106 
074120 
074130 
074140 
074150 
074160 
074170 
074200 
074210 
074220 
074230 
074240 
074252 
074264 
074302 
074520 
074532 
074344 
C743S6 



100546 

101400 

100575 

100575 

100774 

101400 

100624 

103216 

101457 

101457 

103766 

103337 

100653 

103725 

103725 

103261 

101753 

102077 

102077 

101753 

102077 

102251 

102314 

102351 

102414 

102446 

102511 

103112 

102613 

102651 

102251 

102314 

102351 

102414 

102446 

102511 

103112 

102613 

102651 

102251 

102351 

102251 

103112 

102414 

102AA6 

102511 

102651 

104042 

102613 

103147 

103216 

103261 

103261 

103354 

103337 

103337 

103570 



077576 
101572 
101413 
101413 
100711 
100774 
100711 
103233 
103170 
103354 
101423 
103372 
101440 
101544 
101516 
103271 
102013 
077121 
077056 
102153 
102230 
102711 
102711 
102711 
102711 
102711 
102711 
102711 
102711 
102711 
102711 
102711 
102711 
102711 
102711 
102711 
102711 
102711 
102711 
102711 
102711 
102711 
102711 
102711 
102711 
102711 
102711 
102711 
102711 
102153 
102153 
103271 
103271 
103416 
103372 
103372 
105520 



103620 
1C3620 
103620 
103620 
103620 
103620 
103620 
100711 
103620 
103620 
103620 
101440 
103620 
103620 
103620 
100711 
102156 
000000 
000000 
102156 
000000 
102735 
102735 
102735 
102735 
102735 
102735 
102735 
102735 
102735 
102760 
102760 
102760 
102760 
102760 
102760 
102760 
102760 
102760 
103022 
103022 
103065 
103065 
103065 
103065 
103065 
103065 
103065 
103065 
103170 
103233 
103320 
077576 
103464 
103464 
103520 
103553 



EMT70 

EMT71 

EMT72 

EMT73 

EMT74 

EMT75 

EMT76 

EMT 77 

EMT100 

EMT101 

EriT102 

EriT103 

EMT104 

EMT105 

EMT106 

EMT107 

EMTllO 

EMT111 

EMT112 

EMT113 

EMT114 

EMTIIS 

EMT116 

EMT117 

EMT12C 

EMT121 

EMT122 

Ef1T123 

EMT124 

EMT125 

Ef1T126 

EMT127 

EMT130 

EMT131 

EMT132 

E)1T133 

EMT134 

EMT135 

EMT136 

EMT137 

EMT140 

EMT141 

EMT142 

EMT143 

EMT144 

EMT145 

EMT146 

EMT147 

EMT150 

EMT151 

EMT152 

EMT153 

EMT154 

EMT155 

EMT156 

EMT157 

EMT160 



.WORD EMS46.EMS20.EMS165.0 

.WORD EMS71.EMS101.EMS163.0 

.WORD EMS47.EMS72.EMS163.EMS115.EMS140.EMS141.0 

.UOHD EMS47.EMS72.EHS165.EMS115.EMS141.FMS72.0 

.WORD EMS56.EMS53. EMS 163.0 

.WORD EMS71 .EMS56.EMS163.EMS115.EMS150.EriS152.Ef1S72.0 

.WORD EMS50.EMS53.EI1S163.0 

.WORD EMS142.EMS143.EMS53.EMS163,0 

.WORD EMS75.EMS141.EMS163.EMS115,EMS47.EMS70.0 

.WORD Ef1S75,EMS150.EMS163.EMS115.EMS56,EMS73.0 • 

.WORD EMS167.EMS73,EMS163.0 

.WORD EMS147.EMS151,EriS74,EMS163.0 

.WORD EMS51.EMS74,EriS163.EMS115,EMS50,EMS70,0 

.WORD EMS165,EMS100.EMS163.0 

.WORD EMS165,EMS77,EMS163.0 

.WORD EMS144,EMS145,EMS53.EMS163,EMS115,EMS143.EMS70,0 

.WORD EMS1 10,E«S1 1 2.EMS1 16,EMS1 1 1 ,0 

.WORD EMS113.EMS4.0 

.WORD EMS113.EMS3,0 

.WORD EMS110.EMS115.EMS116,EMS117.EMS114,0 

.WORD EMS113,EMS120,0 

.WORD EMS121.EMS132.EMS133.0 

.WORD EMS122,EMS132.EMS133,0 

.WORD EMS123,EMS132,EMS133,0 

.WORD EMS124,EMS132.EMS133,0 

.WORD EMS125,EMS132.EMS133.0 

.WORD EMS126.EMS132.EMS133.0 

.WORD EMS137.EMS132.EMS133.0 

.WORD EMS130.EMS132.EMS133,0 

.WORD EMS131,EMS132.EMS133,0 

.WORD EMS121 ,EMS132.EMS134,EMS123.0 

.WORD EMS1 22. EMS132,EMS134.EMS1 25.0 

.WORD EMS123.EMS132.EMS134.EMS123,0 

.WORD EMS124.EMS132.EMS134.EMS123 0 

.WORD EMS 1 25 . EMS 1 32 . EMS 1 34 . EMS 1 23 . 0 

.WORD EMS 1 26 . EMS 1 32 . EMS 1 34 . EMS 1 23 . 0 

.WORD EMS137.EMS132.EMS134.EMS125.0 

. WORD EMS 1 30 . EMS 1 32 . EMS 1 34 . EMS 1 23 . 0 

.WORD EMS131 .EMS132.EMS134.EMS123,0 

'.WORD EMS121.EMS132.EMS135.0 

.WORD EMS123.EMS132.EMS135.0 

.WORD EMS121.EMS132,EMS136.0 

.WORD EMS137.EMS132.EMS136.0 

.WORD EMS124,EMS132,EMS136.0 

.WORD EMS125.EMS132.EMS136.0 

.WORD EMS126.EMS132.EMS136,0 

.WORD EMS131.EMS132.EMS136.0 

.WORD EMS171 ,EMS132.EMS156.0 

.WORD EMS130,EMS132.EMS156.0 

'.WORD EMS140,EMS115.EMS141.EMS70.0 

.WORD EMS142.EMS115.EMS143.EMS72.0 

.WORD EMS144,EMS145.EMS146.EMS115.EMS145.EMS72.0 

.WORD EMS 1 44 . EMSl 4 5 . EMS20 . EMS 1 1 5 . EMS 1 4 5 . EMS 70 , 0 

.WORD EMS150.EMS152.EMS154. EMSl 53.0 

.WORD EMS147.EMS151.EMS154.EMS155.0 

.WORD EMS147.EMS151.EMS156.EMS157,0 

.WORD EMS161.EMS156.EMS160.0 



CZRMOeO RM05/5/2 KTNl 
fRRO« MfSSAGE TABLE 



TST 3 MACRO V04.00 
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SEO 0?87 



115 

117 
iig 

r9 

1?0 

1^1 

122 

'23 

'24 

125 

'26 

127 

'f8 

129 

130 

131 

132 

133 

134 

135 

13t 

'17 

158 

^39 

14C 

14- 

14;; 

'45 

144 

145 

14<3 

147 
148 
149 

' e 1 

152 
T^3 
' )4 
155 
156 
157 
158 
159 
160 
161 
"62 
163 
164 
165 
166 
167 
168 
169 
170 

1 71 



074366 
074400 
074412 
074422 
074430 
D74436 
374444 
074452 
074464 
074474 
074504 
074514 
074526 
074554 
074542 
074544 
074556 
074570 
074602 
C74614 
074632 
074642 
074652 
074664 
074672 
074706 
074722 
074732 
074752 
074764 
074774 
075004 
07S014 
075024 
075034 
075044 
075046 
075050 
075052 
075054 
075056 
075060 
075062 
075064 
075066 
075070 
07507? 
075074 
075076 
075100 
075102 
075104 
075106 
075110 
075120 
075132 
075146 



077735 
077752 
100575 
100575 
100774 
100546 
105114 
104352 
103766 
103766 
104042 
104042 
102077 
104237 
000000 
104352 
104352 
104352 
104352 
103354 
100624 
101656 
101457 
101457 
100653 
103216 
100624 
100701 
100701 
100774 
100546 
100014 
100575 
100701 
100701 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
103766 
103766 
103766 
104526 



077773 
(J7777^ 
103620 
077576 
077576 
077576 
077576 
103170 
103464 
103464 
102711 
102711 
104215 
104254 

100653 
104365 
100624 
103233 
101440 
101647 
101423 
103170 
103354 
10K13 
100711 
101647 
104413 
102206 
100004 
100004 
100004 
100004 
102206 
102206 



1C3520 
103520 
103147 
000000 
000000 
000000 
000000 
100004 
103536 
103500 
102735 
102760 
000000 
000000 

100004 
100004 
100004 
100004 
104322 
101413 
104322 
102153 
000000 
102153 
102153 
100711 
103741 
100774 
101205 
101205 
101205 
101205 
101516 
101157 



102711 
102711 
104510 
10455' 



104452 
104477 
104477 

000000 



EMT161 

EMT162 

cMn03 

EMT164 

EMT165 

EMT166 

EMT i67 

EMT170 

EMT171 

EMT1 72 

E/1T173 

EMT174 

EMT175 

E/1T176 

EMT1 77 

EMT200 

EMT201 

EMT202 

EMT203 

EMT204 

E«T20: 

EM T 206 

E/1T207 

EMT210 

EMT211 

EHT212 

EMT213 

EMT214 

E«T215 

E«T216 

EMT217 

E«T220 

EMT221 

EMT22? 

EMT223 

EMT224 

EMT225 

EMT226 

Em227 

EMT230 

EMT231 

EMT232 

EMT233 

E/1T234 

EMT235 

EMT236 

E«T237 

EMT240 

EMT241 

EMT242 

E/1T243 

E/1T244 

EMT245 

EMT246 

EMT247 

EriT250 

E*1T251 



• WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.VORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



E«S25,EMS27,tMS156.EMS160.0 

EMS26.EMS2?.EMS156,EMS160.0 

EMS47.EMS163,EMS140.0 

EMS47.EMS20.0 

EMS56.EMS20.0 

EMS46.EMS20.0 

EMS224.EMS20,0 

EMS203,EMS141 .EMS30,EMS202.0 

EMS167.EMS154.EMS157.0 

E/1S167.EMS154.EMS155.0 

E/1S171.EMS132.EMS133.0 

E/1S171,EMS132.EMS134.EMS123,0 

EMS113.EMS177,0 

E>iS200.EMS201.0 

E/1S203.EMS51 .E/1S30,EMS202,0 

EMS203.EMS204,EMS30.E/1S202.0 

E«S203.EMS50.EMS30,EMS202.0 

EMS203 . EMS1 43 . E/1S30 , EMS202 . 0 

EMS 1 50 , EMS 74 , EMS202 . EMS 1 1 5 , EMS ^ 52 , EMS72 , 0 

EMS50.EMS103.FMS72,0 

EMS 104, EMS 73. EMS 202,0 

EMS75.EMS141,EMSn5.EMSU0,0 

EMS75,EMS150,0 

EMS51.EMS72.Er .115,EMS50,EMS70,0 

EMS142,EMS53,EMS115.EMS143,EMS72.0 

EMS50,EMS103,EMS53,0 

EMS52 , EMS205 . :MS 1 66 , EMS206 . EMS 1 1 5 . EMS 5 1 , EMS 72 , 0 

EMS52 . EMS1 1 7, EMS56 , EMS1 63 . 0 

EMS56,EMS30,EMS64,0 

EMS46,EMS30,EMS64.0 

EMS31,EMS30,EMS64,0 

EMS47,EnS30,EMS64,0 

EMS52,EMS117,EMS77,0 

EMS52.EMS117,EMS63.0 



EMS167.EMS132.EMS207.0 
EMS167.FMS132.EMS210,EMS125,0 
EMSl67,EMS2r .EMS210.EMS207,EMS206.0 
EMS212,EMS213.0 



ZRHOeO RM05/5/2 FCTNL 
RROR MESSAGE TABlE 

V? OT-SISA 103725 

75 075162 103337 

-74 075200 104352 

175 075210 104352 

176 075220 104352 

177 075230 077370 

178 075242 100701 

179 07S254 100701 

180 075274 101656 

181 075304 100624 

182 075314 100774 
133 075334 101400 

184 075354 103216 

185 075366 100624 

186 075404 100575 

187 075420 100575 

188 075436 101457 

189 075454 100653 

190 075472 101157 
^91 075510 102156 

192 075522 100575 

193 075536 100575 

194 075554 100774 

195 075574 101400 

196 075616 103725 

197 075630 103725 

198 075642 103725 

199 075654 100546 

200 075666 100o24 

201 075676 100624 

202 075716 103216 
204 075730 101656 

204 075742 101705 

205 075754 103261 

206 075774 100352 

207 076006 100014 

208 076020 10U00 

209 076032 100401 

210 076042 100503 

211 076052 100430 

212 076062 101734 

213 076070 100220 

214 076100 104115 

215 076112 104075 

216 076124 077442 

217 076142 103337 

218 076154 101271 

219 076164 100072 

220 076176 100275 

221 076210 100653 

222 076226 101457 

223 076244 101457 

224 076264 101077 

225 076274 102156 

226 076304 ^00120 

227 076316 100745 

228 076324 100701 



TST 3 MACRO 



104526 000000 

103372 ^03520 

101572 100004 

103766 100004 

101544 100004 

100546 100004 

102206 100774 

104413 104716 

101423 104322 

100711 101620 

100711 101620 

100774 101620 

103233 100711 

103320 102153 

100711 101620 

100711 101620 

103170 101620 

101440 101620 

100711 101051 

100711 100324 

100711 101051 

100711 101051 

100711 101051 

100774 100711 

101544 101647 

101572 101647 

101516 101647 

100004 101205 

100711 101051 

103320 102153 

103233 100711 

101647 100711 

101647 100711 

103271 101647 

101647 100711 

101647 100711 

100014 101647 

101647 101051 

101647 101051 

101647 101051 

077576 000000 

101647 101051 

100220 101647 

100220 101647 

104132 077464 

103372 101440 

100711 104140 

101647 100711 

101647 100711 

101440 101051 

103170 101051 

103354 103416 

101112 101141 

702206 100120 

100711 100723 

100120 000000 

102206 100774 



.00 4-APR-81 



EMT252: .WORD 
EMT253: .WORD 
EMT254: .WORD 
EMT255: .WORD 
EMT256: .WORD 
EMT257: .WORD 
EnT260: .WORD 
EMT261: .WORD 
EMT262: .WORD 
EMT263: .WORD 
EMT264: .WORD 
EMT265: .WORD 
EMT266: .WORD 
EMT267: .WORD 
EriT270: .WORD 
EMT271: .WORD 
Em 272: .WORD 
EMT273: .WORD 
EMT274: .WORD 
EMT275: .WORD 
EMT276: .WORD 
EMT277: .WORD 
EnT300: .WORD 
EMT301: .WORD 
EMT302: .WORD 
EMT303: .WORD 
EMT304: .WORD 
EMT305: .WORD 
EMT306: .WORD 
EMT307: .WORD 
EMT310: .WORD 
EMT311: .WORD 
EMT312: .WORD 
EMT313: .WORD 
EMT314: .WORD 
EMT315; .WORD 
EnT316: .WORD 
EMT317: .WORD 
EMT320: .WORD 
EMT321: .WORD 
EMT322: .WORD 
EMT323: .WORD 
E.MT324: .WORD 
EMT325: .WORD 
EMT326: .WORD 
EMT327: .WORD 
EMT330; .WORD 
EMT331: ,WORD 
EMT332: .WORD 
EMT333: .WORD 
EMT334: .WORD 
EMT335: .WORD 
EMT336: .WORD 
EriT337: .WORD 
EMT340: .WORD 
EMT341: .WORD 
EMT342: .WORD 



C 7 

01 : 1 5 : 59 PAGE 54-3 
EMS165.EMS212.0 

EMS147.EMS151.EMS'56,EMS210.EMS26,EMS27,0 

EMS203.EMS101.EMS30.0 

EMS203,EMS167,EMS30,0 

EMS203.EMS100,EMS30.0 

EMSll .EMS46-EMS30,EMS102,0 

EMS52.EHS117,EMS56-EMS102.0 

EMS52 . EMS205 . EMS220 . EMS206 . EMS 1 1 5 , EMS5 1 . EMS 72 , 0 

EMS104.EMS73.EMS202,0 

EMS50.EMS53,EMS102.0 

EMS56,EMS53,EMS102,EMS115.EMS150.EMS152,EMS70,U 

EMS71 .EMS56,EMS102.EMS115.EMS150,EMS152.EMS72,0 

EMS142.EMS143,EMS53,EMS102,0 

EMS50.E«S146.EMS115,EMS52,EMS117.EMS46,0 

FMS47.E«S53,EMS102.EMS115,EMS140.0 

EMS4 7 , EMS53 , EMS 1 02 . EMS 1 1 5 , EMS 1 4 1 , EMS72 . 0 

EMS75,EMS141 .EMS102,EMS1 1 5.EMS47,EMS73.0 

EMS5 1 . EMS74 , EMS 1 02 , EMS 1 1 5 . EMS50 . EMS "'0 . 0 

EMS63 . EMS5 3 , EMS 5 7 . EMS 1 1 5 , EMS4 1 . EMS 1 46 . 0 

EMS1 16,EMS53.EMS41 ,EMS57,0 

EMS4 7 , EMS53 , EMS 5 7 . EMS 1 1 5 , EMS 1 40 . 0 

EMS47,EM$53,EMS57,EMS115,EMS141,EMS72,0 

EMS56,EMS53,EMS57.EMS115,EMS1S0,EMS152,EMS70.0 

EMS71 -EHS56-EMS53 .EMS57,EMS1 1 5.EMS1 50,EMS1 52. EMS '2.0 

EMS165,EHSlOO,EnSl03,EMS57.0 

EMS165.EMS101.EMS103.EMS>7,0 

E«S165.EMS77.EMS103,EMS57.0 

EMS46.EMS30.€MS64,EMS57.0 

EMS50.EMS53.EMS57,0 

EMS50,EMS146.EMS115.EMS52,EMS117,EMS46.EMS57.0 
EMS142.EMS143.EMS53,EMS57.0 
EMS104.EMS103.EMS53,EMS57.0 
E«S105,EHS103.EMS53.EMS57.0 

EMS144,EnS145.EMS103,EMS57.EMS115,EMS143.EMS70.0 

EMS42,E«S103,£MS53.EMS57,0 

EMS31 ,EHS103,£MS53.EMS57.0 

EMS71 ,EMS31 .EMS103,fMS57.0 

E«S43,E«103,E«S57,0 

EMS45.EHS103.EMS57,0 

E«S44.E«S103.EMS57,0 

EMS106,E«1S20.0 

EMS36.EHS103.EMS57,0 

EMS173.EHS36,EMS103,EMS57,0 

EMS172,E«S36.EMS103,EMS57.0 

EMS13,EHS174,EMS15,EMS35,EMS53.EMS175.0 

EMS147.EMS151 .EMS74,EMS175,0 

EMS66.EMS53,E«S175,0 

EMS33.EMS103,EMS53.EMS175.0 

EMS40,EMS103.EMS53.EMS57.0 

EMS51 ,E«S74,EMS57,EMS1 1 5,EMS50,EMS70,0 

E«S75,EMS141,E«S57.EMS115.EMS47.EMS73.0 

EMS75 .EMSl 50,E«S1 52.EMS57,EMS1 1 5 .EMS56.EMS73.0 

E«S60,EMS61,EMS62,0 

EMS116,E«S117,EMS34,0 

EMS34.EMS53,EMS54.EMS111.0 

EMS55. EMS 34,0 

EMS52.EMS11/',EMS56.EMS57.0 



''7P'*CB0 RMOS/3/2 FC^NL TST 3 
ERf<OR MESSAGE TABLE 



d29 076356 
230 076350 
?51 076562 
232 076372 
253 076A06 
23A 076^20 

255 076A36 

256 076^46 

257 076A52 

258 076A62 



100701 
100701 
100701 
101 754 
100701 
10U57 
105766 
104612 
10A665 
1 0A 756 



102206 
102206 
102206 
077576 
104415 
103354 
101425 
000000 
104552 
077576 



liACRO V04.00 



D 7 
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100505 
100430 
104736 
102153 
105006 
101620 
101620 

104653 
000000 



EMT345 
FMT344 
EMT545 
EMT346 
EMT347 
EMT550 
EMT551 
EMr552 
EMT555 
EMT554 



.WORD EMS52,EMS1 17.EMS45.EMS57,0 

.WORD EMS52.EMS117,EMS44.EMS57.0 

.WORD EMS52,EMS117.E^S221.0 

.WORD EMS106.EMS20.EMS115,EMS223.EI1S72.0 

. WORD EMS52 . EMS205 , EMS222 . EMS206 . 0 

.WORD EMS75.EMS150.EMS102.EMS115,E«S56,EMS73,0 

.WORD EMS167,EMS73.EMS102,0 

.WORD EMS215.0 

.WORD EMS217,EMS205,EMS216.0 

.WORD Er»S221,EMS20.0 



;55^C RM05/?/i? FCTML 
FRtiOR MESSAGE TASlE 



TST 3 MACRO V04.00 i;-APR-81 01:15-59 PAGE 



7 

55 



3 
A 
5 
6 
7 
8 
9 
10 

n 

12 
13 



076^70 
076502 

076512 
076516 

076522 
076526 
076540 

076552 
076564 
076576 



S£0 0290 



105166 
105772 

105205 
1052H 

105233 
105262 
105310 

105364 
105423 
^05560 



105772 
106047 

000000 
000000 

000000 
105772 
105772 

105772 
105772 
105772 



15 076610 105716 000000 



106047 EHTl: .WORD EHl .STSHI ,STSH2.STSH4,0 

1061 7<, EHT2: .WORD STSHi .STSH2.3TSH4,0 

EHT110: .WORD EHllO.O 

EHT111; .WOKD EHin.O 

ft 

EHT114: .WORD EHlU.O 

106047 EHT223: .WORD tH223, STSHi ,STSh2,STSh4,0 

106047 EHT256: .WORD EH256. STSHi ,STSh2,STSH4.0 

106047 EHT336: .WORD EH336.STSH1 ,STSH2,STSH4.0 

106047 EHT337: .WORD EH337,STSH1 ,STSH2,STSH4.0 

106047 EHT344: .WORD EH344. STSHI ,STSH2,STSH4,0 

EH-353: .WORD EH353.0 



I 
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2 
I 
<. 
5 
6 
7 
8 
9 

^0 
1 ^ 

12 

'A 



C766K 
076624 

076632 
0766?4 

076656 
0766A0 

076650 
076660 
076670 
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106252 
106326 

1062A0 
1062A4 

106252 
106262 

106272 
106304 
106304 



076702 106316 



106526 106544 EDT1: .WORD EDI .STSDI ,STSD2,STS04 

106344 106576 EDT2: .WORD STSDI ,STSD2.STSD4 

EDT110: .WORD ED1 10 

EDT111: .WORD ED1 11 

EDT114: .WORD ED114 

106526 106344 EDT223: .WORD ED223. STSDI ,STSD2.STSD4 

106326 106344 EDT356: .WORD ED336. STSDI ,STSD2,STSD4 

106326 106344 EDT337: .WORD ED337, STSDI ,STSD2.STSD4 

106326 106344 EDT344: .WORD ED337. STSDI .STSD2.STSD4,0 

EDT353: .WORD ED353 



cci^^w MtSbAGE TABLE 



3 
U 
5 
6 

7 

8 

10 



07670<. 
0767' i, 

07^722 
076724 

076726 
C76730 

0767A0 
076750 
076760 



1064^'' 
106427 

^06410 
106411 

106413 
106413 

106416 
106416 
106416 
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10642"' 10642/ £FT1: .WORD EM 1 1 ,STSF ,S1SF ,STSF 

106427 106427 FFT2: .WORD STSF .STSF .STbF 

EFTIIO: .WORD EF110 

EH 111: .WORD EF 111 

EFTIH: .WORD EF114 

106427 106427 EFT22^: .WORD EF114.STSF,STSF ,STSF 

106427 106427 EFT336: .WORD EF336.STSF ,STSF ,STSF 

106427 106427 EFT337: .WORD EF336.STSF ,STSF .STSF 

106427 106427 EFT344: .WORD EF336,STSF .STSF ,STSF 



SfO 0?9? 



076770 106413 



EfT353: .WORD EF114 



\ 
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,S8TTL ERROR MESSAGE STRINGS 



I 


076772 


127 


122 


117 


EMS1 : 


4 


077041 


104 


105 


126 


EMS2: 


5 


077056 


125 


116 


101 


EMS 3: 


6 


077121 


116 


117 




EMS4: 




103 


117 


115 


EMS 5: 


8 


077214 


103 


117 


116 


EMS6: 


9 


077261 


10A 


122 


m 


EMS7: 


10 


077326 


107 


117 


040 


EMS 10 




077370 


111 


116 


126 


EMS11 


^^ 


077401 


106 


125 


116 


EMSi2 


13 


077442 


115 


101 


123 


EMS 13 


*A 


077453 


103 


117 


116 


EMS14 


15 


077464 


102 


125 


123 


EMS 15 


16 


077506 


042 


115 


103 


EMS16 


17 077536 


124 


122 


101 


EMS17 


'8 


0775^6 


123 


no 


117 


EMS20 


^9 


077621 


127 


117 


122 


EMS21 


20 


077644 


102 


125 


123 


EMS22 


21 


077660 


042 


114 


102 


EMS23 


22 


077706 


042 


101 


r7 


EMS24 


23 077735 


104 


111 


123 


EMS25 


24 


077752 


103 


131 
104 


114 


EMS26 


25 


077775 


101 


104 


EMS27 


26 


100004 


123 


124 


101 


EMS30 


27 


100014 


042 


127 


• 114 


EMS31 


28 


100043 


042 


125 


120 


EMS32 


29 


100072 


042 


127 


103 


EMS33 


30 


100120 


127 


122 


111 


EMS34 


31 


100171 


042 


115 


104 


EMS35 


3^ 


100220 


042 


104 


103 


EMS36 


33 


100247 


042 


105 


103 


EMS37 


34 


100275 


042 


104 


114 


EMS40 


35 


IOC 324 


042 


115 


130 


EMS41 


36 


100552 


042 


104 


124 


EMS42 


37 


100401 


042 


110 


103 


EMS43 


38 


100430 


110 


105 


101 


EMS44 


39 


100503 


106 


117 


122 


EMS45 


40 


100546 


042 


111 


101 


EMS46 


41 


100575 


042 


117 


120 


EMS47 


42 


100624 


042 


123 


113 


EMS50 


43 


100653 


0^2 


120 


111 


EMS51 


44 


100701 


124 


110 


105 


EMS52 


45 


100711 


104 


105 


124 


EMS 5 3 


46 


100723 


101 


124 


040 


EMS54 


47 


100745 


111 


116 


103 


EMS 5 5 


48 


100774 


111 


116 


126 


EMS56 


49 


101051 


104 


125 


122 


EMS57 


50 


101077 


104 


101 


124 


.EriS60 


51 


101112 


104 


117 


105 


EMS61 


52 


101K1 


104 


^01 


124 


• EMS62 


53 


101157 


042 


120 


101 


EI>1S63 


54 


101205 


111 


123 


040 


EMS64 


55 


101223 


103 


117 


115 


EMS65 


56 


101271 


104 


101 


124 


EMS66 


57 


^01341 


104 


125 


122 


EMS67 



.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 

• ASCI 
.ASCI 

• ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 
.ASCI 

• ASCI 

• ASCI 



aURONG UNIT SELECTED (RMCS2. BITS 0-2) <i 
aDEVICE WENT a 

aUNAVAlLABLE "DVA" (RMCS1. BIT 11) % 
awONEXISTENT 'NED" (RMCS2, BIT 1?) a 
aCOMMAND NOT COMPLETED, a 
aCONTROLLER NOT READV (RMCSl, BIT 7) a 
aORIVE NOT READY 'DRY" (RflDS, BIT 7) a 
aCO NOT RESET "GO" (RMCSl . BIT 0) a 
aiNVALID a 

aFUNCTlON CODE (RMCS1, BITS 1-5) a 

^ssBus a 

aCONTROL a 

aeuS PARITY ERROR a 

a'WCPE" (RMCS1. BIT 13) a 

aTRANSFER ERROR (RMCSl, BIT 14) 3 

aSHOULD NOT BE SET a 

awORD COUNT (RMWC) a 

aSUS (RMBA) a 

a"L8T" (RMDS. BIT 10) 3 

a"AOE" (RMER1, BIT 09) a 

aDISK (RMDA) a 

aCYLINDER (RMDC) a 

aADDRESS a 

asTATus a 

a'VLE" (RMER1. BIT 11) a 
a'UPE" (RMCS2, BIT 13) a 
a'VCF" (RMER1. BIT 5) a 
aWRITE CHECK ERROR-' UCE" 
a'MDPE" IRMCS2. BIT 8) a 



(RMCS2, BIT 14) a 



a'DCK" 

a"ECH" 

a"DLT" 
a'MXF" 
a"DTE" 
d'MCRC" 



(RMER1 
(RMER1 
(RMCS2, 
(RMCS2, 
(RMERl , 
(RMER1, 



BIT 
BIT 
BIT 
BIT 
BIT 
BIT 



15) a 
6) a 
15) a 
9) a- 
12) a 
8) a 



»4EADER CGWPARE ERROR 'WCE" (RMERl. BIT 
aFORMAT ERROR 'TER" (RMERl. BIT 4) d 
a"IAE" (RMERl, BIT 10) a 
a'WI" (RMERl, BIT 13) a 
a"SKr' (RMER2. BIT 14) a 
a' PIP" (RMDS, BIT 13) a 
aTHE RM a 
aDETECTED a 
aAT AN UNEXPECTED a 
aiNCORRECT DATA DURING a 
aiNVALlD COMMAND ERROR "IVC 
aDURING DATA TRANSFER a 
aDATA READ a 
aOOES NOT COMPARE WITH a 
aDATA WRITTEN a 
a'»»AR" (RMERl. BIT 3) a 
aiS INCORRECT S 

aCOMPOSlTE ERROR "ERR" (RMDS. Br 14) a 
aOATA PARITY ERROR "DPE" (RMER2. BIT 3) 
aDURING SEEK COMMAND a 



7) a 



(RMER2. BIT 12) a 
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CO 


1 A1 

1 U 1 3oc 


11 


1 37 

1 e5 


A/ f 

. Usu 


CMC 7A 




Acr I 7 


CQ 


1 U 1 t»LKJ 


1 AC 


1 CC 


1 00 
1 CC 


CMC71 




ACT I 7 


oU 


1 A1 / 1 7 


111 

1 1 1 


1 07 

1 e3 


A/ A 
UsU 


CMC 70 




ACT I 7 


oi 


1 A1 / 


1 A/ 


111 

1 1 1 


1 A/ 
1 Us 


EMS73 




ACT I 7 




1 A1 / / A 


1 A/ 


111 

1 1 1 


1 A/ 
1 U** 


EMS74 




A c r I 7 


03 


1 A1 / ^7 


11/. 


117 


107 

1 C J 


EMS75 




ACr I 7 


o*« 




1 A/ 

1 


1 OC 

1 es 


1 00 

1 CC 


EMS76 




ACT I 7 




1 A1 CI 


A/ 0 


1 55 
1 CC 


IIS 

1 1 3 


EMS77 




ACT I 7 


oo 


1 A1 C/ / 


A/ 3 
Use 


111 

1 1 1 


\ 1 s 


EMS 100: 


ACT I 7 


D/' 


1 A1 «; 70 


A/ 0 


111 

1 1 1 


11/ 


EMS101 • 


ACT I 7 


DO 


lUlocU 


1 A/ 


1 OC 
1 C J 


1 00 
1 CC 


EMS 102. 


ACT I 7 


>.o 


1 A1 <^ 7 


1 AC 


1 00 

1 ce 


1 00 
1 CC 


EMS 103. 


ACT f 7 


'U 


1 A1 




11/ 
1 1 -» 


1 no 
1 Uc 


EMS104. 


ACT I 7 




1 A1 7n<; 


A/ 5 
Use 


1 1 z. 
1 1 s 


1 ?7 

1 C J 


EMS105. 


ACT I 7 


75 


1 m 7^/. 

1 U 1 f JH 


1 1 A 
1 1 U 


1 0*; 

1 U 0 


101 
1 U 1 


EMS 106. 


ACT I 7 
.Mot i L 


7'* 


1 ni 7C7 


1 A3 
1 Uc 


1 3C 


1 P7 

1 CJ 


EMS110. 


ACT I 7 


7/. 


1 UcWc 


1 U 1 


1 UH 


1 CiL 


EMsm. 


AST I 7 


f J 


1 n5ni 7 

1 UcU 1 J 


1 ?7 

1 c f 


110 
1 1 u 


10S 

1 U3 


EMSn2. 


A^r 1 1 

.MOL J J 


7A 




1 A1 

1 U 1 


1 PA 
1 es 


AAn 

UsU 






Acr 1 7 


77 


1 n5n77 


1 3A 
1 cs 


1 1 A 
1 1 U 


1 ns 

1 U J 


FMS1 13 


ACT I 7 
.Mot i L 


7fl 


1 noi 57 


1 1 *v 

1 1 0 


117 

1 1 f 


1 1 A 
1 1 o 


EMS1 14 


ACT I 7 
.Mot J L 


7Q 


1 n5i C7 


A1 C 
U 1 J 


A1 0 
U 1 c 


nnn 
uuu 


FMS1 1 5 


ACT I 7 
.Mot J c 


OU 


1 n5i ^/k 


1 

1 CH 


110 

1 1 U 


1 OS 

1 U3 


FMS1 16 


ACT I 7 
.MO t J c 


01 


1 UccUO 


1 HA 
1 UO 


1 01 
1 U 1 


111 

1 1 1 


EMS117 


ACT I 7 
.Mot J L 


Oc 


1 n5?7r> 


1 1 A 

1 1 O 


117 

1 1 f 


1 PA 
1 cs 


EMS 120 


ACT I 7 
• Moti ^ 


O J 


inp?*;i 
1 Vccj 1 


1f)7 
1 U3 


1 1 7 


1 1 A 

1 1 Q 


EMS121 


AST I 7 


OH 


1 n57i ^ 


1 r>p 

1 Uc 


1 PS 

1 C 3 


1 P7 

1 CJ 


EMS122 


ACT I 7 
• MOt J ^ 


O J 




1 0? 
1 U J 


117 


1 1 A 

1 1 o 


EMS123 


AST I 7 

.MOt J L 


oO 


1 n?z.i z. 


1 nc 

1 U J 


1 PP 

1 CC 


1 PP 

1 CC 


EMS 124 


ACr I 7 
. MOt i L 


B7 

Or 


1 C\OLLf^ 


ini 

1 U 1 


1 PZ, 

1 CS 


1 PA 
1 cs 


EMS 125 


ACr I 7 
• MOt i L 


ss 

Oo 


Iuc5 1 1 


lis 


1 01 
1 U 1 


111 

1 1 1 


EMS 126 


• Moti i: 


oo 

ov 


1 n5c««A 

1 Uc J JH 


F U J 


107 
1 U J 


107 


PMS127 


ACT I 7 
• MOt J L 


on 




1 U3 


107 

f U3 


107 

1 U3 


EMS 130 


AST I 7 
.MOt J ^ 


Q1 


1 n?A^i 




101 
1 U 1 


111 

1 1 1 


EMS131 


AST I 7 

• MOt i C 


Q? 
tC 


1 np7i 1 

1 Uc ' 1 1 


1 1 A 
1 1 O 


117 


1 PA 
1 cs 


EMS 132 


• MOt i c 


OX 


1 ^^7?*; 

1 K/Cf J J 


1 PS 


1 1 A 


111 
1 1 1 


EMS 133 


ACf I 7 
• MOt i c 


QL 


1 Uc f OU 


107 

1 U3 


117 


1 1 A 
1 1 o 


EMS 134 


Acri7 

• MOt i L 


o*; 

7 J 


1 f)?n?? 

1 U jUci. 


1 PP 
1 cc 


110 
1 1 u 


0S7 

U3 f 


EMS 135 


ASr I 7 
• MOt i L 




1 U jUO J 


inA 

1 us 


1 PP 

1 CC 


111 
1 1 1 


EMS 136 


.MOt i L 


07 


1 n?i 1 ? 

1 U J 1 1 C 


1 (M. 
1 US 


1 PP 
1 c c 


111 
1 1 1 


EMS 137 


• MOt i c 


Ofl 


in?iz.7 


11*; 


1 0S 
1 U3 


10A 
1 us 


EMS 140 


• .ASCI2 


QQ 


1 n7i 7n 

1 U J 1 ' u 


Use 


IIS 


117 
1 1 f 


EMS141 


ACT t 7 
• MOt i c 




1 U jc 1 o 


1 (\L 
1 us 


1 PP 

1 CC 


111 


EMS 142 


AST I 7 
. MO \.lc 


1 ni 


1 \JJCJJ 


OAP 
Use 


1 C\L 
1 US 


1 PA 
1 cO 


EMS 143 






1 U JCO 1 


IPS 


1 1^% 


1 

1 w J 


EMS 144 


ASfI7 




1 \JJC' 1 


use 


IPS 

1 e 3 


1 1A 


EMS145 


•MOtic 
ACT I 7 
.MOti£ 


1 rTz. 
1 u*» 


1 U J JcU 


1 P7 


110 

1 1 u 


117 


EMS 146 


in*; 


1 U J JJ' 


117 


10A 

1 UD 


1 OA 

1 UO 


EMS147 


AST I 7 
• MOt i C 


1 VAj 


1 U3 JJH 


1 PA 
1 CO 


"1 1 7 


1 1 A 

1 1 s 


EMS 150 


ACT I 7 
. MO t J c 


1 n? 


1 U 3 3 ' c 


O^P 
use 


117 


IIS 


EMS151 


ACT I 7 
. MO t i c 


1 Uo 


1 U J*« 1 o 


O^P 
use 


1 PA 
1 CD 


1 PA 
1 CD 


EMS 152 


ACT I 7 
.MOt i L 


109 


107AAP 


1 PO 

1 C V 


101 


103 


EMS153 


ASCI? 


110 


103464 


116 


117 


124 


EMS154 


: .ASCIZ 


111 


103500 


117 


106 


106 


EMS155 


: .ASCJZ 


112 


103520 


116 


117 


124 


EMS156 


: .ASCIZ 


113 


103536 


122 


124 


103 


EMS157 


: .ASCJZ 


1U 


103553 


122 


111 


120 


EMS 160 


: .ASCIZ 



aiS RESET 9 
aERRONEOUS 9 

ais SET a 

aOID NOT SET a 
aOID NOT RESET a 

aiosT a 

aOURING PACK ACK COMMAND a 
(i"Rm" (RMER1, BIT 2) a 
a"lLR" (RMER1. BIT 1) a 
a"iLF" (RMER1, BIT 0) a 
aOURING SEARCH COMMAND a 

aERROR a 

a"L8C" (RMtR2, BIT 10) d 
a'lSC" (RMER2, BIT 11) S 
aHEAOER ERRORS a 
aaUS TIMEOUT (04 TRAP) a 
aADDRESS a 

aUHEN READING/WRITING RH REGISTERS • 

aAT THE FOLLOWING 3 

aTHE SELECTED DEVICE IS 3 

aNONEXISTENT DEVICE a 

<CR><LF> 

aTHE MASSBUS CONTROLLER a 
aFAILED TO DETECT a 
avOT AN RM05/3/2 a 

aCONTROL STATUS REGISTER 1, RMCS1 . a 

aeuS ADDRESS REGISTER, RWBA. a 

aCONTROL STATUS REGISTER 2, RMCS2, a 

aERROR REGISTER U RMER1. a 

aATTENTION SUMMARY REGISTER, RMAS, 3 

aWAINTENANCE REGISTER #1. RMMR *1 , S 

aECC POSITION REGISTER, RMECl, a 

aECC PATTERN REGISTER, RMEC2, a 

a»>lAINTENANCE REGISTER 2, RMMR2, a 

aNOT INITIALIZED BY a 

aUNIBUS INITIALIZE 3 

aCONTROLLER CLEAR, I.E. BIT 5 OF 3 

3RH/RM ERROR CLEAR (RMCS1 . BIT 14) 3 

3DRIVE CLEAR COMMAND 3 

30RIVE STATUS REGISTER, RMDS 3 

SMEDIUn OFF LINE 3 

a'MOL" (RMDS, BIT 12) 3 

3DRIVE FAULT 3 

a"DVC'* (RMER2, BIT 7) 3 

3UNSAFE 3 

a'\JNS" (RMERT, BIT 14} 3 
aSHOULD BE SET a 
aOFFSET MODE 3 
3V0LUME VALID 3 
3't)M" (RMDS, BIT 0) a 
3'VV (RMDS, BIT 6) 3 
3PACK ACK COMMAND 3 
»40T SET BY 3 
30FFSET COMMAND 3 
SNOT RESET BY 3 
aRTC COMMAND 3 
aRIP COMMAND 3 



czRMoeo 


RM05/3/2 




FF<RCW MESSAGE STRINGS 


115 


103570 


r 7 


116 


103620 




117 


103620 


104 


1-8 


1036AA 


111 


'^9 


103713 


103 


120 


103725 


125 


121 


1037A1 


122 


122 


103766 


042 


123 


104013 ' 


127 


''2A 


104042 


105 


125 


104075 


116 


126 


104115 


122 


127 


104132 


104 


128 


104140 


104 


129 


104166 


042 


130 


104215 


111 


131 


104237 


103 


132 


104254 


104 


133 


104322 


104 


134 


104352 


111 


135 


104365 


042 


136 


104413 • 


105 


137 


104425 


127 


138 


104452 


042 


139 


104477 


127 


KO 


104510 


127 


Kl 


104526 


120 


K2 


104551 


127 


K3 


104574 


123 


KA 


104612 


120 


K5 


104633 


104 


U6 


104663 


114 


U7 


104716 


123 


H8 


104736 


102 


U9 


105006 


101 


ISO 


105037 


no 


*51 


105114 


116 
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106 


106 


EMS161 : 








IPS 


122 


FMS163' 


■ C J 


040 




1 31 


114 




116 


105 


(-MS165 ■ 


105 


103 


EMS 166- 


101 


124 


EMS 167 : 


1 10 


105 


EMS 170: 


122 




EMS1 71 : 


1 1 7 


116 


EMS 172 : 


105 


103 


EMS 173. • 


101 


124 


EMS 1 74 : 


125 


122 


EMS175: 


1 1 7 


120 


EMS 1 76; 


116 


040 


EMS 177 : 


101 


116 


EMS 200: 


1 1 1 


101 


EMS 201 : 


125 


122 


EMS202: 


116 


103 


EMS203 : 


127 


y22 


EMS204 : 


130 


105 


EMS205 : 


111 


124 


EMS206: 


107 


117 


EMS 207: 


122 


1 1 1 


EMS210: 


101 


123 


EMS21 1 : 


122 


117 


EMS212: 


'01 


123 


EMS213: 


105 


105 


EMS214: 


122 


117 


EMS215: 


125 


y22 


EMS216: 


117 


117 


EMS217: 


105 


101 


EMS220: 


101 


104 


EMS221 : 


040 


104 


EMS222: 


105 


101 


EMS223: 


117 


116 


EriS224: 
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.ASCIZ aOFFSET REGISTER (RMOn i 

;<UNUSED> 

.ASCIZ SDURING RECALIBRATE a 

.ASCII aiS INTERMITTENT OR DRIVE DIDNT ORQP ON a 

.ASCIZ aCYLINDER a 

.ASCIZ aUNEXPECTED a 

.ASCIZ aRE CALIBRATE COMMAND S 

.ASCJZ a"ATA" (RMDS. BJT15) a 

.A3CJZ aWHEN READING REGISTER a 

.ASCIZ aE-'^ROR REGISTER #2, RMEP2. a 

.ASCIZ aNONRECOVERASLE 3 

.ASCJZ aRECOVERABLE a 

.ASCIZ aDATA a 

.ASCIZ aDURING WRITE COMMAND a 

.ASCIZ a't)PE" (RMER2. BIT 13) a 

.ASCJZ aiN WRITE PROTECT d 

.ASCJZ aCAN NOT SET a 

.ASCJZ aOJAGNOSTIC MODE "DMD" (RMMRl , BIT 0) a 

.ASCIZ aDURING DIAGNOSTIC MODE a 

.ASCIZ aiNCORRECT a 

.ASCIZ a'V/RL" (RMDS. BIT 11) a 

.ASCIZ aexEcuTED a 

.ASCIZ aWITH COMP ERROR SET a 

.ASCJZ a"G0" (RMCSl, BIT 0) a 

.ASCJZ aWftJTJNG a 

.ASCJZ aWAS RESET BY a 

.ASCJZ aPROGRAM INTERRUPT a 

.ASCIZ aWAS NOT GENERATED a 

.ASCIZ aSEEK COMMAND 3 

.ASCIZ aPROGRAM TIMEOUT a 

.ASCJZ aDURING LOOK AHEAD TEST a 

.ASCJZ aLOOK AHEAD REGJSTER.RMLA. a 

.ASCIZ aSEARCH COMMAND a 

.ASCIZ aSAD SECTOR ERROR 'BSE" (RMER2, BIT 15) a 

.ASCIZ aA DATA TRANSFER COMMAND a 

.ASCIZ aHEADER COMPARE INHIBIT "HCI" (RMOF, BIT 10) 

.ASCIZ aNONEXISTENT MEMORY '><EM" (RMCS2. BIT 11) a 



iZRMoeo 
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FCTNL 




ERROR MESSAGE STRINGS 






105166 


105 


130 


2 


105205 


10? 




5 


1052U 


040 


122 


A 
5 


105233 


122 


105 


6 


105262 


1 AC 

105 


130 


7 


105310 


i AC 

105 


1 7n 

1 


8 


105336 


123 


124 


9 
10 


10556A 


107 


104 


I'' 


105425 


122 


115 


12 


105462 


137 


137 


13 


^ AC C ^ ^ 

105521 


i AC 

105 


130 


14 








1 5 


1 AC A 


!<:<: 


115 


16 




1 it 


137 


1 / 


1 AC^ 


"i AC 


130 


18 


1 AC "71 Z 

105^16 


IPC 

1C5 


130 


19 


105735 


A7y 


103 


20 








21 


105r r<: 


A/ A 

04 U 


122 


CC 


1 UOU Jf 




040 


23 


106047 


040 


122 


2A 


106114 


040 


040 


25 


106136 


040 


"•22 


26 


106174 


040 


122 



MACRO V04.00 



120 


EHI: 


123 


EH110: 


115 


EH111 : 


103 


EH114: 


120 


EH223: 


120 


EH256: 


101 




101 


EH336: 


103 


EH337: 


137 




120 








137 




120 




120 


EH353: 


122 




115 


STSHI: 


040 




115 


STSH2: 


040 




115 


STSH3: 


115 


STSH4: 




.EVEN 
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SEO 0296 



.ASCI2 


aEXPCTD 


RECEVDa 






.ASCIZ 


aeusADRa 








.ASCIZ 


a RMCS2 


RMCSia 






. ASCIZ 


aRECEVD 


SNGPRT 


DULPRTa 




.ASCIZ 


aEXPCTD 


RECEVD 


DATAd 




.ASCII 


aexpcTD 


RECEVD 


R6STRa<CRLF> 


.ASCIZ 


aSTATUS 


STATUS 


INDEXa 




.ASCIZ 


aCDADRS 


GDDATA 


BDADRS 


BDDATAa 


.ASCII 


aRMCS2 


STATUS 


FAILING 


DATAa<CRLF> 


.ASCII 


a 






a<CRLF> 


.ASCIZ 


aEXPCTD" 


■RECF^D 


~BTT" 


?(DRE5Sa 


ACT I I 




STATUS 


HEAOER 


FAlLINGa<CRLF> 


.ASCII 


a 


-RECE7D 


WORD 


BITa<CRLF> 


.ASCIZ 


aPJ^PCTD" 


NUMBER 


POSITONa 


.ASCII 


aEXPCTD 


RECEVDa<CRLF> 




.ASCIZ 


a<CRLF> 


RMLA 


RMLA 


RMOF a 


.ASCII 


a RMCSl 


RMCS2 


RMDS 


RMER1 RF1ER2a 


.ASCIZ 


a RMAsa 






.ASCII 


a R^MC 


RM8A 


RMDA 


RMOF RHDCa 


.ASCJZ 


a RMEC1 RMEC2a 




.ASCJZ 


a RMDA 


RMOC 


RMQF 


RWLAa 


.ASCIZ 


a RMMR! 


m^2 


RMDT 


RMSNa 



I 
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2 

X 

I 


106232 
106240 
10624A 


001140 
001 276 
001 1 74 


00114? 
COOOOO 
001176 


000000 
000000 


EDI: 
ED1 10: 
ED111: 


5 
6 
7 


106252 
10626? 


001364 
001140 


001176 
001 K2 


00^200 
001 1 74 


ED114: 
ED223: 


8 


106272 


001134 


001140 


001 1 36 


ED336: 


9 
^0 
11 
]2 
'I 
K 
••5 
16 
"7 


106304 
106316 


001140 
001140 


001142 
001142 


001174 
001444 


ED337: 
ED353: 


106326 
106344 
106360 
106364 
106376 


001 336 
001 340 
001404 
001 344 
001 362 


001346 
001342 
000000 
001372 
001376 


001350 
001344 

001370 
001364 


STSD1 : 
STSD2: 

STSD3: 
STSD4: 
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.WORD $GDDAT,$BDDAT.0 

.WORD $8ASE.0 

.WORD $TMP0.$TMP1,0 

.WORD R«DTJ.$TMP1,|TMP2.0 

.WORD $GDDAT,$BDDAT.$TMPO,0 

. WORD SCDADR , SGDDA T . $8DADR , S8DDA T , 0 

.WORD $G:)DAT.$8DDAT.$TMP0,$TMP1,0 

.WORD $GDDAT,$8DDAT,RMOFO,0 

.WORD RMCS1 I ,RMCS2] .RMDSI ,RMER1 J ,RMER2I ,RMASI .0 

.WORD RMWC] .RMBAJ ,RMDAJ ,RMOF I ,ftMDC J ,RMEC1 J 

.WORD RMEC2J,0 

.WORD RMDAI,RMDCJ,RMOFJ.RMLAI,0 

.WORD RMMR1I,RMMR2J.RMDT],RMSNJ.0 



f 
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106410 


000 




c 




nnn 


000 


3 


106413 


000 


000 


^ 


106416 


000 


000 


5 


106422 


000 


000 


6 
7 


106427 


000 


000 
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nnn 
UUU 

000 

000 


EF110: 
EF111 : 
cr 1 1 A • 

t r 1 1 *• . 

EF336: 
EF337: 


.BYTE 
.BYTE 
nvTP 

.BYTE 
.BYTE 


0 

0.0 

n n 0 

0.0.0.0 
0.0.0,0.0 


000 


STSF: 
.EVEN 


.BYTE 


0.0.0.0.0.0,0 



SEQ 0296 
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N 

PAGE 



7 
62 



SEO 0299 



1 
■) 

I 
U 
5 
6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
'6 
'7 



106^36 
106436 
107AA2 



110446 
110452 
111452 



111454 
111460 
112460 



000000 

mm 

000000 
}77777 
106436 



000000 



000000 



.•STORAGE FOR GENERAL DATA TRANSFERRS 
BUFFER: 

BUFONE: .BLKU 258. 
BUFTUO: .BL<U 258. 

.•STORAGE FOR MANUFACTURES 16 BIT MODE BAD SECTOR FILE 
MFGFIL: -WORD 0.0 ;2 HEADER WORDS 

.BLKW 256. ;256. WORDS OF DATA 

.WORD -1 ; TERMINATOR IF FILE IS FULL 

.•STORAGE FOR USERS 16 BIT MODE BAD SECTOR FILE 
USRFIL: -WORD 0,0 ;2 HEADER WORDS 

,8LKW 256. ;256. WORDS OF DATA 

.WORD -1 .-TERMINATOR IF FILE IS FULL 



.=8UFFER 



1 ft 
1 o 


1 UO** JO 








MFI P • 


1 0 


1 C\t^L 7A 


pnn 

C\)\) 






A<;f 1 1 




1 vDH J f 


C\J\J 






A<;r 1 1 

• MO L i i 






^^L 


111 

1 1 1 






CC 








OSS 


A<;r 1 1 




1 C\(^L 7L 






01 1 


A<;f 1 1 








\J\jC 


oil 


A<;f 1 1 


CJ 


1 \J\JJ J J 






01 1 


.ASCII 


?A 

C\J 


1 vow f 


1?4 

1 C^ 


064 


01 1 


ASCI I 


77 




1?4 
1 c^ 


065 


01 1 


ASCI I 


CO 


1 \J\J f 


1?4 


066 


01 1 


ASC 1 1 

• no V X X 


C T 


1 \J\J f Jf 


1?4 


067 


01 1 


ASC 1 1 

• no V X X 


30 


1 07007 


124 


061 


060 


ASCI I 

• no V J i 


J ' 


107nS7 


124 


061 


061 


• no i i 


X3 
jC 


1071 1 7 

1 \y r 1 If 


1?4 


061 


062 


ASCI I 

• no \m X X 


77 


1071 70 


124 


061 


063 


ASCI I 

• no u 1 J 


34 


^Q72UU 

1 V » c ~~ 


124 


061 


064 


.ASCII 


35 


107301 


124 


061 


065 


! ASCI I 


36 


107330 


124 


061 


066 


.ASCII 


37 


107365 


124 


061 


067 


.ASCII 


38 


107416 


124 


062 


060 


.ASCII 


39 


107461 


124 


062 


061 


.ASCII 


40 


107543 


^24 


062 


062 


.ASCII 


41 


107604 


124 


062 


063 


.ASCII 


42 


107645 


124 


062 


064 


.ASCII 


43 


107700 


124 


062 


065 


.ASCII 


44 


107766 


200 






.ASCII 


45 


107767 


117 


120 


105 


.ASCII 


46 


10023 


055 


055 


055 

111 


.ASCII 


47 


110057 


123 


127 


.ASCII 

.Ascri 


48 


110074 


055 


055 


055 


49 


110131 


040 


040 


061 


.ASCII 


50 


110155 


040 


040 


061 


.ASCII 


51 


110200 


040 


040 


061 


.ASCII 


52 
53 


110235 


040 


040 


061 


.ASCII 


110244 


C 0 


040 


061 


.ASCII 


54 


110275 


040 


040 


061 


.ASCII 


55 


110321 


040 


040 


040 


.ASCII 


56 


110345 


040 


040 


040 


.ASCII 


57 


110404 


040 


040 


040 


.ASCII 



<CRLF> 
<CRLF> 
SLIST OF 

a 

an 
aT2 
aT3 
aT4 
aT5 
ar6 
aT7 
ano 
aTii 
aTi2 
an3 
aTi4 
aTi5 
aTi6 
aTi7 

aT20 

aT2i 

aT22 
aT23 

aT24 
aT25 

<CRLF> 
aOPERATI 

a 

aSWITCH 

a 

15 
14 
13 
12 

11 

10 
9 
8 
7 



a 
a 
a 
a 
a 
a 
a 
a 



^ESTSa<CRLF> 
a<CRLF> 

CONTROLLER ACCESS TESTa<CRLF> 

WRITE. READ ZEROSa<CRLF> 

WRITE. WRITE CHECK ZEROSa<CRLF> 

WRITE, WRITE CHECK ZEROS W/ WCE ERRORa<CRLF> 

WRITE, READ ONESa<CRLF> 

WRITE, WRITE CHECK ONESa<CRLF> 

WRITE, WRITE CHECK ONES W/ WCE ERRORa<CRLF> 

WRITE, WRITE CHECK MULTIPLE SECTORSa<CRLF> 

WRITE. READ W/ IMPLIED SEEKa<CRLF> 

WRITE, WRITE CHECK W/ HEAD SWI TCHINGa<CRLF> 

WRITE, WRITE CHECK W/ MID-TRANSFER SEEKa<CRLF> 

WRITE, READ W/ HCE ERRORa<CRLF> 

WRITE, READ W/ HCia<CRLF> 

WRITE, READ W/ IVC ERRORa<CRLF> 

WRITE, READ W/ ABORTa<CRLF> 

WRITE, READ EACH CURRENT LEVELa<CRLF> 

WRITE. WRITE CHECK W/ CURRENT LEVEL SWI TCHINGa<CRLF> 

WRITE, READ EARLY PEAK SHIFTa<CRLF> 

WRITE, READ MIXED PEAK SHIFTa<CRLF> 

WRITE, READ EACH TRACKa<CRLF> 

READ, WRITE CHECK MULTIPLE SECTORS IN OFFSET MODEa<CRLF> 

ONAL SWITCH SETTINGSa<CRLF> 

a<CRLF> 

USEa<CRLF> 

a<CRLF> 

ERRORa<CRLF> 
TESTa<CRLF> 
ERROR TyPEOUTSa<CRLF> 



HALT ON 
LOOP ON 
INHIBIT 
a<CRLF> 
INHIBIT 
BELL ON 
LOOP ON 
LOOP ON 



TNl28a<CRLF> 



ITERATIONSa<CRLF> 

ERRORa<CRLF> 

ERRORa<CRLF> 

TEST IN SWR<7:0>a<CRLF> 



FRWDR MESSAGE STRINGS 



58 
59 
60 
61 
62 
6? 
64 
65 



n(K20 

n(K<.6 
no<.6i 

n0505 



'ST 3 



OAO 

MO 
0<.0 
040 
040 
040 

000200 



VC^O V04.00 





040 


ASC 1 1 


w 


6 


040 


040 


.ASCII 


a 


5 


040 


C40 


.ASCII 


a 


4 


040 


04C 


.Asrij 


i 


3 


040 


040 


.ASCII 


i 


2 


C40 


040 


.ASCIZ 


a 


1 
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TN64a<CRLF> 
TN32a<CRLF> 
TWl6a<CfiLF> 
TN8a<CRLf > 
TN4a<CRLf >. 
TN2a<CRLf > 



.END 



200 
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r 
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TABLE 








ABASE = 


1 76700 


ATNMSK 


000377 


BUFONE 


AfDW - 


000000 


ATNT8L 


071746 


BUF TWO 


ACDu2 = 


000000 


AUNIT = 


000000 


CC 


AfKSTS 


053A32 


AUSWR = 


000000 


CH 


ACPUOP= 


000000 


AVECTU 


120254 


CHGADR 


AOOWO = 


000000 


AVECT2= 


000000 


CHRCNT 


A00U1 = 


000000 


A16 


000400 


CKSWR = 


AO[>W10= 


000000 


A17 = 


001000 


CLKADR 


A0DW1 1 = 


000000 


BACK = 


000001 


CLKVCT 


ADDW12= 


000000 


BADSCT 


040242 


CLR = 


ADDWSs 


o(yooo 


BADTMO 


005342 


CLRSTS 


A0DW1>*= 


000000 


BAJ 


000010 


CMNSTA 


AD0U1 5= 


000000 


B800 = 


000001 


CMPBOF 


ADDW2 = 


000000 


B801 - 


000002 


CMPERR 


ADDW? = 


000000 


B802 = 


000004 


CNSL01 


AODWA = 


000000 


B803 = 


000010 


CNSL02 


ADDW5 = 


000000 


B80A - 


000020 


CNSL03 


ADDW6 = 


000000 


B805 


000040 


CNSL04 


ADDW 7 - 


000000 


B806 = 


000100 


CNSL07 


ADDU8 = 


cooooo 


BB07 - 


000200 


CNSL08 


ADDW9 = 


000000 


B808 - 


000400 


CNSL09 


ADEVCT- 


000000 


B809 = 


001000 


CNTCLR 


ADEVM 


000000 


BJTO - 


000001 


COWA 


ADP 


000001 


BJTOO - 


000001 


CONT = 


AENV = 


000000 


BJT01 - 


000002 


CPSAVE 


AENVM = 


000000 


BJT02 = 


000004 


CR 


AFATAL= 


000000 


BJT03 - 


000010 


CRLF = 


ALL 


0705K 


BIT04 = 


0000 ?0 


CTLFG 


AMADR1= 


000000 


BIT05 - 


000040 


CyLMSK= 


AMADR2= 


000000 


BIT06 = 


000100 


DfiCK = 


AMADR3= 


000000 


BJT07 - 


000200 


DBEN = 


AMADRA= 


000000 


BIT08 = 


000400 


DSL = 


AMAMS1- 


000000 


BIT09 = 


001000 


DCK = 


AMAMS2 


000000 


Bin = 


000002 


DDISP = 


AMAMS3 


000000 


BIT10 = 


002000 


DE8L - 


AMAnS4= 


000000 


BIT11 = 


004000 


DEVSEL 


AriSGAD= 


000000 


BIT12 = 


010000 


DISPLA 


AWSGLG= 


000000 


BIT13 = 


020000 


DISPRE 


AMSGTy= 


000000 


BITU - 


040000 


DLT = 


AWTYPU 


000000 


BIT15 - 


100000 


D«D = 


AMTYP2- 


000000 


BIT2 = 


000004 


DPE ^ 


AMTYP3- 


0000 DO 


BIT3 = 


000010 


DPEHJ = 


A«TyPA= 


000000 


BIT4 = 


000020 


DPELO = 


AOE 


001000 


BIT5 - 


000040 


DPR = 


APASS = 


000000 


BIT6 - 


000100 


DRIVES 


APE 


100000 


BIT7 


000200 


DRQ 


APRIOR= 


000000 


BITS - 


000400 


DRVCLR= 


A^ TCSU= 


OOOOAO 


BIT9 


001000 


DRVSTS 


APTENV= 


000001 


BLNKS1 


071643 


DRY = 


APTSIZ- 


000200 


BLNKS2 


071642 


DSWR = 


APTSPO= 


000100 


BLNKS3 


071641 


DTASTS 


ARCS = 


000004 


BLNKS4 


071640 


DTE - 


ASNOA 


001516 


BO T ADR 


066104 


DTO - 


ASNOC 


0015K 


BOTFLG 


066106 


DULPRT= 


ASWREG= 


000009 


BPTVEC= 


000014 


DVA - 


ATA r 


100000 


BSE 


100000 


DVC 


ATf STN= 


000000 


BUFFER 


106436 


EARlY 



f 8 
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1 064 36 


E8L 


020000 


EH344 


105560 


107442 


ECH = 


000100 


EH353 


105716 


004000 


ECI 


004000 


EMS1 


076772 


002000 


ECRC = 


001000 


EMS10 


077326 


001330 


EDT1 


076614 


EMS100 


101544 


066107 


EDT110 


076632 


EMS101 


101572 


104410 


EDT111 


076634 


EMS 102 


101620 


001520 


EDT*14 


076636 


EMS103 


101647 


001522 


EDT2 


076624 


EMS 104 


101656 


000040 


EDT223 


076640 


EMS105 


101705 


052552 


EDT336 


076650 


EMS106 


101734 


007476 


EDT337 


076660 


EM511 


077370 


042432 


EDT344 


076670 


EMS110 


101753 


050550 


EDT353 


076702 


EMS111 


102002 


071105 


EDI 


106232 


EMS112 


102013 


071115 


ED110 


106240 


EMS113 


102077 


071157 


ED111 


106244 


EMS114 


102127 


071166 


ED114 


106252 


EMS115 


102153 


071222 


ED223 


106262 


EMS116 


102156 


071364 


ED336 


106272 


EMS117 


102206 


071365 


ED337 


106304 


EMS12 


077401 


052434 


ED353 


106316 


EMS 120 


102230 


070525 


EECC = 


000020 


EMS121 


102251 


000100 


EFT1 


076704 


EMS 122 


102314 


065230 


EFT110 


076722 


EMS123 


102351 


00001 5 


EFT111 


076724 


EMS124 


102414 


000200 


EFT114 


076726 


EMS125 


102446 


001326 


EFT2 


076714 


EMS126 


102511 


001777 


EFT223 


076730 


EMS1 27 


102554 


100000 


EFT336 


076740 


EMS 13 


077442 


040000 


EFT337 


076750 


EMS130 


102613 


002000 


EFT344 


076760 


EMS131 


102651 


100000 


EFT353 


076770 


EMS132 


102711 


177570 


EF110 


106410 


EMS133 


102735 


020000 


EF111 


106411 


EMS 134 


102760 


050762 


EF114 


106413 


EMS135 


103022 


001 1 56 


EF336 


106416 


EMS 136 


103065 


000174 


EF337 


106422 


EMS137 


103112 


100000 


EHTl 


076470 


EMS14 


077453 


000001 


EHTIIO 


076512 


EMS140 


103147 


000010 


EHTin 


076516 


EMS141 


103170 


040000 


EHT114 


076522 


EMS 142 


103216 


020000 


EHT2 


076502 


EMS143 


103233 


000400 


EHT223 


076526 


EMS 144 


103261 


071600 


EHT256 


076540 


EM5145 


i 03271 


004000 


EHT336 


076552 


EMS146 


103320 


000010 


EHT337 


076564 


EMS147 


103337 
077464 


055770 


EHT344 


076576 


EMS15 


000200 
177S70 
056572 


EHT353 


076610 


EMS150 


103354 


EHl 


105166 


EMS151 


103372 


EH110 


105205 


FMS152 


103416 


010000 


EH111 


105214 


EMS153 


103442 


010000 


FH1 14 


105233 


EMS154 


103464 


024024 


EH223 


105262 


EMS155 


103500 


004000 


EH256 


105310 


EMS156 


103520 


000200 


EH336 


105364 


EMS157 


103536 


072272 


EH337 


105423 


EMS16 


077506 
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BMS160 


103553 


EMS4C 


100275 


E«1S161 


103570 


EMS41 


100324 


EMS162 


105620 


EMS42 


100352 


EMS163 


105620 


EMS43 


100401 


E1S164 


10364A 


EMS44 


100430 


EMS 165 


103725 


EMS45 


100503 


E1S166 


103741 


EMS46 


100546 


EMS167 


103766 
077556 


EMS47 


100575 


EMS17 


EMS5 


077164 


EMS 170 


104013 


EMS50 


100624 


EMS171 


104042 


fcMS51 


100653 


EMS1 72 


104075 


EMS52 


100701 


EMS173 


104115 


EMS53 


100711 


EMS1 74 


104132 


EMS54 


100723 


EMS 175 


104140 


EMS55 


100745 


EMS 176 


104166 


EMS56 


100774 


EMS 177 


104215 


EMS57 


101051 


EMS2 


077041 


E'*1S6 


077214 


EMS20 


077576 


EMS60 


101077 


EMS200 


104237 
104254 


EMS61 


101112 


EMS201 


EMS62 
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35-355* 

35- 469* 

36- 76* 



13-946* 
13-F 71* 

24- 89* 

25- 87 

26- 24* 
26-138 
29-142* 

31- 81* 

32- 72* 

33- 80* 

33- 203* 

34- 40* 

35- 114* 
35-239* 
35-367* 

35- 481* 

36- 77* 



13-947* 
13-G25* 

24- 90* 

25- 98* 

26- 25* 
26-148* 
29-166* 

31- 82 

32- 73* 

33- 81* 

33- 204* 

34- 71* 

35- 115* 
35-254* 
35-368* 

35- 482* 

36- 96* 



13-955 
13-G26* 

24- 106* 

25- 106* 

26- 26* 
26-149* 
29-167* 

31- 91* 

32- 86* 

33- 101* 

33- 220* 

34- 72 

35- 133* 
35-255* 
35-380* 

35- 494* 

36- 97* 



13-A57* 
13-G80* 

24- 107* 

25- 109 

26- 30* 
26-151 
29-181* 

31- 103* 

32- 87* 

33- 102* 

33- 221* 

34- 83* 

35- 134* 
35-268* 
35-381* 

35- 495* 

36- 110* 



13-A72* 
1 3-681 * 

24- 122* 

25- 135* 

26- 32 

27- 40* 
29-194* 

31- 104 

32- 100* 

33- 118* 

33- 238* 

34- 84 

35- 147* 
35-269* 
35-393* 

35- 515* 

36- 111* 



15-A85' 
18-81* 

24- 123' 

25- 133' 

26- 86* 

27- 55* 
29-195' 

31- 113' 

32- 101' 

33- 119' 
33-239' 
54-92* 
35-148' 
35-286' 
35-394' 
35-516' 
60-1 



42-1 
45-1 



42-1* 
45-1 



42-1* 
45-1* 
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SITE»e 

SlFLG 

SLPADR 

ILPERR 



$MADR1 
»MAD>»2 
SMADR3 
tMADR*. 



SMAMSI 

$MAMS2 

W1AMS3 

IMAMSA 

SMBADR 

SMFLG 

SMNEU 

tMSGAD 

$f»SGLG 

SMSGTY 

tMSWR 

$MTYP1 

IMTYP2 

$«TYP3 

SMTYPA 

tMXCNT 

SNULL 

SNU/TST 



SOCNT 

SOMOOE 

SOVER 

5PASS 

SPASTM 

IPOWER 

SPWRDN 

$PWR«G 

$PURUP 

SQUES 

$ft2A 

tPDCHR 

SRDDEC 

IRDLIN 

WDOCT 

WDSZ 

SRESRE 

$R«02 

$R«03 

$RW05 



6-0# 
6-0# 

A9-1# 
6-0# 
6-0# 

13-: 22* 
13-H49* 
A2-1 

6-0# 

6-0# 

6-0# 

6-0* 

5- 8 
13—05 
A 3-1 

6- 0# 
6-0# 
6-0# 
6-0* 

5- 8* 
A9-1 
A5-1 

6- 0* 
6-0* 
6-0* 

A5-1 

6-0* 

6-0* 

6-0* 

6-0* 
42-1 

6-0* 
13-2 
13-497* 
13—05* 
13-F81 
13-L50* 
40-1* 
40-1 
42-1 

6-0* 

5- 8* 
48-1 
10-23 
48-1* 
48-1 

6- 0* 
47-1 
45-1* 
4 7-1 

45- 1* 

46- 1* 
45-1 
37-1* 
10-92 
10-97 
10-102 



AS--* 

41- 1 
49-1* 
10-23* 
10-23* 
13-: 75* 
1 3-H99* 

42- 1* 



5-8 

13->88 



49-1* 

45-1* 

49-1 

49-1* 

'^9-1 

45-1* 



42-1 

41- 1 
13-2* 
13-645 
13—05* 
13-F81* 
13-.M95 
40-1* 

40- 1* 

42- 1 
10-23* 

48-1* 
48-1 

48-1* 

41- 1 

47-1 

47-1 

47-1 

45-1* 

47-1 

44-32 

44-28 

44-36 



43-1 

41- 1 

42- 1 
13-84* 
13-; 74* 
13- J 04* 

43- 1 



6-0* 
13-338 



49-1* 
49-1* 
4<y-1 



47-1 

47-1 
47-1 



50-24* 
50-25* 
50-26* 



43-1 
43-1 

42-1 
13-130* 
13-<36* 
13-J57* 



10-23 
13-G24 



43-1 
43-1 

42-1 
13-231* 
13—59* 
13-K56* 



10-28 
13-E49 



45-1 
45-1 

42-1* 
13-277* 
13->27* 
13-L02* 



13-2 
13-F81 



43-1* 
45-1 

42-1* 
13-372* 
13-741* 
1 3-MOl * 



13-33 
1 3-G99 



43-1* 
45-1 



42-1* 

13-418* 13-550* 

13-793* 13-399* 

13-M47* 13-N49* 



13-597* 13-698* 
13-A95* 13-C87* 
13-N95* 13-096* 



13-180 
13-154 



13-322 
13-K05 



13-497 
13-L50 



13-645 
1 3-M95 



13-745* 
13-D50* 
13-P53* 



13-790 
1 3-046 



S£0 0506 



13-843* 15-889* 
13-F20* 13-G42* 
42-1 42-1 



13-969 
41-1 



13-; 20 
42-1 



49-1* 



49-1* 



49-1* 



42-1 


42-1* 










41-1 


41-1 










13-2* 


13-33 


13-33* 


13-33* 


13-180 


13-180* 


13-645* 


13-645* 


13-790 


1 3-790* 


1 3-790* 


13-969 


13->88 


13-^88* 


13->88* 


13-338 


13-338* 


13-338* 


13-F81* 


13-G99 


13-G99* 


1 3-G99* 


13-154 


13-154* 


1 3-M95* 


13-M95* 


13-046 


13-046>r 


13-046* 




40-1* 












40-1* 


40-1* 


40-1* 


40-1* 






42-1 


42-1 


42-1* 








14-20 


14-20 


14-20 


U-20* 


14-20* 


42-1 


48-1* 












41-1 


43-1 


43-1 


4 5-1 


45-1 


45-1 



13-180* 
13-969* 
13-C24 
13-154* 



42-1 



13-322 13-322* 

13-969* 13-; 20 

13-C24* 13-C24* 

1 3-K05 1 3-tc05* 



42-1 



13-322* 
13-; 20* 
13-E49 
1 3-K05* 



1 3-497 1 3-497* 

13-; 20* i3-=05 

13-E49* 13-E49* 

13-L50 13-L50# 



45-1 
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SFO 0509 



tRTNAD 
tSAVR6 
tSAVRE 
4SC0PE 
tSETUP 



tSTUP 

ISVLAD 
tSVPC 
tSUGST 
tSwR 



tSUREG 
tSURMK 

STtSTN 

tTIMES 

$TKB 

tTKCNT 

STKINT 

ITKQEN 

STKQIN 

STKQOU 

STKQSR 

$TKS 

ITKSRV 

STMPO 



STWPI 



$TMP2 
$TMP3 
$TMP4 
STN 



$TP8 

STPFLG 

STPS 

STRAP 

STRAP? 

STRP 



U-20* 
48-1 
37-1# 
10-23 

4-775 
10-23 
14-20 

4-775 

4- 775# 
42-1 

5- 5 
42-1 

4-469# 

10- 23 

1 3- >88 

14- 20 

42- 1 

43- 1 

6- 0* 
4-481 

42-1 

6-0* 
13-E49» 

6-0* 

6-0* 
45-1 

11- 4 
45-1 
45-1 
45-1 
45-1 

6-0* 
45-1 

6-0* 
13-707* 
13-N17* 

6-0* 
11-76 
13-812* 
13-H20* 
27-37 

6-0* 

6-0* 

6-0* 

4-470* 
13-322 
13-790 
13->88 
13-E49 
1 3-K05 
13-046 

6-0* 

6-0* 

6-0* 
10-23 
47-1 
47-; 



48-1* 

47-1 

42-1* 

4-775 
10-23 
14-20 

4-775 

4- 775* 
42-1* 

5- 5* 
42-1* 

4-480 
10-23 

13- 5138 

14- 20 

42- 1 

43- 1 
10-23 

4-481 
42-1 
13-2* 
13-F81* 

10- 23* 
41-1 
45-1 

12- 48 
45-1 
45-1 
45-1 
45-1 
41-1 
45-1* 

13- 54* 
13-747* 
13-066* 

11- 13* 
11-78 
13-937* 
13-175* 
27-39 
27'27* 



4-480 
13-322 
13-790* 
13->88 
13-E49* 
1 3-K05 
13-046* 
41-1 
41-1 
41-1 

47-1 



48-1* 

47-1 

10-23 

42-1 
t.'77^ 
(.-775» 



4-481 
10-23 
13-C24 
42-1 

42- 1 

43- 1 



48-1* 



t.'775 

10-23 

43-1 
^,'775 
^-775tt 



4-481 
10-23 
13-E49 
42-1 

42- 1 

43- 1 



48-1* 



4-775 
10-23 
43-1 

4-775 



4-481 
13-2 
13-F81 
42-1 

42- 1 

43- 1 



4-775 
10-23 
43-1 

4-775 



4-481 
13-33 
13-G99 
42-1 
42-1 
48-1 



4-775* 
10-23 
43-1 

4-775* 



4-481 
13-180 
13-154 
42-1 
42-1 



4-775* 
10-23 
45-1 

4-775* 



4-481 
13-322 
13-K05 
42-1 
42-1 



4-481 


4-481 


4-481 


4-481 


4-481 


4-481 


42-1 


42-1 


42-1 








13-33* 


13-180* 


13-322* 


13-497* 


13-645* 


13-790* 


13-G99* 


13-154* 


13-K05* 


13-L50* 


13-M95* 


13-046* 


12-46* 


14-20* 


42-1 


42-1 


42-1 


42-1* 


41-1 


45-1 


45-1 


45-1 


45-1 


45-1 


45-1* 


45-1* 


45-1* 


45-1* 






45-1 


45-1 


45-1* 








45-1* 












45-1* 


45-1* 


45-1* 


45-1* 


45-1* 




45-1* 


45-1* 


45-1* 


45-1* 






45-1 


45-1* 










41-1 


45-1 


45-1 


45-1 


45-1 


45-1 


13-201* 


13-343* 


13-466* 


13-518* 


13-666* 


13-811* 


13-361* 


13-A58* 


13-A60* 


13-851* 


13-853* 


13-C47* 


17-55 


18-85* 


20-41 * 


21-35* 


28-29* 


28-31 


11-14 


11-16 


11-36* 


11-38 


11-42 


11-50* 


11-83* 


11-84 


11-87 


11-88 


11-90 


11-95 


13-991* 


13-; 29* 


13-; 43* 


13-=25* 


13-=65* 


13-708* 


13-J24* 


13-K27* 


13-L 72* 


13-N18* 


13-067* 


17-56 


28-28* 


28-37 


60-3 


60-5 


60-10 




27-28* 


27-51 


27-54 


60-5 







13-2 

13-322 

13-969 

13->88 

13-F81 

13-K05 

42-1 

41-1 

41-1 

41-1 



47-1- 



13-2 

13-322* 

13-969 

13->88* 

13-F81 

13-K05* 

42-1 

41-1* 

41-1 

41-1 



47-1 



13-2 

13-497 

13-969 

13-a38 

13-F81 

13-L 50 



13-2* 

13-497 

13-969* 

13-338 

13-f81* 

13-L 50 



13-33 

13-497 

13-; 20 

13-a38 

13-G99 

13-L50 



13-33 
13-497* 
13-; 20 
13-338* 
13-G99 
13-L 50* 



4-775* 
10-23 
45-1 

4-775* 



4-481 
13-497 
13-L50 

42- 1 

43- 1 



4-775* 
10-23 
45-1 

4-775* 



4-481 
13-645 
13-M95 

42- 1 

43- 1 



4-461 42-1 



13-969* 
42-1* 
42-1* 
45-1 



13-936* 

13-E65* 

60-3 

11-52 

13-55* 

13-748* 

20-42* 



13-33 

13-645 

13-; 20 

13-C24 

13-G99 

13-M95 



13-; 20* 

44- 45 

45- 1 



45-1* 45-1* 



4-775* 
10-23 
45-1 

4-775* 



6-0 
13-790 
13-046 

42- 1 

43- 1 



42-1 
13--05* 



13-990* 

13-H19* 

60-6 

11-56 

13-202* 

13-362* 

20-43 



13-33* 

13-645 

13-; 20* 

13-C24 

13-G99* 

13-fl95 



4-775* 
10-28 
45-1 

4-775* 



6-0 

13- 969 

14- 20 

42- 1 

43- 1 



42-1 
13->88* 



45-1* 

13-: 28* 

13-174* 

60-10 

11-66* 

13-344* 

13-A61* 

21-36* 



13-180 
13-645 
13-=05 
13-C24 
13-154 
13-M95 



45-1* 

13-;42* 
13-J23* 

11-67 
13-467* 
13-654* 
21-37 



13-180 

13-645* 

13—05 

13-C24* 

13-154 

13-M95* 



4-775* 
10-28 



10-23 
10-28 



4-775* 4-775* 



6-0 

13- ; 20 

14- 20 

42- 1 

43- 1 



42-1 
13-338* 



45-1* 

13—24* 
13-IC26* 

11-73 
13-519* 
13-C48* 
27-24* 



13-180 
13-790 
13-=05 
13-E49 
13-154 
13-046 



10-23 

13— 05 

14- 20 

42- 1 

43- 1 



42-1 
13-C24* 



45-1* 

13-=64*- 
13-L 71* 

11-75 
13-667*- 
1 3-E66* 
27-25* 



13-180<< 

13-790 

13-=054 

13-t49 

13-154* 

13-046 



47-1 



47-1 



47-1 



47-1 



47-1 



47-1 



47-1 



47-1 



47-1 



47-1 
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STRPAO 
$TSTM 

ITTYIN 

ITYPSN 

STYPDS 

STYPE 

STYPEC 

STYPEX 

ITYPOC 

STYPON 

ITYPOS 

SUNiT 

SUSWR 

SVECT1 

$VECT2 

SXOFF 

SXON 

IXTSTR 

.SASTA 

.tx 

A16 

A17 

ABASE 

ALDUl 

ACDW2 

ACKSTS 

ACPUOP 

ADDUO 

ADDU1 

ADDW10 

ADDWI 1 

ADDU12 

ADDU1 3 

ADDWU 

AODWI 5 

ADDW2 

A0DW3 

ADDW4 

ADDW5 

AD0U6 

ADDW7 

ADDW8 

ADDW9 

ADEVCT 

ADCVM 

ADR 



AENV 



47-1 

47-1 

47-1 

47-1# 

4''-1 

5- 8# 

6- 0# 
45-1 

38- 1# 

39- 1* 
41-1# 
41-1 
41-1 

40- l# 
40-1 

40- 1* 
6-0* 

5- 8* 

6- 0* 
6-0* 
6-0* 

41- 1 

41- 1 

42- 1* 
49-1 

5- 8 

4-721* 
4-720* 
4-772* 

6- 0 
6-0 

15-152 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 
13-2 
13-497* 
13-=05* 
13-F81 
13-L50* 

6-0 



47-'' 

47-1 

47-1 

4/-1* 

47-1* 

12-45* 

45-1 

47-1 

47-1 

47-1 

41-1 

41-1 

47-1 

40-1* 

47-1 

12-50» 



41-1 
41-1 

49-1 
5-8* 



6-0 
6-0 
6-0 
16-137 
6-0 
6-0 
6-0 



47-1 
47-1 
47-1 
47-1* 



14-20* 

45-1 

47-1 

47-1 

47-1 

41-1 

41-1* 

47-1 

47-1 

12-70 



11-46 11-56* 



45-1 

6-0 
32-15* 



6-0 
6-0 
6-0 
6-0 
6-0 
6-0 



6-0 

6-0 
13-2* 
13-645 
13-=05* 
13-F81* 
13-M95 

6-0 



47-1 
47-1 
47-1 
47-1* 



42-1 
45-1 



49-1 
41-1* 



47-1 
47-1 
47-1 
47-1* 



42-1 
45-1 



45-1 



47-1 
47-1 
47-1 
47-1* 



42-1 
45-1* 



47-1 
47-1 
47-1 
47-1* 



42-1 



47-1 
47-1 
47-1 
47-1* 



42-1 



47-1 
47-1 
47-1 
47-1* 



47-1 
47-1 
47-1 
47-1* 



42-1* 42-1* 



47-1 
47-1 
47-1* 



43-1 



47-1 
47-1 
47-1* 



43-1 



47-1 
47-1 
47-1* 



43-1 



SEO 0310 

47-1 
7-1 
47-1* 



45-4 



24-49 44-2? 



13-2* 

13-645* 

13->88 

13-F81* 

13-M95* 



13-33 
13-645* 
13->88* 
13-G99 
1 3-M95* 



1 3-33* 
1 3-790 
13->88* 
13-G99* 
1 3-046 



13-33* 
13-790* 
13-338 
13-G99* 
1 3-046* 



13-180 
13-790* 
1 3-338* 
13-154 
1 3-046* 



13-180* 
1 3-969 
13-338* 
13-154* 



13-180* 
13-969* 
13-C24 
13-154* 



13-322 
1 3-969* 
13-C24* 
13-K05 



13-322* 

13-; 20 
13-C24* 
1 3-K05* 



13-322* 
13- .-20* 

13-E49 
13-K05* 



13-497 
13-; 20* 
13-F49* 

1 5-L50 



13-49741 
13—05 
13-E494 
13-L50« 
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SEO 0511 



AENVM 

AFATAL 
ALL 

AMA0R1 
AMADR2 
AMADR3 
AMADR4 
AMAMSI 

AnAns2 

AMAMS3 
AMAnS4 
AnSGAD 
AMSGLG 
AMSGTY 
AMTYP1 
AMTYP2 
AMTYP3 
AMTYPA 
AGE 

APASS 
APE 

APR I OR 
APTCSU 
APTENV 
APTSIZ 
APTSPO 
ARCS 



6-0 
6-0 
11-69 

3- 0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 

51-86 
6-0 

4- 750* 
6-0 

41-1 

41-1 

10-23 

41-1 

13-41 

13-122* 

13-188* 

13-271* 

1 3-356* 

1 3-429 

1 3-539* 

13-622* 

13-690* 

1 3-772* 

13-852 

1 3-923* 

13-: 55* 

13-; 13* 

13-; 93* 

13-<58* 

1 3-=48* 

13->19* 

l3->79* 

13-776* 

13-333* 

13-A33* 

13-663* 

13-C96 

1 3-D83* 

13-E99* 

13-F96* 

15-690* 

1 3-H80* 

13-144* 



6-0 
6-0 
50-5* 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
6-0 
4-583 

6-0 



49-1* 

43-1 

49-1* 

49-1 

13-41* 

13-124* 

13-199* 

1 3-273* 

13-359* 

1 3-429* 

13-542* 

1 3-625* 

13-694* 

13-774* 

13-852* 

1 3-927* 

13-": 58* 

13-; 15* 

13-; 96* 

13-<62* 

13-=51* 

13->21* 

13->81* 

13-778* 

13-a48 

13-A37* 

13-875* 

13-C96* 

13-D87* 

13-F03* 

13-G15* 

13-692* 

13-H82* 

13-146* 



25-311 25-326 25-341 25-356 25-360 26-117 26-121 51-77 51-78 51-81 51-82 51-85 



49-1 

49-1* 

13-52* 

13-126* 

13-215* 

1 3-286 

13-361* 

1 3-444* 

13-546* 

13-627* 

13-708 

13-777* 

13-869* 

13-931* 

13-: 60* 

13-; 28 

13-<00* 

13-<79* 

13-=55* 

l3->23* 

13->83* 

13-781* 

13-348* 

13-A54* 

13-B84* 

13-D13* 

13-E06* 

13-F08* 

13-618* 

13-694* 

13-H85* 

13-160 



49-1* 



13-68* 

13-139 

13-218* 

1 3-286* 

1 3-364* 

13-447* 

13-560 

13-630* 

13-708* 

13-781* 

13-872* 

13-961* 

13-: 63* 

13-; 28* 

13-<18* 

l3-<82* 

13-= 76 

13->36 

13-703* 

13-785* 

13-359* 

13-A70* 

13-C07 

1 3-D 16* 

13-E08* 

13-F16* 

13-G21* 

13-H06 

13-H89* 

13-160* 



13-71* 

13-139* 

13-220* 

13-301* 

13-368* 

13-449* 

13-560* 

13-634* 

13-725* 

13-783* 

13-874* 

13-977 

13-: 67* 

13-; 40* 

13-<21* 

13-<85* 

13-=76* 

13->36* 

13-712 

13-787* 

13-383* 

13-A82* 

13-C07* 

1 3-D 18* 

13-ElO* 

13-F29 

13-G31* 

13-H06* 

13-H91* 

13-172* 



13-73* 

13-155* 

13-223* 

13-304* 

13-381 

13-452* 

13-577* 

13-636* 

13-728* 

13-785* 

13-877* 

13-977* 

13-: 69* 

13-; 58* 

13-<24* 

13-<89* 

13-=80* 

13->40* 

13-712* 

13-789* 

13-386* 

13-A91* 

13-C18* 

13-D21* 

13-E32 

13-F29* 

13-G34* 

13-H17* 

13-H95* 

13-188* 



13-76* 

13-158* 

13-227* 

13-306* 

13-381* 

13-456* 

13-580* 

13-638* 

13-730* 

13-798 

13-881* 

1 3-988* 

13-: 71* 

13-;61* 

13-<28* 

13-<91* 

13-=83* 

13->43# 

13-725* 

13-302 

13-388* 

13-803 

13-C34 

13-D25* 

13-E32* 

13-F51* 

13-G36* 

1 3-H33* 

13-108 

13-191* 



13-80* 

13-160* 

13-240 

13-309* 

13-398* 

13-461* 

13-582* 

13-640* 

13-733* 

13-798* 

13-883r 

13-: 06* 

13-: 84 

13-; 63* 

13-<30* 

l3-<93* 

13-=85* 

13->45* 

13-728* 

13-302* 

13-391* 

13-803* 

13-C34* 

13-D44* 

15-E43* 

13-F54* 

13-G38* 

13-H36* 

13- J 08* 

13-193* 



13-93 

13-163* 

13-240* 

13-313* 

13-401* 

13-489* 

13-585* 

13-653 

13-737* 

13-809* 

13-885* 

13-: 09* 

13-: 84* 

13-; 66* 

13-<32* 

13-<95* 

13—88* 

13->48* 

13-730* 

13-317* 

13-395* 

13-820* 

13-C45* 

1 3-D46* 

13-E63* 

13-F56* 

13-G51 

13-H38* 

13-126* 

13-196* 



13-93* 

13-167* 

13-257* 

13-315* 

13-403* 

13-505 

13-589* 

13-653* 

13-739* 

13-827* 

13-900 

13-:11* 

13-: 99* 

13-; 70* 

13-<45 

13-=20* 

13-=92* 

13->52* 

13-733* 

13-320* 

13-A08 

13-823* 

13-C71* 

13-D59 

13-E70 

13-F59* 

13-G51* 

13-H41* 

13-129* 

1 3-JOO* 



13-110* 

13-169* 

13-260* 

13-317* 

13-406* 

13-505* 

13-591* 

13-664* 

13-741* 

13-830* 

13-900* 

13-: 14* 

13-; 02* 

13-; 83 

13-,<45* 

13-=29 

13->07* 

13->67* 

13-737* 

1 3-322* 

13-A08* 

13-825* 

13-C74* 

13-D59* 

13-E70* 

13-F63* 

13-G70* 

13-H45* 

13-131* 

13-J14 



13-113* 

-■3-171* 

13-262* 

13-330 

13-410* 

13-516* 

13-593* 

13-682* 

13-754 

13-832* 

13-915* 

13-:18* 

13-; 04* 

13-; 83* 

13-<50* 

13—29* 

13->10* 

13->70* 

13-758 

13-325* 

13-A25* 

13-828* 

13-C76* 

13-D75* 

13-E91* 

13-F68* 

13-G73* 

1 3-H59 

13-134* 

13-. 14* 



13-115* 

13-175* 

13-265* 

13-330* 

13-412* 

13-534* 

13-606 

13-685* 

1 3-754* 

13-835* 

13-918* 

13-: 40 

13-; 07* 

13-; 88* 

13-<53* 

13-=43/' 

13->12* 

13->72* 

13-758* 

13-329* 

13-A28* 

13-832* 

13-C79* 

13-078* 

13-E94* 

1 3-F 76* 

13-G76* 

1 3-H59* 

13-138* 

15-J55* 



13-118* 

13-188 

M-2t9M 

13-3414j 

13-414# 

13-537¥ 

13-606* 

13-687/H 

13-7694^ 

13-839<« 

13-920* 

13-:40* 

13-;11* 

13-; 91* 

13-<55* 

13--46* 

13->15* 

13->75* 

13-7734 

13-331* 

1 3-A304 

13-8474 

13-C834 

1 3-D80* 

13-E96* 

13-F% 

13-G87* 

1 5-H77* 

13-140* 

13-J38if 
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ASNDA 
ASNOC 
ASWREG 
ATA 



ATESTN 

ATNMSK 

ATNTBL 

AUNIT 

AUSWR 

AVECTl 

AVfCT2 

BACK 



I 3-JAO* 

13-IC13 

1 3->c9A# 

13-L58ir 

13-«41# 

1 3-N1 5* 

13-N91* 

13-0<iO# 

13-P45# 

13-010# 

7-OM 

7-OM 

6-0 

4-552# 
51-60 
51-80 

6-0 

4-589# 

10-78 
6-0 
6-0 

i,'775f( 

6-0 
13-41 
1 3-93* 
13-126* 
13-169* 
13-220* 
1 3-269 
1 3-306* 
13-341 
1 3-398* 
1 3-429 
1 3-489 
13-546* 
13-591* 
1 3-634* 

3-682 
1 3-730* 
1 3-769 
1 3-785* 
1 3-852 
13-885 
1 3-931 
13-: 14 
13-: 67* 
13-; 07 
13-; 40* 
13-; 91* 
13-<28* 
1 3-<58* 
13-<91* 
13-=51 
13-=92* 
1 3->23 
1 3->w7 
13->83* 



13-J43* 

13-IC13* 

13-K96* 

1 3-L69* 

13-M43* 

13-N33* 

13-004 

13-083* 

13-P47* 

16-299* 
16-298* 

6-0 
25-138 
51-63 
51-83 

6-0 
34-55 
10-117 

6-0 

6-0 

6-0 

6-0 
13-41* 
13-110 
13-126* 
13-169* 
13-223 
1 3-269* 
13-309 
13-341* 
13-401* 
1 3-429* 
1 3-489* 
13-546* 
13-591* 
13-634* 
13-682* 
13-733 
13-769* 
13-798 
13-852* 
13-885* 
13-931* 
13-:14* 
13-: 67* 
13-; 07* 
13-; 58 
13-; 93* 
13-<30 
13-<62 
13-<93 
13-=51* 
13-=92* 
13->23* 
13->67* 
13-703 



13-J47* 

13-IC24* 

1 3-K98* 

13-L85* 

13-M56 

1 3-N36* 

13-004* 

13-085* 

13-P49* 

16-331 
16-330 

25-139 

51-64 

51-84 



6-0 

13-52 

13-110* 

13-139 

13-171 

13-223* 

13-269* 

13-309* 

13-356 

13-403* 

13-444 

13-489* 

13-560 

13-593 

13-636 

13-685* 

13-733* 

13-772* 

13-798* 

13-869 

13-885* 

13-931* 

13-:18 

13-: 69 

13-; 11 

13-; 58* 

13-; 96 

13-<30* 

13-<62* 

13-<93* 

13-=55 

13->07 

13->23* 

13->70* 

13-703* 



1 3-J49* 

13-K40* 

13-Lll 

13-L88* 

13H156* 

13-N38* 

13-020* 

13-088* 

13-P61 

16-358* 
16-366* 

25-141 

51-67 

51-87 



10-121 11-97 



13-52* 

13-113* 

13-139* 

13-171* 

13-227 

13-271 

^3-313 

13-356* 

13-406 

13-444* 

13-505 

13-560* 

13-593* 

13-636* 

13-687* 

13-737 

13-774* 

13-809 

13-869* 

13-900 

13-961 

13-: 18* 

13-: 69* 

13-; 11* 

13-; 61* 

13-; 96* 

13-<30* 

13-<62* 

13-<93* 

13-=55* 

13->07* 

13->36 

i3->72* 

13-712 



13- J 53* 
13-IC43* 
13-Lll* 
13-L90* 
13-M72* 
13-N41* 
13-023* 
13-092* 
13-P61* 

16-359 
16-367 

29-156 

51-68 

51-88 



i2-i; 



13-68 

13-115* 

13-155 

13-171* 

13-227* 

13-271* 

13-313* 

13-359* 

13-406* 

13-447* 

13-505* 

13-577 

13-593* 

13-636* 

13-690 

13-737* 

13-777 

13-809* 

13-872* 

13-900* 

13-961* 

13-:18* 

13-: 69* 

13-; 11* 

13-; 63* 

13-<00 

13-<32 

13-<79 

13-<95 

13-=55* 

13->10* 

13->i6* 

13->75 

13-712* 



13-J66 

13-K45* 

13-L27* 

13-L93* 

13-M75* 

13-N45* 

13-025* 

13-P05 

13-P74* 

16-361* 
16-369* 

29-157 
51-69 



52-3* 



13-68* 

13-118 

13-155* 

13-175 

13-227* 

13-271* 

13-313* 

13-361* 

13-410 

13-449* 

13-516 

13-577* 

13-606 

13-638 

13-690* 

13-737* 

13-777* 

13-827 

13-874* 

13-915 

13-961* 

13-:40 

13-: 71 

13-; 13 

13-; 66 

13-<00* 

13-<32* 

13-<79* 

13-<95* 

13—76 

13->12* 

13->40 

13->75* 

13-725 



13-J66* 

13-IC48* 

13-L30# 

13-L97* 

13-«77* 

13-N58 

13-028* 

13-P05* 

13-P83* 

16-362* 
16-396 

29-192 
51-70 



13-71* 

13-118* 

13-158* 

13-175* 

13-240 

13-273 

13-315 

13-364 

13-410* 

1 3-452 

13-516* 

13-580* 

1 3-606* 

13-638* 

13-694 

13-739 

13-781 

13-827* 

13-877 

13-915* 

13-977 

13-: 40* 

13-:71* 

13-: 13* 

13-; 66* 

13-<00* 

13-<32* 

13-<82* 

13-=20 

13-=76* 

13->15 

1 3->40* 

1 3->79 

13-725* 



13-J82* 

13-K52* 

13-L32* 

13-MlO 

13-M80* 

13-N58* 

13-032* 

13-P17* 

13-P86* 



13-J85* 

13-K65 

13-L35* 

13-M10* 

13-M84* 

13-N75* 

13-034* 

13-P23* 

13-P94* 



13- J 87* 
1 3-K65* 
13-L39* 
13H127* 
13-fl86* 
13-N78* 
13-036* 
13-P26* 
13-P97* 



16-363 16-365* 16-397 



29-195 
51-71 



13-73* 

13-122 

13-160* 

13-188 

13-240* 

13-273* 

13 315* 

13-364* 

13-410* 

13-452* 

13-534 

13-582* 

13-622 

13-638* 

13-694* 

13-739* 

13-781* 

13-830* 

13-877* 

13-918* 

13-977* 

13-:55 

13-:71* 

13-; 13* 

13-; 70 

13-<18 

13-<45 

13-<85 

13- 20* 

13—80 

13->15* 

13->43* 

1 3->79* 

13-^28* 



33-145 
51-72 



13-76 

13-122* 

13-163 

13-188* 

13-257 

13-273* 

13-315* 

13-368 

13-412 

13-456 

13-534* 

13-585 

13-622* 

13-640 

13-694* 

13-739* 

13-781* 

13-832* 

13-881 

13-920* 

13-988 

13-: 55* 

13-:84 

13-; 15 

13-; 70* 

13-<18* 

13-<45* 

13-<85* 

13-=29 

13—80* 

13->19 

13->45* 

1 3->79* 

13-730* 



33-146 
S.-73 



13-76* 

13-122* 

13-163* 

13-199 

13-257* 

13-286 

13-317 

13-368* 

13-412* 

1 3-456* 

13-537* 

13-585* 

13-625* 

13-640* 

13-708 

13-741 

13-783 

13-835 

13-881* 

1 3-923 

13-988* 

13-: 58* 

13-: 84* 

13-; 15* 

13-; 70* 

13-<21* 

13-<50 

13-<89 

13-=29* 

13—83* 

13->19* 

13->48 

13->81 

13-735 



1 3-J90* 
13-K82* 
13-L41* 
13H130* 
l3-«88* 
13-N80* 
13-038* 
13-P33* 
13-P99* 



33-185 
51-74 



13-80 

13-124 

13-167 

13-199* 

13-260* 

13-286* 

13-317* 

13-368* 

13-412* 

13-456* 

13-539* 

13-589 

13-627* 

13-653 

13-708* 

13-741* 

13-783* 

13-835* 

13-881* 

13-923* 

13-:06 

13-: 60* 

13-: 99 

13-; 15* 

13-; 83 

13-<24 

13-<50* 

1 3-<89* 

13-=43 

13—85* 

13->19* 

1 3->48* 

13->81* 

13-733* 



1 3-J94* 

1 3-K85* 

13-L43* 

13H132* 

13-f190* 

13-N83* 

13-053 

13-P36* 

13-002* 



33-188 
51-75 



13-80* 

13-124* 

13-167* 

13-215 

13-262* 

13-301 

13-317* 

13-381 

13-414 

13-461 

13-542 

13-589* 

13-630 

13-653* 

13-725 

13-741* 

13-783* 

13-839 

13-883 

13-927 

13-:06* 

13-:63 

13-: 99* 

13-; 28 

13-; 83* 

13-<24* 

13-<53* 

1 3-<89* 

13-=43* 

13-=88 

13->21 

13->52 

13->81* 

15-737 



13-J96* 

1 3-K87* 

13-L45* 

1 3H135* 

13-N03 

13-N87* 

13-053* 

13-P38* 

13-006* 



51-58 
51-76 



13-80* 

13-124* 

13-167* 

13-215* 

13-265 

13-301* 

13-330 

13-381* 

13-414* 

13-461* 

13-542* 

13-589* 

13-630* 

13-664 

13-725* 

13-754 

13-785 

13-839* 

13-883* 

13-927* 

13-: 09* 

13-:63* 

13-; 02* 

13-; 28* 

13-; 88 

13-<28 

13-<55* 

13-<91 

1 3-=46* 

1 3-=88* 

13->21* 

13->52* 

13->83 

15-737* 



13-icOO* 
13-IC90* 
13-L58 
13-M39* 

13-N89* 
13-064* 
15-P41* 
13-008* 



51-59 
51-79 



13-93 

13-126 

13-169 

13-218* 

13-265* 

IS-SOA* 

13-330<H 

13-398 

13-414* 

13-461* 

13-546 

13-591 

13-634 - 

13-664* 

13-728* 

13-754/I* 

13-785^ 

13-8394^ 

13-883S 

13-927^ 

13-:11* 

13-:67^ 

13-; 40 

13-; 88* 

1 3-<28* 

13-<58 

13-<91* 

13-=48* 

13—92 

13->21* 

1 3->52* 

13->854 

13-^57* 
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BADSCT 

BAD TWO 

BAI 

8800 

BB01 

8802 

8603 

8804 

8805 

8806 

8807 

8606 

8809 

81 TO 

BITOO 

BIT01 
BIT02 
BIT03 



13-758 
1 3-789 

' 3-a3i 

13-391 
' 3-A37# 
'3-803 
13-663 
13-C3A# 
13-013 
1 3-D46# 
13-E06* 
1 3-E91 
13-F16# 
13-F6&r 
13-G56 
13-G90 
13-h36# 
13-M85# 
13-129* 
'3-K6* 
13-jU 
13- J 53 
13-J96 
13-K48 
13-K9<# 
13-L35 
i3-l58# 
13-H27 
13-M43* 
13-rt86* 
13-N41 
13-N87# 
1 3-028 
13-053* 
1 3-P1 7 
13-P47 
13-P94* 
13-52 
13-172 
10-3* 
4-739* 
4-670* 
4-670* 
4-670* 
4-670* 
4-670* 
4-670* 
4-670* 
4-670* 
4-670* 
4-670* 
4-484* 
4-484 
43-1 
4-484 
4-484 
4-484 



13-753* 

13-789* 

13-831* 

13-39'* 

13-A37* 

13-603* 

13-663* 

13-C45 

13-D13* 

1 3-D59 

13-E08 

13-E91* 

13-F29 

13-F76 

13-G36* 

13-G90* 

13-H38* 

13-H89 

13-131* 

13-160 

13-J14* 

13-J53* 

13-J96* 

13-IC48* 

13-K94* 

13-L35* 

13-L69 

13-fl27* 

13-fl56 

13-M88 

13-N/.1* 

1 3-N87* 

13-028* 

13-064 

13-P17* 

13-P47* 

13-P97# 

13-199 

I3-K24 

^0-25 

26-28 



13-V3 

13-789* 

13-931* 

1 3-895 

13-A54 

13-620 

13-663* 

13-C45* 

13-D16* 

1 3-D59* 

13-E08* 

13-F94* 

13-r29* 

r3-F76* 

13-G36* 

13-G92 

13-H41 

13-H89* 

13-134 

13-160* 

13- J 35 

13- J 53* 

13-J96* 

13-K52 

13-K96 

13-L39 

13-L69* 

13-fl30* 

13-fl56* 

13-M88* 

13-N45 

13-N89 

13-032 

13-064* 

13-P23 

13-P47* 

13-P99* 

13-341 

13-L69 



13-773* 

13-a02 

13-833 

13-895* 

1 3-A54* 

1 3-820* 

13-675 

13-C71 
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8-281 

8-323 

8-369 

8-4 14 

8-525 

8-573 

8-621 

8-663 

57-1# 
3-221 
8-224 
8-233 
8-426 
8-447 
8-351 
8-684 
8-699 
8-720 

55-1 

55-4 



60- ' 1* 
8-6 
8-M 
8-93 
8-136 
8-185 
a-242 
8-284 
8-326 
8-372 
8-417 
8-531 
8-577 
8-624 
8-666 

56-4# 

8-227 
56-7# 
8-429 
8-528 
8-681 
56-11* 
56-12* 

56- 14* 

61- 1* 

57- 5 
57-8 
57-11 

8-6 

8-51 

8-93 

8-136 

8-185 

8-242 

8-284 

3-326 

8-372 

8-417 

8-531 

8-577 

8-624 

8-666 

57-4* 
8-227 
57-7* 
8-429 
8-528 
8-681 
57-11* 
57-12* 
57-14* 
59-1* 
59-2* 



8-9 

8-54 

8-96 

8-139 

8-188 

8-245 

8-287 

8-329 

8-375 

8-420 

8-534 

8-581 

8-627 

8-669 



56-5* 

8-513 
56-8* 
8-687 



61-2* 
57-14 
57-12 

8-9 

8-54 

8-96 

8-139 

8-188 

8-245 

8-287 

8-329 

8-375 

8-420 

8-534 

8-581 

8-627 

8-669 



57-5* 

8-513 
57-8* 
8-687 



8-12 

8-57 

8-99 

8-142 

8-191 

8-248 

8-290 

8-332 

8-378 

8-423 

8-537 

8-586 

8-630 

8-672 



8-516 
8-690 



61-3* 
61-4* 

8-12 

8-57 

8-99 

8-142 

8-191 

8-248 

8-290 

8-332 

8-378 

8-423 

8-537 

8-586 

8-630 

8-672 



8-516 
8-690 



8-15 

8-60 

8-102 

8-146 

8-194 

8-251 

8'-293 

8-335 

8-38r 

8-432 

8-540 

8-590 

8-633 

8-675 



56-2* 
56-10* 



8-15 

8-60 

8-102 

8-146 

8-194 

8-251 

8-293 

8-335 

8-381 

8-432 

8-540 

8-590 

8-633 

8-675 



57-2* 
57-10* 



8-18 

8-63 

8-105 

8-150 

3-197 

8-254 

8-296 

8-338 

8-38^ 

8-435 

8-543 

8-594 

8-636 

8-678 



8-18 

8-63 

8-105 

8-150 

8-197 

8-254 

8-296 

8-338 

8-384 

8-435 

8-543 

8-594 

8-636 

8-678 



8-?4 

8-66 

8-108 

8-154 

8-200 

8-257 

8-299 

8-341 

8-390 

8-438 

8-546 

8-597 

8-639 

8-693 



8-24 

8-66 

8-108 

8-154 

8-200 

8-257 

8-299 

8-341 

8-390 

8-438 

8-546 

8-597 

8-639 

8-693 



8-?7 

8-69 

8-111 

8-160 

8-203 

8-260 

8-302 

8-344 

8-393 

8-441 

8-549 

8-600 

8-642 

8-696 



8-27 
8-69 

8-m 

8-160 
8-203 
8-260 
8-302 
8-344 
8-393 
8-441 
8-549 
8-600 
8-642 
8-696 



8-50 

8-72 

8-114 

8-163 

8-206 

8-263 

8-305 

8-347 

8-396 

8-444 

8-552 

8-603 

8-645 

8-702 



8-30 

8-72 

8-114 

8-163 

8-206 

8-263 

8-305 

8-347 

8-396 

8-444 

8-552 

8-603 

8-645 

8-702 



8-55 

8-75 

8-117 

8-166 

8-209 

8-266 

8-308 

8-354 

8-399 

8-504 

8-556 

8-606 

8-648 

8-705 



8-33 

8-75 

8-117 

8-166 

8-209 

8-266 

8-308 

8-354 

8-399 

8-504 

8-556 

8-606 

8-648 

8-705 



8-56 

8-78 

8-120 

8-169 

8-212 

8-269 

8-311 

8-357 

8-402 

8-507 

8-559 

8-609 

8-651 

8 708 



8-36 

8-78 

8-120 

8-169 

8-212 

8-269 

8-311 

8-357 

8-4C2 

8-507 

8-559 

8-609 

8-651 

8-708 



8-59 

8-81 

8-123 

8-172 

8-215 

8-272 

8-314 

8-360 

8-405 

8-510 

8-56T 

8-612 

8-654 

8-711 



8-39 

8-81 

8-123 

8-172 

8-215 

8-272 

8-314 

8-360 

8-405 

8-510 

8-563 

8-612 

8-654 

8-711 



8-42 

8-84 

8-126 

8-175 

8-218 

8-275 

8-317 

8-363 

8-408 

8-519 

8-566 

8-615 

8-657 

8-7U 



8-42 

8-84 

8-126 

8-175 

8-218 

8-275 

8-317 

8-363 

8-408 

8-519 

8-566 

8-615 

8-657 

8-714 



e-45 

8-87 

8-130 

8-178 

8-236 

8-278 

8-320 

8-366 

8-411 

8-522 

8-569 

8-618 

8-660 

8-723 



8-45 

8-87 

8-130 

8-178 

8-236 

8-?78 

8-320 

8-366 

8-411 

8-522 

8-569 

8-618 

8-660 

8-723 
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SEO 



EHin 

EH225 
EH256 
FH336 
Em3;7 
EH54A 
EH353 
EhTT 



EHnio 

EHTIII 
•EHT1U 
EHT2 
EHT223 
EHT256 
EHT336 
EHT337 
EHT3AA 
tMT553 
EMS1 
EMS 10 
EMS 100 
EMS101 
EMS 102 
EMS 103 

EMS 104 
EMS105 
EMS 106 
EMS11 

EMS110 
EMS111 
EMS112 
EMS113 
EMS1U 
EMS115 



E»"S1I6 
tMSl17 



55-5 

55-7 

55-8 

55-9 

55-11 . 

55-12 

55-13 

55-^5 
8-3 
8-A8 
8-90 
8-133 
8-182 
8-239 
8-281 
8-323 
8-369 
8-AU 
8-525 
8-573 
8-621 
8-663 

55-1* 
8-221 
8-224 
8-233 
8-A26 
8-AA7 
8-528 
8-351 
8-684 
8-699 
8-720 

54-3 

54-7 

54-39 

54-40 

54-177 

54-56' 

54-210 

54-136 

54-204 

54-212 

54-12 

54-28 

54-9" 

54-74 

54-74 

54-75 

54-77 

54-44 

54-73 

54-185 

54-223 

54-74 

54-77 

54-V 



59- 3# 
59-5# 
'59-6* 
59-7* 
59-10* 
59-11* 
59-15* 
59-18* 
8-6 
8-51 
8-93 
8-136 
8-185 
8-242 
8-284 
8-326 
8-372 
8-417 
8-531 
8-577 
8-624 
8-666 

55-4* 
8-227 
55-7* 
8-429 
55-8* 
55-9* 
8-681 
55-12* 
55-13* 
55-15* 
58-3* 
54-11 
54-71 
54-59 
54-178 
54-57 
54-211 
54-180 
58-71* 
54-232 
54-15 
54-29 
54-74 
54-226 
58-75* 
54-76 
58-78* 
54-45 
54-77 
54-186 
54-232 
54-77 

54-143 
58-12* 



8-9 

8-54 

8-96 

8-139 

8-188 

8-245 

8-287 

8-329 

8-375 

8-420 

8-534 

8-581 

8-627 

8-669 



55-5* 
8-513 

8-687 



58-10* 
54-176 
54-174 
54-181 
54-135 
54-213 
54-203 

58-72* 

54-16 

54-30 

54-77 

58-74* 

54-78 

54-48 

54-107 

54-187 

54-234 

54-'9l 

54-148 



8-12 

8-57 

8-99 

8-142 

8-''91 

8-248 

8-290 

8-332 

8-378 

8-423 

8-537 

8-586 

8-630 

8-672 



8-516 
8-690 



54-196 
54-197 
54-182 
54-141 
54-214 
58-70* 



54-17 
54-31 
58-73* 



54-50 

54-108 

54-188 

58-79* 

54-225 

54-149 



8-15 

8-60 

8-102 

8-146 

8-194 

8-251 

8-293 

8-335 

8-381 

8-432 

8-540 

8-590 

8-633 

8-675 



55-2* 
55-11* 



58-66* 
58-67* 
54-183 
54-196 
54-215 



54-18 
54-32 



54-127 58-77* 



54-51 

54-109 

54-189 

58-80* 
54-' 78 



8-18 

8-63 

8-105 

8-150 

8-197 

8-254 

8-296 

8-338 

8-384 

8-435 

8-543 

8-594 

8-636 

8-678 



54-184 
54-197 
54-219 



54-19 
54-33 



54-52 

54-110 

54-190 



8-24 

8-66 

8-108 

8-154 

8-200 

8-257 

8-299 

8-341 

8-390 

8-438 

8-546 

8-597 

8-639 

8-693 



54-186 
54-198 
54-220 



54-20 
54-43 



54-54 

54-134 

54-192 



8-27 

8-69 

8-111 

8-160 

8-203 

8-260 

8-302 

8-344 

8-393 

8-441 

8-549 

8-600 

8-642 

8-696 



54-187 
54-203 
58-69* 



54-21 
54-177 



54-55 

54-137 

54-193 



8-30 

8-72 

8-1 U 

8-163 

8-206 

8-263 

8-305 

8-347 

8-396 

8-444 

8-552 

8-603 

8-645 

8-702 



54-188 
54-204 



54-22 
58-11* 



54-60 

54-139 

54-194 



8-33 

8-75 

8-117 

8-166 

8-209 

8-266 

8-308 

8-354 

8-399 

8-504 

8-556 

8-606 

8-648 

8-705 



54-189 
54-205 



54-61 

54-140 

54-195 



8-36 

8-78 

8-120 

8-169 

8-212 

8-269 

8-311 

8-357 

8-402 

8-507 

8-559 

8-609 

8-651 

8-708 



54-234 
54-206 



54-25 54-24 



54-63 

54-142 

54-201 



8-39 

8-81 

8-123 

8-172 

8-215 

8-272 

8-314 

8-360 

8-405 

8-510 

8-563 

8-612 

8-654 

8-711 



54-235 
54-20? 



54-25 



54-66 
54-1 79 
54-205 



8-42 

8-84 

8-126 

8-175 

8-218 

8-275 

8-317 

8-363 

8-408 

8-519 

8-566 

8-615 

8-657 

8-714 



58-68* 
54-208 



54-26 



54-67 

54-182 

54-221 



8-45 

8-87 

8-130 

8-178 

8-236 

8-278 

8-320 

8-366 

8-411 

8-522 

8-569 

8-618 

8-660 

8-723 



54-209 



54-27 



54-70 

54-183 

54-222 



54-185 54-201 54-225 54-228 54-229 54-230 54-231 58-31* 
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EMS1?0 5A-78 58-82* 

EMSIPI 5A-88 54-97 54-99 58-83* ; 

e5s123 54-8? 54-88 54-89* 54-90 54-90 54-91 54-92 54-93 '54-94 54-95 54-96 54-98 54-126 58-85* 

EMS124 54-56 54-82 54-91 54-101 58-86* 

EMS125 54-83 54-92 54-102 54-169 58-97* 

EMS 126 54-84 54-93 54-103 58-88* 

EMS1 27 58-89* 

EMS13 54-13 54-42 54-216 5B-13* 

EWS130 54-86 54-95 54-106 58-90* 

fSslil 54-79 54-80 54-81^ 54-82* 54-83 54-84 54-85 54-86 54-87 54-88 54-89 54-90 54-91 54-92 

5^-93 54-94 54-95 54-96 54-97 54-98 54-99 54-100 54-101 54-102 54-103 54-104 54-105 54-106 

54-125 54-126 54-168 54-169 58-92* 

EMS133 54-79 54-80 54-81 54-82 54-83 54-84 54-85 54-86 54-87 54-125 58-93* 

EI«IS134 54-88 54-89 54-90 54-91 54-92 54-93 54-94 54-95 54-96 54-126 58-94* 

EMS135 54-97 54-98 58-95* 

EMS136 54-99 54-100 54-101 54-102 54-103 54-104 54-105 54-106 58-96* 

EMS137 54-85 54-94 54-100 58-97* 

EMS140 54-44 54-52* 54-60 54-107 54-117 54-137 54-186 54-19? 58-98* 

EM 141 54-35 54-44 54-45 54-60 54-61 54-66 54-107 54-122 54-137 54-187 54-188 54-193 54-22? 58-99* 

EMSin? 54-47 54-65 54-108 54-140 54-184 54-202 58-100* 

EMS143 54-47 54-65 54-73 54-108 54-109 54-110 54-133 54-140 54-184 54-202 54-205 -^B-IGl* 

EMS144 54-36 54-73 54-109 54-110 54-205 58-102* 

EMS145 54-36 54-73 54-109 54-110 54-205 58-103* 

EMS146 54-109 54-185 54-190 54-201 58-104* 

EMS147 54-69 54-112 54-113 54-173 54-217 58-105* 

EMSlio 54-50 54-51 54-54^ 54-63* 54-67 54-111 54-134 54-138 54-182 54-183 54-194 54-195 54-223 54-234 
58-106* 

ISiiJ i^lf? ^-\V it:U' ll-^? \UV^ 5«-82 5«-„. 5«-,95 5Wa3 58-,0W 

EMS153 54-111 58-109* 

EMS154 54-111 54-112 54-123 54-124 58-110* 

EMS155 54-112 54-124 58-111* 

EMS156 54-113 54-114 54-115 54-116 54-173 58-112* 

EMS157 54-113 54-123 58-113* 

EMS16 54-13 58-16* 

EMS160 54-114 54-115 54-116 58-114* 

EMS161 54-114 58-115* 

eI!s163 54-58^ 5'.-59 54-60 54-61 54-62 54-63 54-64 54-65 54-66 54-67 54-68 54-69 54-70 5W1 

54-72 54-73 54-117 54-143 58-1 V* 

EnS164 54-45 58-118* 

EMS165 54-56 54-57 54-71 54-72 54-172 54-196 54-197 54-198 58-120* 

EMS167 54-8^^ 54-49^* 54-68 54-123 54-124 54-168 54-169 54-170 54-175 54-235 58-122* 

EMS17 54-14 58-17* 

E.1S170 54-9 58-123* 

EMS171 54-57 54-105 54-125 54-126 58-124* ■ , 

EMS1 72 54-215 58-125* 

EMS173 54-214 58-126* 

EMS174 54-216 58-127* 

E«S175 54-216 54-217 54-218 54-219 58-128* 

EMS 176 58-129* 

EMS177 54-127 58-130* 
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54-120 54-121 54-212 54-23? 54-238 58-18* 

54-134 54-136 54-180 58-133* 

54-174 54-175 54-176 54-?37 58-134* 

58-137* 





J** H 


S4-5 


58-4* 








S4-34 


54-58 


54-1 10 


54-1 18 


54-119 




1 CO 


SA-1 31* 










S4-1P8 


58-1 3?* 






54-133 




54-1 ?? 

J** ICC 


54-130 


54-131 


54-132 


FMS203 


54-12? 


54-130 


54-131 


54-132 


54-133 




54-1 31 


58-1 35* 










54-S5 


54-142 


54-1 79 


54-233 


58-136* 


tnS206 


54-55 


54-142 


54-1 70 


54-179 


54-233 


fMS?07 


54-168 


54-170 


58-1 38* 






FM^? 1 


54-1 5 


58-19* 








FM^PIO 

t 'HOC 1 V 


54-169 


54-1 70 


54-1 73 


58-1 39* 




EMS211 


54-170 


58-140* 








EMS212 


54-171 


54-172 


58-141* 






EWS213 


54-171 


58-142* 








EMS214 


54-55 


58-143* 








EMS215 


54-236 


58-144* 










54-237 


58-145* 








EMS21 7 


54-237 


58-146* 








EMS22 


54-16 


58-20* 








EMS220 


54-1 79 


58-147* 








EMS221 


54-231 


54-238 


58-148* 






EH1S222 


54-233 


58-149* 








EWS223 


54-232 


58-150* 








EMS224 


54-121 


58-151* 








EMS23 


54-17 


58-21* 








5lif)S24 


54-18 


58-22* 








FMS25 


54-19 


54-1 15 


58-23* 






EII1S26 


54-20 


54-1 16 


5^-173 


58-24* 




EMS27 


54-16 


54-19 


54-20 


54-115 


54-116 


EMS3 


54-4 


54-76 


58-5* 






EMS 30 


54-17 


54-18 


54-21 


54-22 


54-23 




54-33 


54-43 


54-122 


54-130 


54-131 




54-177 


54-199 


58-26* 






EMS31 
EMS32 


54-21 


54-146 


54-207 


54-208 


58-27* 


54-22 


58-28* 








EMS 35 


54-23 


54-219 


58-29* 






EMS 54 


54-24 


54-225 


54-226 




58-30* 


FMS35 


54-25 


54-216 


58-31* 






EMS 36 


54-26 


54-213 


54-214 


54-215 


58-32* 


EMS37 


54-27 


58-33* 








EMS4 


54-5 


54-75 


58-6* 






EMS40 


54-28 


54-220 


58-34* 






EMS41 


54-29 


54-190 


54-191 


58-35* 




EMS42 


54-30 


54-206 


58-36* 






EMS43 


54-31 


54-209 


58-37* 






EMS44 


54-32 


54-211 


54-230 


58-38* 




EMS45 


54-33 


54-210 


54-229 


58-39* 




EMS46 


54-43 


54-58 


54-120 


54-145 


54-177 


FMS47 


54-37 
54-193 


54-44 
54-222 


54-45 
58-41* 


54-52 


54-60 


EMS5 


54-6 


54-7 


58-7* 






EMS50 


54-46 
58-42* 


54-48 


54-64 


54-70 


54-132 


EMS51 


54-48 


54-55 


54-70 


54-130 


54-139 


fMS52 


54-55 
58-44* 


54-142 


54-143 


54-148 


54-149 



54-173 58-25* 

54-24 54-25 54-26 54-27 54-28 54-29 54-30 54-31 54-3^ 
54-132 54-133 54-144 54-145 54-146 54-147 54-174 54-175 54-176 



54-185 54-199 54-201 58-40* 

54-61 54-66 54-117 54-118 54-147 54-186 54-187 54-188 54-192 

54-135 54-139 54-141 54-181 54-185 54-189 54-2 ^ 54-201 54-221 

54-142 54-179 54-189 54-221 58-43* 

54-178 54-179 54-185 54-201 54-228 54-229 54-230 54-231 54-233 
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54-47 54-6? 54-64 54-65 54-73 54-UO 54-141 

54-19? 54-193 54-194 54-195 54-POO 54t20? 54-203 

54-226 58-45* 

54-143 54-144 54-178 54-182 54-183 54-194 54-19*. 

54-197 54-198 54-199 54-200 54-201 54-202 54-203 

54-211 54-215 54-214 54-215 54-2?0 54-221 54-2?? 



EMS55 


C/ —77 


5h — JO 


JH— >▼ 


JH — HU 


JH HH 


54-45 

JH J 


JH HU 


J*»— 1 O I 


3H— I Oc 


JH— 1 Oh 


JH— 1 OU 


54-187 

JH 1 O' 


54-190 


54-191 






3h— cUD 


JH— cUf 


JH— C lO 


jH c ' O 


54-P19 

JH C ' ' 


54-??0 

JH C C w 


















rni J J 


JH— CC ' 


58-4 7# 








54-67 


54-1 19 


CMC 




JH J 1 


54-54 


54-6? 


54-63 


JH— CC J 


JH c CO 


54-P34 


58-48* 




54-195 


54-196 


ens J ' 


JH— 1 TV 






54-193 

J*t ' 7 J 


54-194 




J*« Cw J 




JH C w ' 


54-P08 


54-209 


54-210 




J** CC J 


JH— tcO 

JO 




JH C -Jv 


58-49* 






t HiO 


J**- O 














JH— CCH 


JO Jw* 












t nio 1 


JH — C C** 


JO J 1 * 












c naoc 


J** cc* 


JO JC* 














JH— Ht 


jH— 1 Hy 


JH 1 TV 


58-53* 

JO J J" 


54-145 


54-146 


54-147 




3H— O 


JH 1 H 


54-41 

JH H 1 


54-144 






JO J JW 












tnioo 


j«»— j*« 


JH C 1 O 


58-56* 








54-49 


EMS67 


J** 3 


jH— •♦*♦ 


JH H J 


JH HU 


54-47 

J"* H r 


54-48 


CMC 7 


^H— 1 VJ 


JO 7^ 








54-70 


54-73 




J** Ho 


JH J U 


JH JC 


J *t J 


J *t \J\J 




'>4-??1 


SR-'iR/r 

JO J Off 










58-59* 


PMC71 


•i^-SI 

JH J 1 


JH J7 


S4-63 

J"* U J 

54-5'' 


54-183 


54-195 


54-?08 


E^S72 


JH JG 


JH HO 


54-55 


54-56 


54-57 


54-60 


54-1 39 


SZi-140 


54-14? 


54-179 


54-183 


54-187 


54-193 




54-49 


54-54 


54-67 


54-68 


54-136 


54-180 


54-188 




54-69 


54-70 


54-134 


54-189 


54-?17 


54-??1 


58-62* 


FMC75 


54-35 


54-66 


54-67 


54-137 


54-1 58 
54-59 


54-188 








54-36 


54-37 


54-38 


54-40 


58-64* 


54-38 


54-7? 


54-148 


54-198 


58-65* 








8-3 


54-3# 
















54-1 0# 












FMT100 


8-197 


54-66Ar 














8-POO 


54-67Xf 














8-?03 


54-684r 












FMTini 


O C wU 


54-69# 
















54-70# 












CMT1 OS 




54-/'1# 














8-P1 5 


















54-73* 












FMT1 1 


R-?7 


54-1 1# 












FMT1 10 


8-??1 


54-74* 












FMT 11 1 

t »^ 1 III 


o c c 


54-75* 












FMT1 1? 




54-76* 












FMTI 13 




54-77* 












FMTI 14 


8-233 


54-78# 












FMT1 1 5 


8-236 


54_79# 












FMT1 16 


8-239 


54-80* 












FMTI 17 


8-?4? 


54-81* 












EflTI? 


8-30 


54-1?* 












FMT120 

C ' 1 1 1 C w 


8-245 


54-8?* 












EMT121 


8-?48 


54-83* 












EMT1?? 


8-251 


54-84* 












EMT125 


8-254 


54-85* 












Efin24 
EMTT25 


8-257 


54-86* 












8-?60 


54-87* 












E«T]?6 


8-263 


54-88* 













54-50 54-51 54-52 54-54 58-57* 

54-107 54-110 54-139 54-182 54-189 54-194 54-205 

54-61 54-61 54-63 54-108 54-109 54-154 54-155 

54-195 54-232 58-60* 

54-222 54-225 54-254 54-255 58-61* 

54-223 54-254 58-65* 
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EMT1?7 


8-266 


54 


-89* 




8-33 


54 


-13* 


Em 50 


8-269 


54 


-90* 


EMT131 


8-272 


54- 


-91* 


EMT132 


8-275 


54-92* 


EMTI33 


8-278 


54- 


-93* 


EMT13A 


8-281 


54-94* 


EMTI35 


8-28A 


54-95* 


EMT136 


8-287 


54- 


-96* 




8-290 


54- 


-97* 


EMTH 


8-36 


54- 


-14* 


EMTUO 


8-293 


54- 


-98* 


EMTK1 


8-296 


54- 


-99* 


EMTU2 


8-299 


54- 


-100* 


EMTK3 


8-302 


54- 


-101* 


EMTU4 


8-305 


54-102* 


EMTH5 


8-308 


54-103* 


EMTU6 


8-311 


5h" 


- 1 U*»w 


EMTK7 


8-3''4 


^/.. 


-1 n^if 

- 1 IJ5w 


EWT15 


8-39 


^/ . 
JH' 


-1 'im 
1 j» 


EMT150 


8-317 


JH 




EMTISI 


8-320 


«nZ.. 


~ \ \}f ft 


EMT152 


8-323 






EWT153 


8-326 






EMT154 


8-329 






EMTISS 


8-332 


J** 


-111* 


EMn56 


8-335 


j*f 




EMT157 


8-338 


JH 




EMT16 


8-42 




-1 Air 


EMT160 


8-341 




-1 ^Llt 


EMT161 


8-344 




-1 1 

1 1 


EMn62 


8-347 






EMT163 


54-117* 






EMT16'; 


8-354 






EMT165 


8-357 


54- 


-119* 


EMn66 


8-360 


54- 


-120* 


EMT167 


8-363 


54 


-121* 


EMn7 


8-45 


54 


-17* 


EMn70 


8-366 


54 


-122* 


EMn71 


8-369 


54 


-123* 


EMn72 


8-372 


54 


-124* 


EMT''73 


8-375 


54 


-125* 


EMn74 


8-378 


54 


-126* 


EMn75 


8-381 


54 


-127* 


EMn76 


8-384 


54 


-128* 


EMT177 


54-129* 






EMT2 


8-6 


54 


-4* 


EMT20 


8-48 


54 


-18* 


EMT200 


8-390 


54 


-1 30* , 


EriT20l 


8-393 


54 


-131* 


EMT202 


8-396 


54 


-132* 


EMT203 


8-399 


54 


-133* 


EMT2(X 


8-402 


54 


-134* 


EMT205 


8-405 


54 


-135* 


EMT206 


8-408 


54 


-136* 


EMT207 


8-411 


54 


-137* » 


EMT21 


8-51 


54 


-19* 
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EMT?10 


8-4 U 


54- 


•^38* 




8-A17 


54- 


139* 


EMT212 


8-420 


54- 


140* 


EMV13 


8-423 


54- 


141* 


EMT2U 


8-426 


54- 


142* 


EMT215 


8-429 


54- 


143* 


EMT216 


8-432 


54- 


144* 


E^»T217 


8-435 


54- 


145* 


EMT22 


8-54 


54- 


20* 


1 EMT220 


8-438 


54- 


146* 


EMT2P1 


8-441 


54- 


147* 


' EMT222 


8-444 


54- 


148* 


, EMT223 


8-447 


54- 


149* 


1 EMT22A 


54-1 50/r 






EMT225 


54-151# 






EMT226 


54-1 52# 






EMT227 


54-153* 






EMT23 


8-57 


54- 


21* 


EMT230 


54-154* 






EMT231 


54-155* 






EMT232 


54-156* 






EriT233 


54-157* 






EMT23A 


54-158* 






EMT235 


54-159* 






EMT236 


54-160* 






EMT237 


54-161* 






EMT2A 


8-60 


54- 


22* 


EMT2A0 


54-162* 






EMT241 


54-163* 






EMT242 


54-164* 






EMT243 


54-165* 






EMT2AA 


54-166* 






EMT2A5 


54-167* 






EMT2A6 


8-504 


54- 


168* 


EMT247 


8-507 


54- 


169* 


EMT25 


8-63 


54- 


23* 


EMT250 


8-510 


54- 


170* 


EMT251 


8-513 


54- 


1 71* 


EMT252 


8-516 


54- 


172* 


tMT253 


8-519 


54- 


■173* 


EMT25A 


8-522 


54- 


•174* 


EMT255 


8-525 


54- 


■175* 


EMT256 


8-528 


54- 


■176* 


EMT257 


8-531 


54- 


■177* 


EMT26 


8-66 


54- 


■24* 


EMT260 


8-534 


54- 


■178* 


EMT261 


8-537 


54- 


•179* 


EMT262 


8-540 


54- 


■180* 


EMT263 


8-543 


54- 


■181* 


EMT26A 


8-546 


54- 


-182* 


EMT265 


8-549 


54- 


■183* 


Em266 


8-55P 

8-' yO 


54- 


■184* 


EMT267 


54- 


-185/- 


EMT27 


8-o9 


54- 


-25* 


EMT270 


8-559 


54- 


-186* 


fMT271 


8-563 


54-187* 


EMT272 


8-566 


54-188* 
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SEO 0121 



EMT273 

EMT27A 

EMT275 

EMT276 

EMT277 

EMT3 

EMT30 

EMT300 

EI1T301 

E>1T302 

EMT303 

EMT30S 

EMT305 

EMT306 

EMT307 

EMT31 

EMT310 

EMT3n 

£^1312 

EMT313 

EMT3K 

EMT315 

EMT316 

E«T317 

EMT32 

EMT320 

EMT321 

EMT322 

EMT323 

EMT32A 

Em325 

EMT326 

EMT327 

EMT33 

EMT330 

EMT331 

Em 332 

EMT333 

EMT33A 

Em335 

Em336 

EMT337 

Em3A 

EMT340 

EMT3A1 

EHT3A2 

Em3A3 

EMT3AA 

Em3A5 

EMT3A6 

EMT3A7 

EMT35 

EMT350 

EMT351 

EMT352 

fl>1T353 

EMT354 



8-569 

8-573 

8-577 

8-'81 

8-586 

8-9 

8-72 

8-590 

8-59A 

8-597 

8-600 

8-603 

8-606 

8-609 

8-612 

8-75 

8-615 

8-618 

8-621 

8-62A 

8-627 

8-630 

8-633 

8-636 

8-78 

8-639 

8-6A2 

8-645 

8-648 

8-651 

8-654 

8-657 

8-660 

8-81 

8-663 

8-666 

8-669 

8-672 

8-675 

8-678 

8-351 

8-684 

8-84 

8-687 

8-690 

8-693 

8-696 

8-699 

8-702 

8-705 

8-708 

8-87 

8-711 

8-714 

8-717 

8-720 

8-723 



54-"'89# 

54-190* 

54-191* 

54-192* 

54-193* 

54-5* 

54-26* 

54-194* 

54-195* 

54-196* 

54-197* 

54-198* 

54-199* 

54-200* 

54-201* 

54-27* 

54-202* 

54-203* 

54-204* 

54-205* 

54-206* 

54-207* 

54-208* 

54-209* 

54-28* 

54-210* 

54-211* 

54-212* 

54-213* 

54-214* 

54-215* 

54-216* 

54-217* 

54-29* 

54-218* 

54-219* 

54-220* 

54-221* 

54-222* 

54-223* 
8-681 
54-225* 
54-30* 
54-226* 
54-227* 
54-228* 
54-229* 
54-230* 
54-231* 
54-232* 
54-233* 
54-31* 
54-234* 
54-235* 
54-236* 
54-237* 
54-238* 



54-224* 
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EM^36 8-90 54-32# 

EMT37 8-93 5A-33* 

EWTA 8-12 54-6# 

E«T^.O 8-96 5A-34* 

EMT41 8-99 5A-35* 

EMT42 8-102 5A-36# 

EMT43 8-105 5A-37# 

EMT44 8-108 54-38# 

EMT45 8-111 5A-39# 

EMT46 8-1 K 5A-40* 

EMTA7 8-117 54-A1# 

EMT5 8-15 54-7* 

EMT50 8-120 54-42* 

EMT51 8-123 54-43* 

EMT52 8-126 54-44* 

EMT53 8-130 54-4 S* 

EMT54 8-133 54-46* 

EMT55 8-136 54-47* 

EMT56 8-139 54-48* 

EMT57 8-142 54-49* 

EMT6 8-18 54-8* 

EMT60 8-146 54-50* 

EMT61 8-150 54-51* 

EMT62 8-154 54-52* 

EMT63 54-53* 

EMT64 8-160 54-54* 

EMT65 8-163 54-55* 

EMT66 8-166 54-56* 

EMT67 8-169 54-57* 

EMT7 8-21 54-9* 

EMT70 8-172 54-58* 

EMT71 , 8-175 54-59* 

EMT 72 / 8-178 54-60* 

EMT73 8-182 54-61* 

EMT74 8-185 54-62* 

EMT75 8-188 54-63* 

EMT76 8-191 54-64* 

EMT77 8-194 54-65* 

EMTVEC 4-484* 10-23* 10-23* 

ENRGDT 53-144* 

EQUALS 50-4* 

ERR 4-553* 25-84 25-86 25-102 25-136 

ERRM*B 44-48* 44-49* 44-52 44-57 44-64 44-160* 

ERROR 4-484* 

FRRVEC ^4-484* 10-23* 10-23* 10-23* 10-25* 10-26* 13-5 13-5 13-6* 13-7* 13-20* 13-20* 13-24* 13-24 

20-35 20-35 20-39* 20-40* 20-70* 20-70* 21-29 21-29 21-33* 21-34* 21-59* 21-59* 22-4 22-5 

22-6* 22-7* 22-13* 22-20* 22-21* 23-9 23-9 23-10* 23-11* 23-35* 23-'v* 28-20 28-20 28-21 

28-22* 28-51* 28-51* 30-12 30-12 30-13* 30-14* 30-25* 30-25* 42-1 42-' 42-1* 42-1* 42-1* 

42-1* 42-1* 43-1 43-1* 4.3-1* 

ERTYOO 44-21 44-165* * 

ERTYOl 44-46 44-166* 

ERTYO? 44-51 44-167* 

ERTY03 44-53 44-168* 

ER1V04 44-152 44-169* 

ERTV05 44-39 44-170* 

ESRC 4-625* 



CZRMOeO RM05/5/2 FCTNL TST 3 MACRO VO^.OO 
CROSS REFERENCE TABLE (CREF VOI-05 ) 



N 9 

4-APR-81 01:15:59 PAGE S-20 



SEO 05?S 



FO 

F1 

F2 

F5 

FA 

FER 

FIND 



A-495# 
A-494# 
A-A93# 
A-A92# 
A-49U 
A-577# 
35-368 
13-41 
13-76# 
13-115# 
13-139# 
13-167# 
13-199# 
13-227# 
1 3-269 
13-30U 
13-317 
13-361 
13-401 
^3-414# 
13-452# 
13-516# 
13-546# 
1 3-589 
13-622* 
13-638 
1 3-682* 
13-725 
1 3-739# 
1 3-774* 
1 3-798* 
1 3-835* 
1 3-877 
1 3-900* 
1 3-931 
13-: 06* 
13-: 55 
13-: 69* 
13-; 04* 
13-; 28* 
13-; 66* 
13-; 96 
13-<28 
1 3-<50* 
1 3-<82 
1 3-<95 
13-=48 
13-=83 
13->10* 
1 3->23* 
13->52 
1 3->79* 
13-?25 
13-?58* 
13-785* 
13-320* 
13-a35* 



25-29 
25-29 
25-29 
25-29 
25-29 
4-583 
35-391 
13-41* 
13-76* 
13-118 
13-139* 
13-169 
13-199* 
13-240 
13-269* 
13-304 
13-317* 
13-361* 
13-401* 
13-414* 
13-456 
13-516* 
13-560 
1 3-589* 
13-625 
13-638* 
13-685 
13-725* 
13-739* 
13-777 
13-798* 
13-839 
13-877* 
13-915 
13-931* 
13-: 09 
13-: 55* 
13-: 69* 
13-; 07 
13-; 28* 
13-; 70 
13-; 96* 
13-<28* 
13-<53 
13-<82* 
13-<95* 
13-=48* 
13-=83* 
13->12 
13->36 
13->52* 
13->79* 
13-725* 
13-758* 
13-787 
13-322 
13-a48 



26-113 



1 3-A67 

35-394 

13-41* 

13-80 

13-118* 

13-155 

13-169* 

13-215 

13-240* 

13-269* 

13-304* 

1 3-31 7* 

13-364 

13-403 

13-429 

13-456* 

13-534 

13-560* 

13-589* 

13-625* 

13-638* 

13-685* 

13-725* 

13-741 

13-777* 

13-809 

13-839* 

13-877* 

13-915* 

13-931* 

13-: 09* 

13-: 55* 

13-: 71 

13-; 07* 

13-; 40 

13-; 70* 

13-; 96* 

13-<28* 

l3-<53* 

13-<85 

13-<95* 

13—51 

13-=85 

13->12* 

13->36* 

13->52* 

13->81 

13-725* 

13-773 

13-787* 

13-322* 

13-348* 



13-A72 13-860 13-965 13-D28 13-D31 13-D90 13-D93 16-222 25-416 35-348 35-565 



13-52 

13-80* 

13-118* 

13-155* 

13-169* 

13-215* 

13-240* 

13-271 

13-306 

13-330 

13-364* 

13-403* 

13-429* 

13-456* 

13-534* 

13-560* 

13-591 

13-627 

13-640 

13-687 

13-728 

13-741* 

■\5-777» 

13-809* 

13-839* 

13-881 

13-915* 

13-961 

13-: 11 

13-: 58 

13-: 71* 

13-; 07* 

13-; 40* 

13-; 70* 

13-<00 

13-<30 

13-<55 

13-<85* 

13-=20 

13--51* 

13-=85* 

13->15 

1 3->36* 

13->67 

13->81* 

13-728 

13-773* 

13-787* 

13-325 

13-348* 



13-52* 
13-80* 

13-122 

13-155* 

13-171 

13-215* 

13-257 

13-271* 

13-306* 

1 3-330* 

13-364* 

13-406 

13-429* 

13-461 

13-534* 

13-577 

13-591* 

13-627* 

13-640* 

13-687* 

13-728* 

13-741* 

13-781 

13-809* 

13-8'52 

13-881* 

13-918 

13-961* 

13-:11* 

13-: 58* 

13-: 71* 

13-; 11 

13-; 40* 

13-; 83 

13-<00* 

13-<30* 

13-<55* 

13-<85* 

13-=20* 

13—51* 

13-=88 

13->15* 

13->40 

13->67* 

13->81* 

13-728* 

13-773* 

13-789 

13-325* 

13-359 



13-52* 

13-93 

13-122* 

13-158 

13-171* 

13-218 

13-257* 

13-271* 

13-309 

13-330* 

13-368 

13-406* 

13-444 

13-461* 

13-537 

13-577* 

13-591* 

13-650 

13-640* 

13-690 

13-730 

13-754 

13-781* 

13-827 

13-852* 

13-881* 

13-918* 

13-961* 

13-:14 

13-: 60 

13-:84 

13-; 11* 

13-; 58 

13-; 83* 

13-<00* 

13-<30* 

13-<58 

13-<89 

13-=20* 

13-=55 

13—88* 

13->15* 

13->40* 

13->67* 

13->83 

13-730 

13-776 

13-789* 

13-325* 

13-359* 



13-68 

1 3-93* 

13-122* 

13-158* 

13-171* 

13-218* 

13-257* 

13-273 

1 3-309* 

13-341 

1 3-368* 

1 3-406* 

1 3-444* 

13-461* 

13-537* 

13-577* 

13-593 

13-630* 

13-653 

1 3-690* 

13-730* 

13-754* 

13-781* 

13-827* 

1 3-852* 

13-883 

13-920 

13-977 

13-:14* 

13-: 60* 

13-: 84* 

13-;11* 

13-; 58* 

13-; 83* 

13-<18 

13-<32 

1 3-<58* 

13-<89* 

13—29 

13-=55* 

13--88* 

13->19 

1 3->40* 

1 3->70 

13->83* 

1 3-730* 

13-776* 

13-789* 

1 3-329 

1 3-359* 



13-68* 

13-93* 

13-124 

13-160 

13-175 

13-220 

13-260 

13-273* 

13-309* 

13-341* 

13-368* 

13-410 

13-444* 

13-489 

13-539 

13-580 

13-593* 

13-630* 

13-653* 

13-690* 

13-733 

13-754* 

13-783 

13-827* 

13-869 

13-883* 

13-920* 

13-977* 

13-: 14* 

13-:63 

13-: 84* 

13-; 13 

13-; 58* 

13-; 88 

13-<18* 

13-<32* 

13-<58* 

13-<89* 

13-=29* 

13-=55* 

13--92 

13->19* 

13->43 

13->70* 

13->83* 

13-733 

13-778 

13-302 

13-329* 

13-383 



1 3-68* 

13-110 

13-124* 

13-160* 

13-175* 

13-220* 

13-260* 

13-273* 

13-313 

13-341* 

13-381 

13-410* 

13-447 

13-489* 

13-539* 

13-580* 

13-593* 

13-634 

13-653* 

13-694 

13-733* 

13-769 

13-783* 

13-830 

13-869* 

13-883* 

13-923 

13-977* 

13-:18 

13-: 63* 

13-: 99 

13-; 13* 

13-; 61 

13-; 88* 

13-<18* 

13-<32* 

13-<62 

13-<91 

13-=29* 

13-=76 

13-=92* 

13->19* 

13->43* 

13->72 

13-703 

13-733* 

13-778* 

1 3-302* 

13-329* 

13-383* 



13-71 

13-110* 

13-124* 

13-163 

13-175* 

13-223 

13-262 

13-286 

13-313* 

13-356 

13-381* 

13-410* 

13-447* 

13-489* 

13-542 

13-582 

13-606 

13-634* 

13-664 

13-694* 

13-733* 

13-769* 

13-783* 

13-830* 

13-869* 

13-885 

13-923* 

13-988 

13-:18* 

13-: 63* 

13-: 99* 

13-; 13* 

13-; 61* 

13-; 88* 

13-<21 

13-<45 

13-<62* 

13-<91* 

13-=43 

13-=76* 

13-=92* 

13->21 

13->45 

13->72* 

13-703* 

13-733* 

13-781 

13-302* 

13-331 

1 3-393* 



13-71* 

13-110* 

13-126 

13-163* 

13-188 

13-223* 

13-262* 

13-286* 

13-313* 

13-356* 

13-381* 

13-412 

13-449 

13-505 

13-542* 

13-582* 

13-606* 

13-634* 

13-664* 

13-694* 

13-737 

13-769* 

13-785 

13-832 

13-872 

13-885* 

13-923* 

13-988* 

13-:18* 

13-:67 

13-: 99* 

13-; 15 

13-; 63 

13-; 91 

13-<21* 

13-<45* 

13-<62* 

13-<91* 

13-=43* 

13-=76* 

13->07 

13->21* 

13->45* 

13->75 

13-703* 

13-737 

13-781* 

13-317 

13-331* 

13-386 



13-73 

13-113 

13-126* 

13-163* 

13-188* 

13-223* 

13-265 

13-286* 

13-315 

13-356* 

13-398 

13-412* 

13-449* 

13-505* 

13-542* 

13-585 

13-606* 

13-636 

13-664* 

13-708 

13-737* 

13-772 

13-785* 

13-832* 

13-872* 

13-885* 

13-927 

13-988* 

13-:40 

13-: 67* 

13-; 02 

13-; 15* 

13-; 63* 

13-; 91* 

13-<24 

13-<45* 

13-<79 

13-<93 

13-=43* 

13-=80 

13->07* 

13->21* 

13->48 

1 3->75* 

13-712 

13-737* 

13-781* 

1 3-31 7* 

13-331* 

1 3-386* 



13-73* 

13-113* 

13-126* 

13-167 

13-188* 

13-227 

13-265* 

13-301 

13-315* 

13-359 

13-398* 

13-412* 

13-452 

13-505* 

13-546 

13-585* 

13-622 

13-636* 

13-682 

13-708* 

13-737* 

13-772* 

13-785* 

13-835 

13-874 

13-900 

13-927* 

13-:06 

13-:40* 

13-: 67* 

13-; 02* 

13-; 15* 

13-; 66 

13-; 93 

13-<24* 

l3-<50 

13-<79* 

13-<93* 

13-=46 

13-=80* 

13->07* 

13->23 

13->48* 

13->75* 

13-712* 

13-737* 

13-785 

1 3-31 7* 

1 3-333 

15-388 



3-76 

3-115 

3-139 

3-167* 

3-199 

3-227* 

3-265* 

3-301* 

3-315* 

3-359*^ 

3-398*- 

3-414 

3-452* 

3-516 

3-546*5 

3-585* 

3-622*' 

3-636* 

3-682# 

3-708* 

3-739 

3-774 

3-798 , 

3-8744< 

3-900* 

3-927* 

3-: 06* 

3-: 40* 

3-: 69 

3-; 04 

3-; 28 

3-; 66* 

3-; 95* 

3-<24* 

3-<50S 

3-<79* 

3-<934 

3-=46* 

3-=8W* 

3->10 

3->23* 

3->483 

3->79 

3-?124» 

3-758 

3-785* 

3-320 

3-3334 

3-3884 
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13-a91 
13-A30 
13-A82 
13-B25 
15-675 
13-C54ir 
13-C83 
13-D21* 
1 3-D75 
13-E06# 
13-E63 
13-E99# 
13-F51 
13-F68# 
13-G21* 
13-G51# 
13-G90# 
13-H33# 
13-H59# 
' 3-H91 
13-131 
13-146 
13-193 
13- J 38 
13-J53# 
13-J90# 
13-»c2A# 
13-K524' 
13-K94 
13-L27* 
13-L43 
1 5-l85# 
13-M27 
13-mi# 
1 3-«77# 
'3-M90# 
13-N384r 
1 3-N78# 
13-N9U 
13-032 
1 3-053# 
13-092 
1 3-P33 
13-P47* 
13-P86 
13-006# 
4-650# 
13-C02 
17-34 
-130 
4-497# 
13-56 
1 3-C05 
13-76 
1 3-733 
13-=51 
15-E99 



25 



13-991* 

13-A30# 

13-A82# 

13-625* 

13-B75* 

13-C45 

13-C83# 

13-021* 

13-D75* 

13-E06* 

13-E63# 

13-E99* 

13-F51* 

13-F68* 

13-G21* 

13-G51* 

13-G92 

13-H33* 

1 3-H77 

13-H91* 

13-131* 

13-146* 

13-193* 

13- J 38* 

13-J53* 

1 3-J94 

1 3-K24* 

13-K65 

1 3-K94* 

13-L30 

13-L43* 

13-L88 

13-M27* 

13-M41* 

13-WO 

13-W90* 

13-N41 

13-N80 

13-004 

13-032* 

13-064 

13-092* 

13-P33* 

13-P47* 

13-P86* 

13-008 

13-49 

13-C42 

18-27 

51-55* 

34-17 

13-203 

13-C49 

13-118 

13-777 

1 3-=88 

13-F59 



13-391* 

13-A33 

1 3-A82* 

13-628 

1 3-675* 

13-C45* 

13-C83* 

13-D25 

13-D75* 

13-t08 

13-E63* 

13-F03 

13-F51* 

13-F76 

13-G31 

13-G70 

13-G92* 

13-H36 

1 3-H77* 

13-H91* 

13-134 

13-146* 

13-196 

13-J40 

13-J66 

13-J94* 

13-K40 

13-K65* 

13-K94* 

13-L30* 

13-L43* 

13-L88* 

13-fl27* 

13-m43 

13H180* 

13-N03 

13-N41* 

13-N80* 

13-004* 

13-032* 

13-064* 

13-092* 

13-P33* 

13-P49 

13-P94 

13-008* 

13-196 

13-D01 

29-58 

35-341 
13-345 
13-E30 
13-163 
13-835 
13->15 
13-G21 



13-a95 

1 3-A33* 

13-A91 

13-628* 

13-684 

13-C45* 

13-C96 

13-D25* 

1 3-D 78 

13-E08* 

13-E70 

13-F03* 

13-F54 

13-F 76* 

13-G31* 

13-G70* 

13-G92* 

13-H36* 

13-H77* 

13-H95 

13-134* 

13-160 

13-196* 

13-J'*0* 

13-J66* 

13- J 94* 

13-K40* 

1 3-K65* 

13-K96 

13-L32 

13-L45 

13-L90 

13-«30 

13-m3* 

13-«80* 

13-N03* 

13-N41* 

13-N83 

13-004* 

13-034 

13-064* 

13-P05 

13-P36 

13-P49* 

13-P94* 

13-008* 

13-338 

13-E27 

35-183 



13-520 
13-E67 
13-223 
13-877 
13->48 
13-G34 



13-a95* 

13-A33* 

13-A91* 

13-628* 

13-684* 

13-C71 

13-C96* 

13-D25* 

1 3-D 78* 

13-E08* 

13-E70* 

13-F 03* 

13-F 54* 

13-F 76* 

13-G34 

13-G70* 

13-G94 

13-H38 

13-H80 

13-H95* 

13-134* 

13-160* 

13-196* 

13-J43 

13-J66* 

13-J96 

13-K40* 

13-K82 

13-K96* 

13-L32* 

13-L45# 

13-L90* 

13-«0* 

13-m3* 

l3-«84 

13-N03* 

13-N45 

13-N83* 

13-020 

13-034* 

13-080 

13-P05* 

13-P36* 

1 3-P49* 

1 3-P94* 

13-010 

13-513 

13-E60 



13-668 
1 3-H21 
13-265 
13-923 
13->75 
13-676 



1 3-995* 

13-A37 

13-A91* 

13-632 

13-684* 

13-C71* 

13-C96* 

13-D44 

1 3-1/80 

13-E10 

13-E70* 

13-F 08 

13-F 56 

13-F 96 

13-G34* 

13-G73 

13-G94* 

13-H38* 
13-H80* 

13-H95* 

13-138 

13-160* 

13- J 00 

13-J43* 

13- J 82 

:3-J96* 

13-K43 

13-IC82* 

li-K96* 

13-L35 

13-L45* 

13-L93 

13-fl32 

13-fl56 

l3-«84* 

13-N15 

13-N45* 

13-N83* 

13-oao* 

13-054* 

13-080* 

13-P05* 

13-P38 

13-P61 

13-P97 

13-010* 

13-661 

13-F 91 



13-813 
13-176 
13-3C9 
13-942 
13-733 
1 5-690 



13-A08 

15-A57* 

15-605 

15-652* 

15-C07 

15-C71* 

15-D15 

1 5-D44* 

15-D80* 

13-E10* 

15-E91 

15-F08* 

15-F56* 

15-F96* 

1 5-G54* 

15-G73* 

13-G94* 

15-H41 

15-H82 

15-108 

15-158* 

15-172 

15-JOO* 

15- J/. 3* 

15-J82* 

15-J96* 

15-K43* 

13-K82* 

13-K98 

15-L55* 

13-L58 

13-L93# 

13-M52* 

15-H56* 

15-M84* 

15-N15* 

15-N45* 

15-N87 

1 5-020* 

15-056 

1 5-080* 

15-P17 

15-P58* 

15-P61* 

15-P97* 

13-010* 

13-806 

13-H14 



13-992 
15-J25 
15-564 
1?-:14 
13-781 
15-H41 



13-A08* 

15-A57* 

15-605* 

15-652* 

15-C07* 

13-C74 

•5-D15* 

13-D44* 

15-D85 

15-E10* 

15-E91* 

15-F08* 

15-F59 

15-F96* 

15-636 

13-G76 

13-H06 

13-H41* 

13-H82* 

13-108* 

15-158* 

15-172* 

15- J 00* 

15-J47 

15- J 82* 

15-KOO 

15-K45 

15-K85 

15-K98* 

15-L55* 

13-L58* 

13-L93* 

13-«5 

13-rt56* 

15-«86 

15-N15* 

15-N58 

15-N87* 

15-025 

15-056* 

15-085 

13-P17* 

15-P41 

13-P61* 

13-P99 

13-985 
13-169 



13-: 30 
13-K28 
13-406 
15-: 65 
15-325 
15-H85 



1 5-A08* 

15-A54 

15-603* 

15-647 

15-C07* 

15-C74* 

15-D15* 

1 5-D46 

15-D85* 

15-E52 

15-E91* 

15-F16 

13-F 59* 

13-615 

15-656* 

13-676* 

13-H06* 

13-H41* 

13-H85 

15-108* 

15-140 

15-172* 

15-J14 

15- J 4 7* 

15-J85 

15-KOO* 

15-K45* 

15-K85* 

15-K98* 

15-L39 

13-L58* 

13-L97 

13-«5* 

13-«72 

15-M86* 

15-N55 

15-N58* 

15-N87* 

15-025* 

15-056* 

15-085* 

15-P17* 

15-P41* 

13-P74 

13-P99* 

13-; 37 
13-K21 



13-; 44 
15-L75 
13-452 
15-; 07 
13-S91 
13-134 



1 5-A25 

1 3-A54* 

13-620 

13-647* 

15-C18 

15-C76 

15-D16 

1 5-D46* 

1 3-D83* 

13-E52* 

15-E94 

15-F16* 

15-F59* 

13-G15* 

13-G56* 

15-G76* 

15-H06* 

13-H45 

13-M85* 

13-126 

13-140* 

13-188 

13-J14* 

15-J47* 

13-J85* 

15HC00* 

15-K48 

15-K87 

15-Lll 

13-L39* 

13-L69 

13-L97* 

13-H35* 

13-W72* 

13-«86* 

15-N55* 

15-N58* 

15-N89 

15-025 

15-058 

15-085 

15-P25 

15-P41* 

13-P74* 

13-002 

13—15 
15-L66 



15-=26 
13-N19 
15-471 
15-; 66 
1 5-A33 
n-I96 



1 3-A25* 

13-A54* 

1 3-620* 

15-647* 

15-C18* 

15-C76* 

15-D16* 

1 5-D'-6* 

15-D87 

15-E52* 

15-E94* 

15-F16* 

15-^65 

15-G15* 

15-G58 

15-087 

15-H17 

15-H45* 

15-H85* 

15-126* 

15-140* 

15-188* 

15-J14* 

15-J49 

15-J87 

15HC15 

15-K48* 

13HC87* 

13-L11* 

13-L39* 

13-L69* 

13-L97* 

13-«9 

13-W72* 

13-«88 

15-N55* 

15-N75 

15-N89* 

15-025* 

15-038* 

13-085* 

13-P25* 

15-P45 

13-P74* 

13-002* 

13->98 
13-N12 



15—67 
1 5-068 
13-542 
13-; 96 
13-628 
13-J45 



1 3-A25* 

1 5-A70 

1 5-620* 

13-965 

13-C18* 

13-C79 

13-D18 

15-D59 

1 3-D87* 

13-E45 

15-E96 

15-F29 

15-F65* 

15-618 

15-G38* 

13-G87* 

13-M17* 

13-H45* 

13-H89 

13-126* 

13-144 

13-188* 

15- J 55 

15- J 49* 

15-J87* 

15HC13* 

13HC48* 

13HC90 

13-Lll* 

13-L41 

13-L69* 

15-WlO 

15-fl39* 

13-fl75 

13-W8* 

13-N36 

15-N75* 

15-N89* 

15-028 

15-038* 

13-088 

15-P?5* 

15-P45* 

13-P53 

13-002* 

13-856 
13-061 



13-709 
17-20* 
13-585 
13-<24 
13-C79 
13-J90 



1 5-A28 

15-A70* 

13-623 

13-663* 

13-C34 

13-C79* 

15-D18* 

1 5-D59* 

15-D87* 

15-E43* 

13-E96* 

15-F29* 

15-F65* 

15-G18* 

15-G58* 

15-G90 

15-M17* 

15-M59 

15-H89* 

13-129 

13-144* 

13-191 

15-J35* 

1 3-J49* 

15-J90 

15H(13* 

13HC52 

15-«90* 

15-L27 

13-L41* 

13-L85 

13-fl10* 

13-H39* 

13-fl75* 

l3-#«8* 

15-N36* 

13-N75* 

13-W91 

15-028* 

15-055 

15- 088* 
13-P26 
13-P45* 
13-P83* 
13-006 

13-A44 

16- 60 



1 5-A28* 

1 3- A 70* 

15-625* 

15-665* 

13-C54* 

13-C79* 

15-021 

1 5-D59* 

15-E06 

13-E45* 

15-E99 

13-F 29* 

13-F 68 

15-G21 

15-651 

13-690* 

13-H33 

15-H59* 

15-H89* 

13-129* 

15-144* 

13-191* 

13-J55* 

15-J55 

15-J90* 

13-K24 

1 5-K52* 

15-K90* 

13-L27* 

13H.41* 

13-L85# 

13-«10# 

15-«41 

15-W77 

15-WO 

13-fl58 

15-N78 

15-fJ91* 

15-028* 

15-055* 

13-088* 

13-P26* 

15-P47 

15-P83* 

15-006* 

13-637 
17-32 



13-749 13-363 



13-630 
15-<58 
15-D21 
1 3-tc48 



15-690 
15-<85 
15-D83 
13-tc90 
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GETauF 
GETINX 
GETSTS 



GNS 

GO 



G'SWft 

HCE 



HOP 

MCRC 
HELP 
HT 

lAE 

IBSAVE 
IDXWSK 
IE 
ILF 

ILF02 
1LF2A 
ILF26 
1LF30 
lLf32 
ILF34 
ILF36 
ILFAO 
ILFA2 
ILF44 
ILF46 
ILF5A 
ILF56 
lLf(A 
ILF66 
ILF7A 
ILF 76 
ILR 

ILRG50 
ILRGS? 
IIRG54 
ILRG56 
ILRG60 
ILRG6? 
ILRG6A 



13-L35 
15-168 

7-0# 

7-0* 

13-71 
13-77? 
13->;0 
13-H5b 
13-023 
5-1 
A7-1 

15- 715 
13-= 78 
13-E3A 
13-L16 

16- 8' 

10- ?8 
A-574# 

25-401 
4-652# 
4-573# 

11- 17 
A-48A# 
4-57U 

51-77 

A3-1 
4-710# 
4-723# 
4-58U 

51-68 
4-501* 
4-511* 
4-512* 
4-516* 
4-516* 
4-516* 
4-516* 
4-516* 
4-516* 
4-516* 
4-516* 
4-519* 
4-520* 
4-523* 
4-524* 
4-527* 
4-528* 
4-580* 
4-708* 
4-708* 
4-708* 
4-708* 
4-708* 
4-708* 
4-708* 



13-L93 

15- 199 
20-37 
13-471* 
13-113 
13-830 
13-728 

1 3-H80 
1 3-083 
5-1 
47-1 
47-1 
13-50 
13-759 
1 3-=97 
13-E79 
1 3-L67 

16- 119 
47-1* 

4-583 
25-414 
13-D01 

4-583 
62-18* 
41-1 
25-283 
51-78 
43-1 
20-51 

4-756* 
25-155 
51-70 



32-51 



13-fl35 
16-76 

13-471* 

13-158 

1 3-872 

13-776 

13-129 

13-P36 

10-6 

47-1 

47-1 

13-100 

13-807 

13->38 

13-F38 

13-Mir 

16-153 

13-A51 
25-429 

25- 377 
16-222 

41-1 

26- 89 
51-81 
43-1 
20-54 

25-157 
51-71 



13-M80 
16-97 

13-942* 

13-218 

13-918 

1 3-820 

13-191 

1 3-P97 

10-28 

47-1 

47-1 

13-145 

13-859 

13->57 

13-F92 

13-W62 

16-182 

13-A57 
35-348 
35-344 

25- 386 

44-90 

26- 105 
51-82 
43-1 
21-45 

32-51 
51-72 



13-N41 
16-129 

13-942* 

13-260 

13-: 09 

1 3-386 

13-J3S 

15-46 

10-42 

47-1 

47-1 

13-197 

13-905 

13-701 

13-G05 

13-N13 

23-21 

13-644 
35-378 



26-132 
51-85 
^3-1 
21-48 

32-111 
51-73 



13-N83 
16-163 

19-13 

13-304 

13-: 58 

13-A28 

13-J85 

16-75 

10-53 

47-1 

47-1 

13-247 

13-986 

13-763 

1 3-G60 

13-N65 

24-90 

13-650 
35-381 



1 3-028 
16-192 

20-38 

13-359 

13-; 02 

13-823 

13-K43 

19-10* 

10-59 

47-1 

47-1 

13-291 

^3-:45 

13-307 

13-H15 

13-010 

2'.-102 

13-D28 
35-391 



13-088 
20-31* 



13-401 
13-; 61 
13-C74 
13-K85 

10-60 

47-1 

47-1 

13-339 

13-: 89 

13-357 

13-H67 

13-062 

24-107 

13-D31 
35-394 



29-47 
51-86 
43-1* 



32-115 
51-74 



29-67 
43-1* 



33-24 
51-75 



33-24 
43-1* 



33-45 
51-76 



13-P'.1 13-002 15-47 



13-447 
13-; 91 
13-D16 
13-L30 

12- 30 
47-1 
47-1 

13- 388 
13-; 38 
13-A15 
13-116 
13-P18 
24-123 

1 3-D90 
51-77 



35-348 35-352 35-355 35-391 35-394 



33-78 
43-1* 



33-48 
51-79 



13-537 
13-<53 

13- D78 
3-L88 

14- 20 
47-1 

13-434 
13-; 86 
13-610 
13-170 
13-P28 
25-51 

13-D93 
51-78 



33-81 



35-128 
51-80 



32-97 32-101 33-232 33-236 33-239 35-128 35-131 35-134 



13-580 
13-=46 
1 3-E94 

13- M30 

14- 20 
47-1 

13-514 
13-<08 
13-C09 
13-J22 
13-P78 
25-54 

16-222 
51-81 



35-145 
51-83 



15-90 



13-625 
13-=83 
13-F54 
13-W75 

47-1 
47-1 

13-567 
1 3-<48 
13-C43 
13- J 72 
13-P89 
35-542 

25-379 
51-85 



SEQ 0^2/ 
15-114 15-144 



13-685 
i3->10 
13-G18 
13-N36 

47-1 
47-1 

13-612 
15-^68 
13-D02 
15-H22 
15-126 



25-384 
51-86 



35-148 
51-84 



51-58 
51-87 



1 3-728 
13->4^ 
13-G73 
13-W78 

47-1 
47-1 

15-662 
15-=18 
15-D64 
13-IC 72 
15-181 



25-399 



35-172 35-190 51-59 51-69 



51-67 
51-88 
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SEO 03?8 



ILRG66 

ILRG70 

ILRG72 

ILRG7A 

1LRG76 

lOTVEC 

IPCHO 

IPCKI 

1PCK2 

IPCH3 

IR 

I.'C 



LBC 
LBT 
LF 

LC»EV 
LS 

L5C , 

lst 

LSTRK 

WCLK 

MCPE 

»1>F 

MDPE 

MEDE^e 

MFGFIL 

MI 

MIXED 
MOC 
MOH 
MOL 

MRD 

MS 
MSG 

MSDRVS 

MSE 

MSER . 

MSGDRV 

MSHELP 

MUR 

MUD 

MUP 

MXF 

N 

NOTMSK 

NED 

NEM 

NONE 

NOP 

NOTAVL 

NOTPfiS 

NOTRM 

NSA 



4-708* 
A-708jr 
4-708* 
4-708* 
4-484* 
4-760* 
4-759* 
4-758* 
4-757* 
4-736* 
4-677* 

35-115 

51-72 

51-86 
4-679* 
4-557* 
4-484* 

10- 128 
4-634* 
4-678* 
4-635* 
7-0* 
4-608* 
4-718* 
4-613* 
4-734* 
7-0* 

16-61 
4-616* 

1 3-L71 
4-611* 
4-642* 
4-555* 

33-158 
4-609* 
4-614* 
4-61 7* 

11- 64 
4-685* 
4-612* 

12- 69 
11-11 

4-610* 
4-633* 
4-615* 
4-733* 

11- 19 
4-583* 
4-730* 
4-731* 

12- 7 
4-500* 

10-116 
10-113 
10-107 
4-640* 



10-23* 10-23* 



31-56 

13-F05 

35-546 

51-73 

51-87 

35-232 

25-358 

41-1 

50-28* 

31-80 

35-232 

31-80 

12-56* 



25-454 
12-51* 
16-265* 



10-109 
34-30 



50-21* 
1 3-A46 

50-22* 
50-8* 

31-81 

25-343 
50-35* 

10-87 

25-328 

50-34* 

50-30* 
50-29* 
50-27* 



1 3-F 1 2 

36-58 

51-74 

51-88 

35-250 

26-91 

41-1 

34- 70 

35- 266 
34-70 
12-64* 



24-90 24-107 



35-438 

15- 125* 

16- 273* 



13-N17 53-4* 



29-146 
35-88 



1 3-F 65 

51-58 

51-75 

35-255 

26-93 

44-88 



35-269 

1 3->96 

24-120 

35-441 

16-40 

16-322 



29-156 
35-252 



1 3-F 71 

51-59 

51-76 



25-198 

51-60 

51-77 



25-199 29-85 
51-62 51-63 
51-78 51-79 



29-208 33-92 33-99 
51-64 51-07 51-68 
51-80 51-81 51-82 



33-102 33-171 35-111 
51-69 51-70 51-71 
51-83 51-84 51-85 



50-16 58-79 

13-705 13-165 
24-123 35-27 



16-283* 
62-7* 



13-041 
35-30 



16-58 



16-363 16-384 17-50 26-62 29-53 35-178 



29-157 
35-505 



29-162 
35-506 



29-167 
35-528 



29-195 
35-533 



32-37 
36-35 



32-40 
36-36 



33-68 
36-40 



33-145 
36-45 



33-146 33-153 



13-839 17-29 

34- 71 

35- 50 35-63 35-66 
24-72 24-76 28-31 



(■ZRHOeO RI»'05/3/i' FCTNL TST 3 MACRO V04.00 
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SEO 0?2<^ 



occ 

OFD 

OFFSET 

ONES 

OPE 

OPI 



OR 

PACACK 
PAKACK 
PAR 

PAT 

PDA 

PFf CH 

PFECHi 

PFECH2 

PfECH3 

PFECH4 

PGE 

PGH 

PHA 

PIP 

PIRO 
PIROVE 

PLFS 

PRO 

PR1 

PR2 

PR3 

PR4 

PR5 

PR6 

PR 7 

PRIERR 



PS 
PSEL 
PSW 
PUT 



putblf 

PUTINX 



PWRVEC 



4-62' # 
4-653# 
4-506* 
4-562* 
13-518 
4-676* 
4-568* 
36-42 
51-70 
51-84 
4-735* 
4-510* 
4-509* 
4-578* 
4-738* 
4-628* 
44-67 
44-1 72 
44-1 72 
44-1 72 

4-558* 
4-629* 
4-554* 
35-505 
4-484* 
4-484* 

4-484* 
4-484* 
4-484* 
4-484* 
4-484* 
4-484* 
4-484* 
4-484* 
13-122 
1 3-<28 
13-H89 
4-484 
4-719* 
4-484* 
13-68 
15-769 
13->07 
13-E74 
13-K40 
13-P83 
7-0* 
7-0* 
13-716 
13-716 
13-F33* 
13-J73 . 
13-P66 
4-484* 



13-Q12 
13-P18 
33-145 
13-666 


13-014 
13-P78 
33-201 
13-811 


33-204 
13-:28 


34-29 
13-; 42 


35-453 
13-=24 


35-456 
13-747 


13-C47 


13-174 


13-J23 


53-21* 








25-182 
51-57 
51-71 
51-85 


29-140 
51-58 
51-72 
51-86 


29-164 
51-59 
51-73 
51-87 


32-51 
51-60 
51-74 
51-88 


32-69 
5^-61 


32-73 
51-62 


33-24 
51-63 

CI -77 

51 f 


33-61 
51-64 

3 1 "f O 


33-64 
51-65 

C1.7Q 
5 1 — r 7 


33-155 
51-66 

3 1— OU 


35-83 
51-67 

J 1 O 1 


35-86 
51-68 

J 1 OC 


35-550 
51-69 


16-119 
4-510 
24-135 


15-126 
24-139 


24-151 


29-30 


33-24 


33-29 


33-34 


35-41 


35-46 










44-172* 
44-173* 
44-176* 
44-179* 
44-181* 


< 
























34-29 


























13-G23 
35-511 


1 3-G26 
35-516 


1 3-G78 
36-35 


i3-G81 
36-72 


15-178 
36-77 


16-150 


29-156 


29-177 


29-182 


33-145 


33-216 


33-221 


34-29 


42-5 


























12-49 
10-26 


42-9 
13-7 


20-40 


21-34 


22-7 


23-11 


28-22 


30-14 












13-167 
13-<89 
13-138 


1 3-269 
13->19 
13-J47 


13-313 
13->79 
13-J94 


13-410 
13-785 
13-K94 


13-456 
13-329 
13-L39 


1 3-589 
13-A37 
1 3-M39 


1 3-634 
13-632 
13-M84 


13-737 
13-D25 
13-N87 


13-781 
13-D87 
13-032 


1 3-881 
13-F03 
13-P45 


13-927 
13-F63 
13-006 


13-:67 
13-G36 
24-39* 


13-;11 
13-G92 



4-484* 



13-110 

13-827 

13->40 

13-691 

13-K82 

13-P94 

16-49 

13-59 

13-760 

1 3-764 

13-F33* 

13-K31 

13-P79 

10-23* 



13-155 
1 3-869 
13->67 
13-F33 
13-L27 

15- 129 

1 6- 284 • 
13-101 
13-816 
13-a08 
13-F41 
13-K73 
13-P90 
10-23» 



13-215 

13-915 

13-725 

13-F51 

13-L85 

15-184 

21-31 

13-146 

1 3-860 

1 3-374 

13-GOO* 

13-L18 

15-127* 

48-1* 



13-257 
13-: 06 
13-773 
13-GOO 
13-M27 
16-88 

13-206 

1 3-906 

13-A16 

13-GOO* 

13-L76 

15-128* 

48-1* 



13-301 
13-:55 

i3-ai7 

13-G15 
13-fl72 
16-120 

13-248 

13-995 

13-811 

13-G06 

13-M18 

15-182* 

48-1* 



13-356 
13-:99 
13-383 
13-G55 
13-N33 
16-154 

13-292 

13-:46 

13-C10 

13-G55* 

1 ^-M63 

15-183* 

48-1* 



13-398 
13-; 58 
13-A25 
13-G70 
13-N75 
16-183 

13-347 

13-: 90 

13-C60 

13-G55* 

1 3-N22 

16-63 

48-1* 



1 3-444 
13-; 88 
13-820 
13-H33 
13-020 
21-28* 

13-389 

13-;47 

1 3-D04 

13-G61 

1 3-N66 

21-32 

48-1* 



13-534 
13-<18 
13-C18 
13-H77 
13-080 



13-435 
13-<09 
13-D66 
13-H24 
1 3-01 1 
24-142 



1 3-577 
13-<50 
13-C71 
13-126 
1 3-P1 7 



13-523 
13-<70 
13-E35 
13-H68 
1 3-071 



13-622 
13-<79 
15-D15 
13-188 
13-P23 



1 3-568 
13- 33 
13-E74* 
13-IU 
1 3-P09 



13-682 
1 3—43 
13-D75 
13- J 35 
13-P53 



13-613 

1 3-=96 
13-E74* 
13-179 
13-P19 



1 3-725 
13—80 
13-E43 
13-J82 
13-P74 



13-671 
13->58 
13-E81 
13-J26 
13-P29 



rZRMOeO RM05/?/2 FCTNL TST 3 HACKO v04.00 4-APR-81 CI 
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SfO 0??' 



3UES 

R6 

R7 

RCLSTS 
RD 

ROCHR 

RDLIN 

RDOCT 

RDV 

READY 

RE».AL 

RESREG 

RESVEC 

REX 

RG 

RGOTPT 

RH 

RIP 

RLEASE 

RMAS 

RMASI 

RHASO 

RMBA 



RMBAE 

RMBAEI 

RMBAEO 

R^AI 

RMBAO 



RMCS1 



RMCS1I 
RMCS10 



R<^CS2 
RHCS2r 



50-6# 
4-48A# 

4-525# 

11-12 
A6-1 

11- 35 

12- 37# 
4-503# 

A -62 A* 
A-622# 
53-3# 

4-508# 
4-505# 

7-0* 
7-Ojr 
4-766# 

1 3- 61 7 
1 3->02 
13-FA6 
13-M67 

4-769# 

7-0# 

7-0* 

7-0# 

7-0* 
13-858* 
13-CAO* 
1 3-L 1 7* 
26-26 

4-690# 
13-574 
13- 39 
13-E88 
13-M2A 
21-36 

7-0* 
25-51 

7-0* 
13-715* 
13-=18» 
1 3-C09* 
13-116* 
13-P18* 
35-320 

A-767* 
30-16* 

7-0* 
25-314 
35-494 

7-0* 



10- 23 

16-171 

13- 145 

11- 65 
47-1* 
11-49 
23-21 

14- 24 

15- 181 
47-1* 



16-' 82 



34-50 

13-12* 
1 3-674 
1 3->62 
13-G10 
13-N25 



13-477 
1 3-47* 
13-983* 
13-D03* 
1 3-L 64* 
26-30 
4-764* 
13-619 
1 3->04 
13-F48 
13-M69 
23-20 
16-209 
25-53 
13-50* 
13-759* 
13-=66* 
13-C43* 
13-J70* 
1 3-P28* 
35-340 
10-84* 
30-18* 
13-458 
25-329 
35-496 



10-23* 10-23* 



33-15* 

13-612 
11-82 

47-1* 
23-22 

16-153 



60-13 

13-13 
1 3-720 
13-?19 
1 3-G65 
1 3-IV70 



1 3-949 
13-98* 
13-: 26* 
13-D65* 
13-M16* 

10-89 
13-677 
1 3->64 
13-G12 
1 3-N28 
28-28 

24- 65 

25- 64 
13-100* 
1 3-807* 
13—78* 
1 3-D02* 
13- J 22* 
1 3-P78* 



1 3-<68 
45-1 



24-86 



13-62 
1 3-764 
13-768 
13-H27 
13-015 



26-32 
13-144* 
13-; 35* 
13-E28* 
13-f161* 

13-9* 

13-722 

13-722 

13-G67 

13-N72 

24- 67 

25- 107 
13-145* 
13-859* 
13-=97* 
13-D64* 
13- J 72* 
13-P89* 



13-810 
47-1* 



13-105 
13-819 
13-812 
1 3-H72 
1 3-074 



26-34 

13-194* 

13-<07* 

13-E58* 

13-N10* 

13-65 

13-766 

13-770 

13-H30 

13-017 

24-69 

26-12 

13-197* 

13-905* 

13->38* 

13-E29* 

13-K22* 

15-126* 



13-D64 13-F38 13-060 13-116 13-l16 13-M62 13-010 13-P28 



24-89 31-31 



13-150 
13-864 
13-377 
13-121 
13-P13 



31-42 
13-245* 
1 3-<69* 
13-F39* 
13-N63* 

13-107 
13-822 
13-ai4 
13-H74 
13-077 

24-86 

31-29 

13-247* 

13-986* 

13->57* 

13-E34* 

13-K 72* 

15-181* 



1 3-209 
13-910 
I 3-A20 
13-182 
13-P70 



60-14 
13-336* 
13-=16* 
13-F89* 
1 3-009* 

13-152 
13-866 
13-S80 
13-123 
13-P20 

24-88 
34-16 
13-291* 
13-: 27* 
13-701* 
13-E61* 
1 3-L 16* 
16-87* 



13-252 
1 3-998 
13-815 
13- J 30 
16-68 



13-387* 
13-=63* 
13-H12* 
13-059* 

13-212 
13-912 
13-A22 
13-185 
13-P30 

24-91 

35-27 

13-339* 

13-:45* 

13-744* 

13-E79* 

13-L67* 

16-119* 



13-296 
13-: 50 
13-C14 
13- J 77 



13-511* 
1 3->99* 
1 3-H66* 
13-POO* 

13-254 
13-: 01 
13-617 
13- J 32 
13-P80 

24-102 

35-29 

13-388* 

13-: 89* 

13-763* 

13-F38* 

13-M17* 

16-153* 



13-350 
13-: 94 
13-C63 
13-K34 



13-565* 
13-746* 
13-114* 
16-61* 

13-298 
13-:52 
13-C16 
13- J 79 
13-P91 

24-106 

35-31 

13-434* 

13-; 38* 

13-a07* 

13-F92* 

13-M62* 

16-182* 



13-393 
13-; 50 
1 3-D08 
13-K77 



13-611* 
1 3-a54* 
13-167* 
16-253 

13-353 
13-:96 
13-C66 
13-K37 

15- 127 

24-108 

60-13 

13-514* 

13-; 86* 

13-357* 

13-G05* 

1 3-N1 3* 

16- 304 



13-439 
13-<13 
1 3-D 70 
1 3-L 22 



13-to59* 
1 3-A1 3* 
13-J21* 
16-256* 

13-395 
13-; 53 
13-D10 
13-K79 
15-182 



13-526 
13-<74 
13-E39 
1 3-L 79 



13-713* 
13-608* 
13-K19* 
17-21 

13-441 
13-<15 
13-D72 
1 3-L 24 
16-69 



1 3-567* 
1 3-<08* 
1 3-A1 5* 
13-G60* 
13-N65* 
17-26 



13-612* 
1 3-<48» 
13-610* 
13-H15* 
13-010* 
25-28 



1 3-463 
25-344 
60-13 



13-465 
25-455 



1 3-929 
26-28 



13-933 
31-51 



13-935 
35-50 



24-47 
35-63 



24-72 
35-65 



24-74 
35-67 



24-75 
35-438 



25-99 
55-440 



25-1 70 
35-442 



13-572 
13-= 36 
13-E87 
13-«22 



13-804 
13-C03 
13-K71 
18-31 

13-529 
15-<76 
13-E41 
1 3-L 82 
20-42 



24-120 24-122 24-124 



13-662 
13-<68 
13-C04 
13-h67 
13-062 
26-48 



10-85* 10-87 12-58* 12-59* 13-14 13-15* 13-16 13-17* 20-41 21-35 28-27* 28-29 



2W71 
35-A92 
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SEO O^V 



WCS5 
RHCS3I 
RHCS50 
RMDA 



RMDAI 
RI»1DA0 



RMOe 
RMDBI 

RMoeo 

RMDC 



RWDCI 
R«DCO 



RMDS 
RWDSI 



RMDSC 

RWDT 

RMDTI 

RMOTO 

RMEC1 

RMEC1I 

Rr«EC10 

RMEC2 

RMECPI 

RWEC20 

RMER1 

RMERU 



RMER10 

RMER? 

RMFRPI 



4-770# 
7-0# 
7-0# 
4-691# 

15- 717 
13-718 
13-062 
13-N67 

7-0# 

7-0# 
1 3-?05 
1 3-058* 
35-178 

4-763# 

7-0# 

7-0# 

A-700# 
13-718 
13-717 
•3-GM 
13-N68 

7-0# 

7-0# 
13— 12' 

16- 57* 
4-692* 
7-0* 

25-85 
29-1 77 

32- 39 

33- 201 

35- 457 

36- A6 
7-0* 
4-697* 
7-0* 
7-0* 
4-704* 
7-0* 
7-0* 
4-705* 
7-0* 
7-0* 
4-693* 
/-O* 

18-23 

25-417 

29-164 

32- 100 

33- 78 

34- 41 

35- 159 
35-348 
35-415 

7^0* 

4-703* 

7-0* 



13-61 

13-761 

13-765 

13-M26 

13-012 

26-137 

1 3-46* 

13-d53« 

16-58* 

35-181 

13-18* 

13-473 

13-60 

1 3-763 

13-766 

1 3-H25 

13-014 

26-1 50 

13-45* 

13->95* 

16-298 

10-86 

I3-G23 

25-102 

29-181 

32- 41 

33- 203 

35- 504 

36- 56 

10-91 
60-5 



19-15 
18-53 

1 3-GOO 
13-A51 
18-25 
25-470 

31- 69 

32- 1 1 1 

33- 80 
35-41 
35-161 
35-352 
35-417 

1 3-GOO* 



13-102 
13-818 
1 3-a09 
1 3-H69 
1 3-073 
60-14 
13-193* 
13-C39* 
16-232* 
35-185 
13-19 
1 3-942* 

13-103 
13-8V 

1 3-ai 1 

13-H70 

13-072 

60-14 

13-192* 

13-952* 

16-396* 

10-109 

13-G25 

25-136 

29-183 

33-68 

33-205 

35- 511 

36- 60 

12-60 
60-17 



18-32 60-14 



19-14 

13-G55 
13-A56 

24- 135 

25- 489 
32-51 

32- 113 

33- 82 
35-45 
35-163 
35-354 
35-423 
13-G55« 



13-147 

13-861 

1 3-376 

13-118 

13-P10 

60-16 

13-335* 

13-E57* 

16- 233 

13-471 
13-945 

13-149 

13-862 

13-a75 

13- J 20 

13-P11 

60-16 

13-334* 

13-C38* 

17- 23 

13-G27 
25-140 
29-192 
33-106 
33-216 

35- 515 

36- 61* 

44-26 



24-143 
1 3-A67 

24- 150 

25- 492 
32-55 

32- 114 

33- 155 
35-47 
35-189 
35-356 
35-479 
24-1*39 



1 3-208 
13-907 
1 3-AI 7 
13-J81 
13-P67 

13-510* 

13-E65 

16-235 



13-207 
1 3-909 
13-A18 
13-180 
1 3-P69 

13-509* 
13-E56* 
26-59 

13-G78 
25-196 
29-194 
33-144 
33-220 

35- 517 

36- 62 



31-92 34-94 



1 3-A73 
24-152 
26-89 

32- 57 

33- 24 
33-232 
35-83 
35-279 
35-365 
35-481 



13-249 
13-997 
13-812 
13-J2r 
16-64 

13-653* 
13-F88* 
16-255* 



13-942 19-20 



13-250 
13-996 
13-814 
13- J 28 
16-65 

13-657* 
13-F87* 
29-49 

13-G80 
25-223 
29-196 
33-153 
33-222 

35- 528 

36- 72 



60-15 



13-844 

25- 80 

26- 105 

32- 58 

33- 29 
33-236 
35-85 
35-282 
35-367 
35-483 



13-293 
13-:47 
13-C11 
13- J 74 



13-803* 
13-Hll* 
16-299 



13-295 
13-:48 
13-C13 
13- J 76 



13-802* 
13-H10* 
35-174 

1 3-G82 
25-358 
29-206 

33- 157 

34- 28 

35- 532 

36- 76 



1 3-B49 

25- 156 

26- 120 

32- 69 

33- 33 
33-238 
35-87 
35-286 
35-369 
35-530 



13-349 
13-: 91 
13-C62 
13-K33 



13-982* 
13-J65* 
16-397* 



13-348 
13-: 93 
13-C61 
13-K32 



13-981* 
13-148* 



15-122 

26-92 

29-210 

33-159 

35-88 

35- 534 

36- 78 



13-860 

25- 183 

26- 132 

32- 71 

33- 35 
33-240 
35-128 
35-288 

35- 378 

36- 42 



13-390 
13-; 49 
13-D05 
13-K74 



13-; 33* 
13-166* 
17-24 



13-391 
13-; 48 
13-D06 
13-K75 



13-; 32* 
13-149 



15-178 

29-91 

29-212 

33-169 

35-90 

35-544 

60-13 



13-866 
25-226 
27-24 

32- 72 

33- 45 
33-250 
35-131 
35-297 
35-380 
60-13 



13-436 
13-clO 
1 3-D67 
13-L19 



13-525 
13-<:71 
1 3-E 36 
13-L78 



13-=13* 13-=14* 
13-KI8* 13-l63* 
26-60 26-61 



13-438 
13-<11 
1 3-D69 
13-L21 



13-; 34 
13-164* 



16-116 
29-146 
31-124 
33-173 
35-119 
35-548 



1 3-D28 
25-241 
29-30 

32- 83 

33- 47 
33-252 
35-133 
35-299 
35-382 



13-524 
13-<73 
1 3-E 38 
13-L 77 



13-; 85* 
13-K17* 



16-150 
29-155 

32- 23 

33- 174 
35-252 
35-550 



13-D30 
25-284 
29-37 

32- 85 

33- 49 
33-254 
35-135 
35-301 
35-391 



1 3-569 
13-- 35 
13-E83 
13-f119 



13-^22 
1 3-W08* 
29-53 



13-570 
13-= 34 
1 3-E 84 
13-M20 



13-<05* 
13-L 62* 



24-104 
29-162 

32- 25 

33- 185 

35- 318 

36- 34 



13-D90 
25-361 
29-66 

32- 86 

33- 61 
33-264 
35-145 
35-311 
35-393 



^3-614 
l3-=99 
13-F43 
13-«64 



13-675 
1 5->59 
15-G07 
15-N24 



13->96* 13->97* 
13-040* 13-041 
29-56 29-60 



13-616 
13->00 
15-F45 
13-M66 



13-<47* 
1 3-N07* 



25-38 
29-166 

32- 27 

33- 187 

35- 453 

36- 40 



1 3-D92 
25-587 
29-140 

52- 97 
55-65 

53- 268 
55-147 
55-515 
35-395 



13-672 
15->61 
15-GO8 
13-N23 



1 3-<67* 
13-057* 



25-40 
29-168 

32- 37 

33- 189 

35- 455 

36- 44 



16-222 
25-402 
29-143 

32- 99 

33- 65 
55-270 
35-149 
35-314 
55-413 



13-A79 13-A84 13-67? 1 3-877 1 3-D 54 13-D35 1 3-D96 1 3-DQ7 13-^05 13-nc 1 3-n ^ 13-F65 '3-f 



ZRNQBC RMOS/';/? FlTNL TST 3 MACRO V04.00 4-APR-81 01 
REFfRENCE TABLE (CREF vOI-05 ) 



H 10 
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RMEK^O 

RMHR 

RMHRI 

RMHRO 

R^q.A 

RMLAI 

RMLAO 

RWR1 

RMWII 

RMWIO 

RWR? 

RMMP2I 

RmR20 

RMOF 



RWFI 
RMOFO 



RMR 

RMSN 

RMSNI 

RMSNO 

RMUC 



RMUCI 

Rnwro 



RQA 

ROB 

RTC 

SA1 

SA16 

SA2 

SA4 

SA8 

SADMSK 
SAVREG 

sc 

SCO 
SCI 
SC2 
SC3 
SC4 



13-F 72 
29-127 
33-132 

35- 238 

36- 58 
7-0# 
4-701* 
7-0* 
7-0* 
4-695* 

7-0* 

7-0* 
4-696* 
7-0* 
7-0* 
4-702* 
7-0* 
7-0* 
4-699* 
'3-719 
13-721 
13-C63 
13-N69 
7-0# 
7-0* 
1 3-D01 • 
29-58 
4-579* 
4-698* 
7-0* 
7-0* 
4-765* 
13-618 
l3->03 
13-F47 
13-M68 
7-0* 
7-0* 
13-:25« 
13-F90* 
16-59* 
4-662* 
4-663* 
4-507* 
4-544* 
4-540* 
4-543* 
4-542* 
4-541* 
4-548* 
44-13- 
4-716* 
4-597* 
4-596* 
4-595* 
4-594* 
4-593* 



15-55 

29-130 

33-134 

35- 240 

36- 74 



60-16 

1 3-E 74 

3-79 

13-E74* 



13-64 

13-762 

13-767 

13-H29 

13-013 

18-21 

13-49* 

13-E27* 

35-183 

32-51 

60-17 

13-10* 

13-675 

13->63 

1 3-61 1 

13-N26 

18-72 

13-48* 

13-; 36* 

13-H13* 

16-301 

31-102 

31-102 



26-68 
47-1* 
24-90 



16-84 

29-179 

33-171 

35- 250 

36- 88 



13-E82 

34-69 

13-E80* 



31-101 34-81 



13-104 

1 3-821 

13-ai0 

13-H71 

13-076 

18-27 

13-196* 

1 3-E60* 

60-11 

32-83 



13-11 

13-721 

13-720 

13-G66 

13-N71 

26-10 

13-99* 

13-<06* 

13-H65* 

17-22 

34-82 

34-82 



16-225 
29-208 
33-218 

35- 254 

36- 94 



24-137 
31-114 
33-266 

35- 256 

36- 96 



25-82 

33- 31 

34- 103 

35- 266 

36- 98 



25-200 

33-92 

35-43 

35- 268 

36- 108 



25-256 

33-99 

35-111 

35- 270 

36- 110 



25-432 
33-101 
35-114 

35- 284 

36- 112 



13-F33 

60-17 

13-F33* 

60-17 

13-148 

13-863 

13-379 

15-119 

13-P12 

25-377 

13-338* 

13-f91* 



13-F42 
13-F40* 



13-2il 

13-908 

13-A19 

13-184 

13-P68 

25-487 

13-513* 

13-H14* 



13-251 

13-:00 

13-813 

13-J29 

16-67 

35-344 

13-661* 

13-169* 



13-294 
13-:49 
13-C12 
13- J 75 

35-420 

13-806* 

13-K21* 



13-352 
13-: 92 
13-C65 
13-K36 

60-14 

13-985* 

13-L66* 



13-392 
13-; 52 
13-D07 
13-K76 

60-16 
13-; 37* 
13-N12* 



13-63 

13-765 

13-769 

13-H28 

13-016 

26-23 

13-195* 

13- 17* 

13-115* 

18-73 



13-106 

13-820 

13-913 

13-H73 

13-075 

26-44 

13-246* 

13-=62* 

13-168* 

26-24 



13-151 

13-865 

13-378 

13-J 22 

13-P14 

26-115 

13-337* 

13-700* 

13-J20* 

26-45 



13-210 

13-911 

13-A21 

13-183 

1 3-P71 

60-14 

1 3-386* 

13-745* 

13-K20* 



13-253 
13-999 
13-816 
13-J31 
16-66 

13-512* 
13-355* 
13-K70* 



13-297 
13-:51 
13-C15 
13-J 78 



13-566* 
13-A14* 
13-L65* 



24-107 24-123 31-30 



27-27 

33-103 

35-116 

35-466 

60-13 



13-437 
13-<12 
13-D68 
13-L20 



13-=15* 
13-061* 



32-87 33-232 33-250 33-253 35-128 35-159 35-162 



13-351 
13-:95 
13-C64 
13-K35 



13-660* 
13-809* 
13-f115* 



29-32 
33-116 
35-203 
35-468 



13-528 
1 3-<72 
13-E37 
13-L81 



1 3->98* 
13-012 



13-394 
13-; 51 
13-D09 
1 3-K78 



13-714* 
13-COl* 
13-f4l1* 



29-85 
33-118 
35 207 
35-470 



13-571 
1 3-=38 
13-E85 
13-M21 



13-356* 
13-014* 



13-440 
13-<14 
1 3-D71 
13-L23 



13-805* 
13-C41* 
13-N64* 



29-88 
33-120 
35-232 
35-513 



SfO 033^' 

29-99 
35-130 
55-2% 
55-546 



13-615 
13->01 
13-F44 
13-«65 



13-C02* 
16-60* 



13-527 
l3-<75 
13-E40 
13-L80 



13-857* 
13-E26* 
13-060* 



13-676 
13->60 
13-G09 
13-N27 



15-C42* 
17-52 



13-573 
13—37 
13-E86 
13-«23 



13-984- 
13-£59« 
13-099* 



ZR»10eO fCTNL rST 3 MACHO VOA.OO 

ROSS REFERENCE TAB^E iCRE^ vO'-05 ) 



I 10 

4-APR-81 01:''S:59 PAGE S-<?8 



SCOPE 
jCTMSG 

sctmsk 

SEARCH 
SECFRR 



SEEK 

SEKSTS 

SHUT 

SHUT? 

SIZLLK 

SKI 



SNGPRT 
STACK 

S^ANDA 

START 

S1ART1 

START? 

STCDRV 

STKLMT 

STOP 

STSD1 

STSD2 

STSD3 

STSD^ 

STsr 

STSHI 

STSH? 

STSH3 

STSHA 

SWO 

SWOO 

SW01 

SW02 

SW03 

SW04 

SW05 

SW06 

SW07 

SW08 

SUK)9 

SWT 

SWIG 

swn 

SW12 

SWT 3 
SWK 
SWT 5 
SW? 
SW3 



13-E49 

13-5? 

13-17? 
4-599# 
A-513# 

13-1?6 

13-<3? 

1 3-H95 
4-50?# 

13-<00 

K-16 

«5-1 

1?-?8 

33- 19 
36-111 
A-6AS# 

4- 484# 
13-C?4 
10-66 

5- 1 
5-3 

10-15 
36-? 7* 

4-^8AA 
42-1 
56-1 
56-1 
60-1 6# 

56- 1 

57- 1 
57-11 
55-1 
55-1 
59-?5* 
55-1 

A-A8A# 

A -4 84 

A -484 

4-484 

4-484 

4-484 

4-484 

4-484 

4-484 

4-484 

4-484 

4-484* 

4-484* 

4-484* 

4-484* 

4-484* 

4-484* 

4-484* 

4-484* 

4-484* 



13-? 13-33 13-180 13-3?? 13-497 

13-F81 13-099 13-154 13-K05 13-L50 

13-199 M-341 13-516 13-664 13-809 

13-K?4 13-L69 13-N15 13-064 50-3* 

?5-104 ?6-5 , 

13-171 13-?73 13-317 13-414 13-489 

13-<Q3 l3->?3 13->83 13-789 13-^)33 

13-144 13-J53 13-kOO 13-K98 13-L43 

13-; 86 l3-<48 13-= 78 13->38 

13- <6? 13-9? 13->5? ?9-19* 

14- ?0 14-??* 45-6 
45-1 45-3* 

??-3* 

15- 176 16-148 ?9-48 ?9-51 ?9-70 
33-?18 35-173 35-176 35-193 35-?04 



10- ?3 13-? 13-33 13-180 13-3?? 
13-E49 13-F81 13-G99 13-154 13-K05 

11- 3* 

10-17* 1?-33 1?-4? 14-?7 

10-14* 13-?8 

10-18* 



4?-5* 

56-? 56-8 56-10 56-11 56-1? 

56-? 56-8 56-10 56-11 56-1? 

56- ? 56-8 56-10 56-11 56-12 

57- 1 57-1 57-? 57-? 57-? 
57-1? 57-1? 57-1? 61-7* 

55-? 55-8 55-9 55-11 55-1? 

55-? 55-8 55-9 55-11 55-1? 

55-? 55-8 55-9 55-11 55-1? 

4-484* 
4-484* 
4-484* 
4-484* 
4-484* 
4-484* 
4-484* 
4-484* 
4-484* 
4-484* 



16-?45 44-14 



13-645 
1 3-M95 
1 3-988 



13-593 
-•3-A91 
13-M43 



?9-100 
35-?06 



13-497 
13-L50 



60-13* 
60-14* 

60-17* 
57-8 

55-13 
55-13 



13-790 
13-046 
13-; 40 



13-638 
13-884 
13-M88 



?9-10? 
35-?07 



13-645 
13-M95 



57-8 

59-21* 
S9-23* 



55-13 59-26* 



1 3- 9b9 

14- 9 
13-=20 



13-741 
1 3-D46 
13-N91 



29-106 
35-209 



13-790 
13-046 



13-; 20 
13-703 



1 3-=05 
1 3-a59 



13-785 13-885 
13-E08 13-F16 
13-036 13-P49 



29-117 29-179 
35-221 35-513 



13->88 
13-C45 



15-961 
13-F76 
13-010 



31-115 
36-74 



SEQ 0333 
13-858 15-C24 
13-E65 13-H17 



13-:71 15-;15 
13-G38 15-G94 
25-24* 



33-9? 
36-89 



33-116 
36-108 



13-969 13-;?0 13-=05 13->88 13-838 



57-8 



57-10 57-10 57-10 57-11 



57-11 



CZRMOBO RM05/3/2 FCTNL TST 3 «AC«0 VOA.OO 
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J 10 

A-APR-81 01:15:59 PAGE 



SW4 
SW5 
SW6 
SW7 
Sw8 
Sw9 
SWR 



SWREG 

SYSTAT 

TA1 

TA16 

TA2 

TA4 

TA8 

TADMSK 

TAG 

TAQAOR 
TAP 

TBITVE 
TIMOOT 



TIC^<EC 
TPVEC 
TRAPVE 
TRE 

THTVEC 

TST 

TST1 

Tsno 

TST11 

TST1Z 

TST13 

TSTU 

TST15 

TST16 

TST17 

TST2 

TST20 

TST21 

TST22 

TST23 

TST2A 

TST25 

TST3 

TST4 

TST5 

TST6 

TST7 

TST^MB 

TSTPRP 



A-484# 
<.-484# 
<.-484« 
4-48A« 

4- 484# 
6-0# 

42-1* 
48-1* 

5- 1* 
10-76 

4-537# 

4-533# 
4-536# 
4-535# 
4-534* 
4-547* 

4- 664* 

5- 9* 
4-641* 
4-484* 

13-73 
13-77*. 
13->12 
13-E96 
13-M32 
16-162 
4-484* 
4-484* 
4r484* 
4-71 7* 
4-484* 
4-665* 
13-2* 
13-969* 
13-; 20* 
13-=05* 
1 3->88* 
13-a38Jr 
1 3-C24* 
13-E49* 
13-F81* 
13-33* 
13-G99* 
13-154* 
13-K05* 
13-L50* 
13-«95* 
13-046* 
13-180* 
13-322* 
13-497* 
13-645* 
13-790* 
44-44* 
13-41 
13-754 



10-23 
42-1* 

10-23 
50-23* 

12-64 
12-64 
12-56 

26-66 

6-0 



13-115 
13-832 
13->4S 
13-F56 
13-M77 
16-191 
45-1* 

10-23* 
16-209 

31-103 

42-1 

42-1 

42-1 

42-1 

42-1 

42-1 

42-1 

42-1 

42-1 

42-1 

42-1 

42-1 

42-1 

42-1 

42-1 

42-1 

42-1 

42-1 

42-1 

42-1 

42-1 

44-45* 

13-93 

15-798 



10-23 
42-1* 

10-28 



13-160 
13-874 
13-:i 72 
13-G31 
1 3-N38 

23- 9* 
45-1* 

10-25* 

24- 90 

34-83 



10-23* 
42-1* 

45-1 



10-23* 
43-1 

45-1 



10-23* 
43-1 

45-1 



10-28 
43-' 



16-245 
43-1 



42- 1 

43- 1 



42-1 
44-14 



42-1 
45-1 



42-1 
45-1 



42-1 
45-1 



42-1 
48-1 



13-220 
1 3-920 
13-730 
13-G87 
1 3-N80 



13-262 
13-: 11 
13-778 
13-H38 
13-025 



13-306 
13-: 60 
13-322 
13-H82 
13-085 



13-361 
13-; 04 
13-388 
13-131 
13-P26 



13-403 
13-; 63 
13-A30 
13-193 
13-P38 



13-449 
13-; 93 
13-625 
13-J40 
13-P86 



13-539 
13-<21 
13-C20 
13-J87 
13-P99 



13-582 
13-<55 
13-C76 
1 3-K45 
15-137 



13-627 
13-<82 
13-D18 
13-IC87 
15-192 



13-687 
13--48 
13-D80 
13-L32 
16-96 



13-730 
1 3-=85 
13-E45 
13-L90 
16-128 



24-107 24-123 25-106 25-108 26-12 



44-47 44-159* 

13-139 13-188 15-240 13-286 13-330 13-381 
13-852 13-900 15-977 13-: 40 13-: 84 15-;?8 



1 3-429 
15-; 83 



15-505 
l5-<45 



1 5-560 . 1 5-606 
13-=29 15-= 76 



1 5-655 
i3->36 



15-708 
15-712 
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'STQUE 



TYPBN 
TVPDS 
TVPE 



TYPOC 

'■yPON 

TYPOS 

UO 

Ul 

U2 

UNS 

UNTMSK, 

UNIOFF 

'JNTON 

UPE 

USE 

USRFIL 
VV 

UC 

WCD 

WCE 

WCEHI 

iJCELO 

UCF 

UCH 

'JD 



WLE 
URL 

XSIZ 
XaDP 

y 

ZEROS 



13-758 
13-H06 
13-004 
7'OM 

1 3- =05 

14- 17 
44-149 
14-20 
10-6 
10-128 
M-44 

12- 7 

13- =20 
38-1 

44- 104 

45- 1 
10-8 
47-1# 
10-45 

4-742# 
4-742# 
4-742# 
4-567* 
4-746# 

10-120 

10-131 
4-729# 
4-686* 

16-253 
4-561* 

33-169 
4-631* 
4-517* 
4-728* 
4-753* 
4-754* 
4-576* 
4-518* 
4-521* 

13-A15 
4-522* 

13-C43 
4-570* 
4-556* 

10-70* 
7-0* 

50-36* 

13-54 



13-a02 
13-H59 
13-053 

12- 8 

13- >88 

14- 17* 
47-1* 
14-20 
10-28 

10- 131 

11- 48 

12- 14 

13- 703 
39-1 

44- 110 

45- 1 
11-33 



13-100 
13-D02 
13-50 
13-E29 
4-583 
25-223 
11-71 
10-33* 



13-948 
13-108 
1 3-P05 

12- 9* 

1 3- 938 
28-24 

44- 143 
10-42 

10- 132 

11- 54 

12- 25 

1 3- 359 
40-1 
^4-114 

45- 1 
11-47 



13-A08 
13-160 
1 3-P61 

12- 50 

13- C24 
30-17 

47-1* 
10-48 

10- 133 

11- 61 

12- 30 

13- C45 
41-1 

44- 126 

45- 1 
44-146 



13-803 
13-J14 
15-38* 

12- 59 

13- E49 
31-54 



10-53 

10- 140 

11- 62 

12- 68 

13- E63 

43- 1 

44- 132 

45- 1 
45-1 



13-C07 
13-J66 

13-2 

13-F81 

34-53 



10- 59 

11- 11 

11- 64 

12- 69 

13- H17 

43- 1 

44- 134 

45- 1 
47-1* 



13-247 
13-E61 
13-197 
13-E34 
25-221 
35-318 
11-101 
10-36* 



13-201 13-343 



13-388 
13-E79 
13-339 
13-H15 
25-225 



10-37 
1 3-990 



13-567 
13-F92 
13-514 
13- '70 
25-238 



10-59* 

13—64 



13-715 
13-G05 
13-662 
13-K22 
25-253 



10-44 
13-707 



13-C34 
13-K13 

13-33 
13-G99 



10- 60 

11- 16 
11-69 
13-52 
13-J 72 
44-20 

44- 152 

45- 1 



10-56 


10-81 


12-16 


12-70 


44-22 


44-47 


13-GOO 


13-655 


31-70 


32-5^ 


32-55 


32-59 


24-48 


24-50 










50-31* 












50-32* 












25-270 












1 3-A46 


1 3-B39 


17-29 








16-256 


16-266* 


16-274* 


16-325 


62-12* 




15-122 


16-116 


25-196 


29-91 


29-156 


29-157 


33-175 


34-29 


35-90 


35-119 


35-505 


35-506 


31-80 


34-70 






13-: 89 


13->57 


1 3-291 


1 3-434 


13-759 


13-905 


13-458 


1 3-464 


13-929 


13-934 


25-169 


51-77 


4-583 


25-240 


35-479 


35-482 







13-859 
1 3-H67 
13-807 
1"^-L67 
?''-?68 



- 5 
15-361 



13-f96 
13-K65 

13-^80 
13-154 



10- 76 

11- 17 
11-75 
13-199 
13-K24 
44-21 

44- 154 

45- 1 



29-206 
35-544 

13-a07 
51-78 



13-:27 
1 3- J 22 
13-986 
13-N13 
35-279 



10-124 
13-H19 



13-D59 

13-Ln 

13-322 
13-K05 



10- 80 
(1-19 

11- 86 
13-341 
13-L69 

44- 39 

45- 1 
45-1 



44-52 44-54 



13-E32 
13-L58 

13-497 
13-L50 



10- 8^ 

11- 20 
11-87 
13-516 
13-N15 

44- 40 

45- 1 
45-1 



47-1* 



13-E70 
13-*110 

13-645 
13-M95 



10- 107 

11- 28 
11-92 
13-664 
1 3-064 

44- 46 

45- 1 
45-1 



13-F29 
1 3-F156 

13-790 
13-046 



10- 113 

11- 32 
11-100 

1 3- 809 

14- 20 

44- 51 

45- 1 
45-1 



29' 21 1 
35-549 



32-23 
36-35 



32-26 
36-36 



33-106 
36-56 



13- J 72 13-P89 



13-: 45 
13-K72 
13-; 38 
13-062 
35-311 



10-126 
1 3-066 



13-<08 
13-M17 
13-=18 
35-342 
35-315 



53-38* 



13-=66 
13-fJ65 
13-701 

35-323 



13—97 
1 3-957 
51-81 



13-F96 
13-N03 

13- 969 

14- 1 1 



SEO 0555 

1 3-G51 
13-N58 

13- ; 20 

14- 1 3* 



10- 116 

11- 34 

12- 3 

13- 988 

14- 20 

44- 53 

45- 1 
47-1* 



33-232 33-264 33-269 35-279 35-282 35-287 



33-145 
36-61 



13-">44 
13-C04 
51-82 



10- 120 

11- 40 

12- 6 

13- ; 40 

14- 20 

44- 61 

45- 1 
48-1 



33-146 



1 3-->63 
13-C09 



I 

I 
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ttCMTM 
WESCA 
tSNEwr 

ttSE^ 
MSETM 

.tAcn 

.$APTB 

.tAPTH 

.SAPTr 

.SCATC 

.tCMTA 

• IE OP 

.tERRO 

.SPOWE 

.SRDDE 

.tRDOC 

.IRE AD 

.tSAVE 

.tSCOP 

.tSIZE 

.STRAP 

,STyP8 

.STYPD 

.STYPE 

.STYPO 

.EOUAT 

.HEADE 

.SETUP 

.SURHI 

•SWRLO 

CALCLR 

CALSIJB 



5-10* 

4-A8A* 

A-A8A* 

13-EA9 

A-A8A* 
4 -A 76* 
4-476* 
4-476* 
4-476* 
4-472* 
4-473* 
4-473* 
4-473* 
4-475* 
4-474* 
4-474* 
4-474* 
4-475* 
4-473* 
4-475* 
4-475* 
4-474* 
4-474* 
4-473* 
4-474* 
4-472* 
4-4 72* 
4-472* 
4-472* 
4-472* 
4-1 87* 
4-201* 
13-124 
13-218 
1 3-304 
13-398 
13-489 
1 3-591 
13-685 
13-772 
13-869 
13-961 
13-: 69 
13-; 63 
13-<32 
13-=20 
13->10 
13->72 
13-776 
13-348 
13-A70 
13-C18 
1 3-D44 



6-0 

13-2 

13- F81 

47- 1 
10-23* 

5- 5 

6- 0 
5-8 

49-1 
5-1 
5-10 

14- 20 
43-1 

48- 1 

46- 1 
45-1 

37- 1 
42-1 

47- 1 

38- 1 

39- 1 
41-1 

40- 1 
4-484 
4-480 
4-775 
4-481 
4-481* 

13-41 

13-126 

13-220 

13-306 

13-401 

13-505 

13-593 

13-687 

13-774 

13-872 

13-977 

13-:71 

13-; 66 

13-<45 

13-=29 

13->12 

13->75 

13-778 

13-359 

13-A82 

13-C34 

13-D46 



6-0 

13-33 
1 3-G99 
47-1 



6-0* 



4-482 

13-52 

13-139 

13-223 

13-309 

13-403 

13-516 

13-606 

13-690 

13-777 

13-874 

13-988 

13-: 84 

13-; 70 

13-<50 

13—43 

13->15 

13->79 

13-781 

13-383 

1 3-A91 

13-C45 

13-D59 



6-0 

13-180 
13-154 
47-1 



13-68 

13-155 

13-227 

13-313 

13-406 

13-534 

13-622 

13-694 

13-781 

13-877 

13-: 06 

13-:99 

13-; 83 

13-<53 

13—46 

13->19 

13->81 

13-785 

13-386 

13-803 

13-C71 

13-D75 



6-0 

13-322 
13-K05 
47-1 



13-71 

13-158 

13-240 

13-315 

13-410 

13-537 

13-625 

13-708 

13-783 

13-881 

13-:09 

13-; 02 

13-; 88 

13-<55 

13-=48 

13->21 

13->83 

13-787 

13-388 

13-820 

13-C74 

1 3-D 78 



6-0 

13-497 
13-L50 
47-1 



13-73 

13-160 

13-257 

13-317 

13-412 

13-539 

13-627 

13-725 

13-785 

13-883 

13-: 11 

13-; 04 

13-; 91 

13-<58 

13-=51 

13->23 

13-703 

13-789 

13-391 

13-823 

13-C76 

13-D80 



13-645 
1 3-M95 
47-1 



13-76 

13-163 

13-260 

13-330 

13-414 

13-542 

13-630 

13-728 

13-798 

13-885 

13-:14 

13-; 07 

13-; 93 

13-<62 

13-=55 

13->36 

13-712 

1 3-302 

13-395 

1 3-B25 

13-C79 

13-D83 



13-790 
1 3-046 
47-1 



13-80 

13-167 

13-262 

13-341 

13-429 

13-546 

13-634 

13-730 

13-809 

13-900 

13-:18 

13-; 11 

13-; 96 

13-<79 

13-=76 

13->40 

13-725 

13-317 

13-A08 

1 3-828 

13-C83 

13-D87 



13-969 13-; 20 1!-=05 
47-1 47-1 47-1 



13-93 

13-169 

13-265 

13-356 

13-444 

13-560 

13-636 

13-733 

13-827 

13-915 

13-: 40 

13-; 13 

13-<00 

13-<82 

13-=80 

13->43 

13-728 

13-320 

13-A25 

1 3-832 

13-C96 

13-E06 



13-110 
13-171 
13-269 
13-359 
13-447 
13-577 
13-638 
13-737 
13-830 
13-918 
13-: 55 
13-; 15 
13-<18 
13-<85 
13-=83 
13->45 
13-730 
13-322 
13-A28 
13-847 
13-D13 
13-E08 



13-113 
13-175 
13-271 
13-361 
13-449 
13-580 
13-640 
13-739 
13-832 
13-920 
13-:58 
13-; 28 
13-<21 
13-<89 
l3-=85 
l3->48 
13-733 
13-325 
1 3-A30 
13-863 
13-D16 
13-E10 



13->88 
47-1 



13-115 
13-188 
13-273 
13-364 
13-452 
13-582 
13-653 
13-741 
13-835 
13-923 
13-:60 
13-; 40 
13-<24 
1 3-<91 
13-=88 
13->52 
13-737 
13-329 
13-A33 
13-875 
13-D18 
13-E32 



13-358 
47-1 



SEO 0336 

15-C24 
47-1* 



13-118 
13-199 
13-286 
13-368 
13-456 
13-585 
13-664 
13-754 
13-839 
13-927 
13-:63 
13-; 58 
13-<28 
13-<93 
13-=92 
13->67 
13-758 
13-331 
13-A57 
13-884 
13-D21 
13-E43 



13-122 
13-215 
13-501 
15-381 
15-461 
15-589 
15-682 
13-769 
13-852 
13-931 
l5-:67 
15-;61 
15-<50 
15-<95 
15->07 
15->70 
15-773 
15-355 
15-A54 
15-C07 
1 5-D25 
13-E65 



fZHMOBO RM05/3/2 FCTNL TST 3 l>1ACR0 V04,00 
TROSS REFERENCE TABLE (CREF VOI-05 ) 



M 10 

4-APR-81 01 .•■'5: 59 PAGE M-t^ 



COWMEN 
ENOCOM 
ERROR 



ESCAPE 

GETPRJ 

GETREG 

GETSWR 

MSG 

MULT 

NEWTST 

NUTST 

POP 



PUSH 



13-E70 
13-F68 
13-G87 
13-H82 
13-160 
13-J53 
1 3-K48 
13-L35 
13-M30 
13-M90 
13-N89 
13-083 
1 3-P49 
4-/i8A# 
4-A84# 
A-48A# 
13-155 
13-269 
1 3-381 
' 3-A85 
1 3-622 
13-737 
13-852 
13-957 
13-:99 
13-<18 
1 3-<95 
13->23 
13-737 
1 3-a59 
1 3-A91 
13-C3A 
1 3-D83 
13-F08 
13-G21 
13-H17 
13-IAO 
1 3-J66 
13-K94 
13-L97 
13-N03 
13-032 
13-PA5 
A-A8A# 
A-A8A# 
A-16Air 
4-A84# 

A-A8A* 
13-E49 

A-36# 
13-EA9 

A-A844r 
21-59 
46-1 

4-A84# 



13-E91 
13-F76 
13-G90 
13-H85 
13-172 
13-J66 
13-K52 
13-L39 
13-M32 
13-N03 
13-N91 
1 3-085 
13-P61 



13-25 

13-163 

13-271 

13-398 

1 3-A89 

13-630 

13-739 

13-869 

13-961 

13-; 07 

13-<2A 

13-=20 

1 3->36 

13-758 

13-383 

13-603 

13-CA5 

13-D87 

13-F13 

13-G28 

13-H33 

13-K4 

13-J82 

13-K96 

13-MlO 

13-N15 

13-03A 

13-PA7 



13-471 
10-28 



13-E94 
13-F96 
1 3-G92 
1 3-H89 
13-188 
13-J82 
1 3-K65 
13-L41 
13-M35 
1 3-N1 5 
1 3-004 
13-088 
1 3-P74 



13-41 

13-167 

13-273 

13-406 

13-505 

13-634 

13-741 

13-877 

13-977 

13-; 11 

13-<28 

13--29 

13->40 

13-773 

13-891 

13-820 

13-C71 

13-E01 

13-F16 

13-G34 

13-H41 

13-J46 

13-J90 

13-IC98 

13-M27 

1 3-N33 

13-036 

13-P49 



1 3-942 
10-28* 



13-E96 
13-G15 
1 3-G94 
13-H91 
13-191 
13-J85 
1 3-K82 
13-L43 
13-M39 
13-N33 
13-020 
13-092 
13-P83 



13-52 

13-169 

13-286 

13-410 

13-516 

13-636 

13-754 

13-881 

13-988 

13-; 13 

13-<30 

13-=43 

1 3->48 

13-781 

13-395 

13-828 

13-C79 

13-E06 

13-F29 

13-G36 

13-H45 

13-160 

13-J94 

13-Ln 

13-M55 
13-N41 
13-038 
13-P61 



13-E99 
13-G18 
1 3-H06 
13-H95 
13-J93 
13-J87 
13-K85 
13-L45 
13-M41 
13-N36 
13-023 
13-P05 
13-P86 



13-68 

13-171 

13-301 

13-412 

13-534 

13-638 

13-769 

13-883 

.13-: 06 

13-; 15 

13-<32 

13-=51 

13->52 

13-785 

13-A08 

13-632 

13-C83 

13-E08 

13-F33 

13-638 

13-H59 

13- J 72 

13-J96 

13-L27 

13-M39 

13-N45 

13-053 

13-P74 



13-F03 
13-G21 
13-H17 
13-J08 
13-J96 
13-J90 
13-K87 
13-L58 
13-M43 
13-N38 
13-025 
''3-P17 
1 3-P94 



13-76 

13-175 

13-309 

13-414 

13-542 

13-640 

13-777 

13-885 

13-:14 

13-; 28 

13-<45 

13-=55 

13->67 

13-787 

13-A25 

13-647 

13-C96 

13-ElO 

13-f51 

13-651 

13-H77 

13- J 88 

13-KOO 

13-L35 

13-mi 

13-N58 

13-064 

13-P83 



13-F08 
13-G31 
13-H33 
13-126 
13-jOO 
13- J 94 
1 3-K90 
13-L69 
13-M56 
13-N41 
1 3-028 
1 3-P23 
1 3-P97 



13-80 

13-188 

13-313 

13-429 

13-546 

13-653 

13-781 

13-900 

13-:18 

13-; 40 

13-<50 

13-=76 

13->75 

13-789 

13-A33 

13-855 

13-D13 

13-E32 

13-F59 

13-G55 

13-H85 

13-196 

13-K13 

13-L39 

13-H43 

13-N75 

13-080 

13-P94 



13-F16 
13-G34 
13-H36 
13-J29 
13-J14 
13-J96 
13-K94 
13-L85 
13-^ 72 
13-N45 
13-032 
13-P26 
13-P99 



13-93 

13-199 

13-315 

13-444 

13-560 

13-664 

13-783 

13-915 

13-: 40 

13-; 58 

13-<58 

13-=80 

13->79 

13-902 

13-A37 

13-663 

13-D21 

13-E43 

13-f63 

13-G70 

13-H89 

13-JOO 

13-K24 

13-L41 

13-M56 

13-N83 

13-088 

13-Q02 



13-F29 
13-G36 
13-H38 
13-J31 
13-J35 
13-KOO 
1 3-K96 
13-L89 
1 3-M75 
13-N58 
1 3-034 
13-P33 
13-002 



13-110 
13-215 
13-317 
13-452 
13-577 
13-682 
13-785 
13-923 
13-: 55 
13-; 66 
13-<62 
13-=88 
13->81 
13-ai7 
13-A54 
13-667 
13-D25 
13-E63 
13-F68 
13-G76 
13-K91 
13-J14 
13-K40 
13-L43 
13-M72 
13-N87 
13-092 
13-Q06 



13-F51 

13-G38 

13-H41 

13-134 

13-J38 

13-K13 

13-»f98 

13-L90 

1 3-M77 

1 3-N75 

1 3-036 

13-P36 

1 3-006 



13-118 
13-223 
13-330 
13-456 
13-585 
13-690 
13-798 
13-927 
13-: 63 
13-; 70 
13-<79 
13-=92 
13->83 
13-325 
13-A62 
13-675 
13-D39 
13-E70 
13-f73 
13-G83 
13-H95 
13-J35 
13-K48 
13-L45 
13-M80 
13-N89 
13-P05 
13-Q08 



13-F54 

13-G51 

13-H45 

13-138 

13-J40 

1 3-K24 

13-L11 

13-L93 

13-M80 

13-N78 

13-038 

13-P38 

1 3-008 



13-122 
13-227 
13-341 
13-461 
13-589 
13-694 
13-809 
13-931 
13-: 67 
13-; 83 
13-<85 
13->07 
13-703 
13-329 
13-A70 
13-679 
13-D44 
13-E74 
13-F76 
13-G90 
13-108 
13-J43 
13-K52 
13-L58 
13-M84 
13-N91 
13-P17 
13-010 



13-F56 
1 3-G70 
13-H59 
13-140 
13-J43 
13-X40 
13-L27 
13-L97 
13-M84 
13-N80 
13-053 
13-P41 
13-010 



13-124 
1 3-:40 
13-356 
13-468 
13-591 
^3-708 
13-827 
13-938 
13-:69 
13-; 88 
13-<89 
13->15 
13-712 
13-331 
13-A74 
13-684 
13-D46 
13-E91 
13-F96 
13-G92 
13-126 
13-J47 
13-K65 
13-L69 
13-M86 
13-004 
13-P23 
42-1 



I3-F59 
13-G73 
1 3-H77 
13-144 
13-J47 
13-K43 
13-L30 
13-M10 
13-M86 
13-N83 
13-064 
13-P45 



SEO 035/ 

13-F63 
1 3-G76 
1 3-H80 
13-146 
13-J49 
13->C',5 
13-L32 
13-M2/ 
13-M88 
13-N87 
13-080 
13-P47 



13-126 
13-257 
13-364 
13-471 
1 3-593 
13-725 
13-835 
13-942 
13-:71 
13-; 96 
13-<91 
13->19 
13-725 
13-333 
13-A82 
13-C07 
13-059 
13-E99 
13-GOO 
13-G94 
13-154 
13-J49 
13-K82 
13-L85 
13-M88 
13-020 
13-P33 



13-139 

13-265 

13-568 

13-481 

15-606 

15-755 

15-859 

15-955 

l5-:84 

15-<00 

15-<95 

15->21 

15-755 

15-348 

15-A86 

15-C18 

15-075 

15-F05 

15-G15 

15-H06 

15-158 

15-J55 

15-K90 

15-L95 

15-M90 

15-028 

15-P41 



15-2 


13-35 


13-180 


13-32? 


13-497 


13-645 


15-790 


15-969 


13-; 20 


13-=05 


13->88 


13-358 


15-C24 


13-F81 


15-G99 


13-154 


13-K05 


13-L50 


13-M95 


15-046 






13-=05 


13->88 


15-358 


13-C24 


13-2 


13-33 


13-180 


13-322 


15-497 


13-645 


15-790 


13-969 


13-; 20 


13-F81 


13-G99 


13-154 


13-K05 


13-L50 


1 3-M95 


1 5-046 










19-27 


20-70 


13-17 


15-20 


15-24 


16-71 


16-278 


16-288 
25-131 


16-598 


17-65 


18-95 


19-25 


19-26 


22-20 


22-21 


25-35 


24-145 


24-149 


28-51 


30-25 


31-58 


34-58 


34-59 


37-1 


59-1 


48-1 


48-1 


A 9-1 


49-1 
















20-35 


21-29 


13-5 


13-14 


16-47 


16-262 


16-281 


16-297 


17-20 


18-17 


19-10 


19-11 


19-12 



'ZftMOeO RM05/3/2 FCTNL TST 3 MACRO VOA.OO 
'ROSS REFERENCE TABLE (CREF VOI-05 ) 



N 10 

4-APR-81 01:15:59 PAGE M-3 



PUTREG 

REF>ORT 

RGBFMC 

SETPRI 

SETTRA 

SETUP 

SKIP 

SLASH 

STARS 



SWRSU 

TAGS 

TRMTRP 

TYPBIN 

TYPDEC 

TYPNAM 

TYPNUM 

TYPOCS 

TYPOCT 

TYPTXT 

XPER 



22-A 
48-1 

4-484# 
4-69# 
4-484# 
47-1 
4-484# 
4-484* 
4-484# 
4-484# 
13-133 
13-553 
1 3-971 
13->88 
13-C90 
1 3-H02 

13- L50 

14- 20 
26-1 

46- 1 
4-484# 
4-103* 

47- U 
4-484* 
4-484* 
4-472* 
4-484* 
4-484* 
4-484* 
4-484* 
4-12*. 
8-42 
8-84 
8-126 
8-172 
8-215 
8-257 
8-299 
8-341 
8-384 
8-426 
8-468 
8-510 
8-552 
8-603 
8-645 
8-687 



22-5 
49-1 
13-E74 

7-0 
12-49 
47-1 
10-23 



5- 5 

13-180 

13-600 

13-:33 

13->90 

13-D53 

13-H52 

13-L52 

15-57 

26-3 

47-1 

10-23 

6- 0 



14-20 
4-484* 

10- 81 

11- 33 
10-6 

8-3 

8-45 

8-87 

8-130 

8-175 

8-218 

8-260 

8-302 

8-344 

8-387 

8-429 

8-471 

8-513 

8-556 

8-606 

8-648 

8-690 



23-9 
49-1 
13-F33 

7-0 
42-5 
47-1 



5-8 

13-180 

13-645 

13-: 78 

13-752 

13-E22 

13-102 

13-M04 

15-70 

37-1 

48-1 

10-23* 



14-20 
10-28 

12-16 

45-1 

10-42 
8-6 
8-48 
8-90 
8-133 
8-178 
8-221 
8-263 
8-305 

. 8-347 
8-390 
8-432 
8-474 
8-516 
8-559 
8-609 
8-651 
8-693 



24-141 
49-1 
1 3-600 



42-9 
47-1 



5-8 
13-182 
13-645 
13-; 20 
13-796 
13-E24 
13-154 
13-M50 
15-84 
38-1 
48-1 



12-70 

10-53 
8-9 
8-51 
8-93 
8-136 
8-182 
8-224 
8-266 
8-308 
8-351 
8-393 
8-435 
8-477 
8-519 
8-563 
8-612 
8-654 
8-696 



25-128 
13-G55 



45-1 
47-1 



5-8 

13-234 
13-647 
13-; 20 
13-338 

13-E49 

13-154 

13-M95 

15-107 

39-1 

49-1 



28-20 30-12 31-52 



47-1 



6-0 
13-280 
13-701 
13-; 22 
13-938 
13-E49 
13-J57 
15-M95 
15-139 
40-1 



10-59 
8-12 
8-54 
8-96 
8-139 
8-185 
8-227 
8-269 
8-311 
8-354 
8-396 
8-438 
8-480 
8-522 
8-566 
8-615 
8-657 
8-699 



10-60 
8-15 
8-57 
8-99 
8-142 
8-188 
8-230 
8-272 
8-314 
8-357 
3-399 
8-441 
8-483 
8-525 
8-569 
8-618 
8-660 
8-702 



47-1 



6-0 
13-322 
1 3-748 
13-; 77 
13-340 
13-E51 
13-J07 
1 3-M97 
15-161 
41-1 



44-22 44-47 44-52 



12-30 
8-18 
8-60 
8-102 
8-146 
8-191 
8-233 
8-275 
8-317 
8-360 
8-402 
8-444 
8-486 
8-528 
8-573 
8-621 
8-663 
8-705 



47-1 



6-0 
13-322 
1 3-790 
13-<39 
13-A02 
13-F23 
13-J60 
13-N52 
15-194 
42-1 



44-54 

14-20 
8-21 
8-63 
8-105 
8-150 
8-194 
8-236 
8-278 
8-320 
8-363 
8-405 
8-447 

, 8-489 
8-531 
8-577 
8-624 
8-666 
8-708i 



34-51 



47-1 



13-2 

13-324 

13-790 

1 3-=05 

13-A97 

1i-F81 

13-K05 

13-N98 

16-213 
43-1 



34-52 37-1 



14-20 
8-24 
8-66 
8-108 
8-154 
8-197 
8-239 
8-281 
8-323 
8-366 
8-408 
8-450 
8-492 
8-534 
8-581 
8-627 
8-669 
8-711 



47-1 



13-2 

13-375 

13-792 

13-=05 

13-897 

13-F81 

13-K05 

13-046 

16-290 

45-1 



8-27 

8-69 

8-111 

8-157 

8-200 

8-242 

8-284 

8-326 

8-369 

8-411 

8-453 

8-495 

8-537 

8-586 

8-630 

8-672 

8-714 



47-1 



13-33 

1 3-420 

13-846 

13-=07 

13-899 

13-F83 

13-K07 

13-046 

16-294 

45-1 



8-30 

8-72 

8-114 

8-160 

8-203 

8-245 

8-287 

8-329 

8-372 

8-414 

8-456 

8-498 

3-540 

8-590 

8-633 

8-675 

8-717 



39-1 



47-1 



13-33 

13-497 

13-891 

13-= 70 

13-C24 

13-645 

13-K59 

1 3-048 

25-26 

45-1 



8-33 

8-75 

8-117 

8-163 

8-206 

8-248 

8-290 

8-332 

8-375 

8-417 

8-459 

8-501 

8-543 

8-594 

8-636 

8-678 

8-720 



46-1 



47-1 



SEO 0338 
48-1 



4 7-1* 



13-35 

13-497 

13-969 

13->30 

13-C24 

13-699 

13-L05 

13-P01 

25-34 

45-1 



8-36 

8-78 

8-120 

8-166 

8-209 

8-251 

8-293 

8-335 

8-378 

8-420 

8-462 

8-504 

8-546 

8-597 

8-639 

8-681 

8-723 



13-87 

13-499 

13-969 

13->88 

1 3-C26 

13-G99 

13-L50 

13-P56 

25-119 

45-1 



8-39 

8-81 

8-123 

8-169 

8-212 

8-254 

8-296 

8-338 

8-581 

8-423 

8-465 

8-507 

8-549 

8-600 

8-642 

8-684 



